[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[sc-dev] SF.net SVN: supercollider: [7389] trunk/build/SCClassLibrary/Common/GUI/GUI .sc



Revision: 7389
          http://svn.sourceforge.net/supercollider/?rev=7389&view=rev
Author:   cruxxial
Date:     2008-02-29 12:09:46 -0800 (Fri, 29 Feb 2008)

Log Message:
-----------
adding GUI-setSkin, GUI <skins so that we can add skins.

Modified Paths:
--------------
    trunk/build/SCClassLibrary/Common/GUI/GUI.sc

Modified: trunk/build/SCClassLibrary/Common/GUI/GUI.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/GUI/GUI.sc	2008-02-28 15:11:21 UTC (rev 7388)
+++ trunk/build/SCClassLibrary/Common/GUI/GUI.sc	2008-02-29 20:09:46 UTC (rev 7389)
@@ -13,7 +13,7 @@
  *	@version	0.16, 10-Apr-07
  */
 GUI { 
-	classvar <scheme, <schemes, <skin, skins;
+	classvar <scheme, <schemes, <skin, <skins;
 	
 	*new { arg key; ^scheme.perform( key )}
 
@@ -184,4 +184,13 @@
 	*doesNotUnderstand { arg selector ... args;
 		^scheme.perform( selector, args );
 	}
+	
+	/**
+	 *	Add skins by GUI.skins.put(skinName,( fontSpecs: etc.  )  )
+	 *	Set that as default here.
+	 */
+	*setSkin { arg skinName;
+		skin = skins[skinName];
+		scheme.font.new(*GUI.skin.fontSpecs).setDefault;
+	}
 }
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.