[PD-cvs] SF.net SVN: pure-data: [9808] trunk/externals

[eighthave at users.sourceforge.net]

Revision: 9808
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9808&view=rev
Author:   eighthave
Date:     2008-05-15 06:49:39 -0700 (Thu, 15 May 2008)

Log Message:
-----------
added example of how to change the colors of the theming from a patch

Modified Paths:
--------------
    trunk/externals/Makefile

Added Paths:
-----------
    trunk/externals/hcs/examples/
    trunk/externals/hcs/examples/changing_the_colors.pd

Modified: trunk/externals/Makefile
===================================================================
--- trunk/externals/Makefile	2008-05-15 13:03:45 UTC (rev 9807)
+++ trunk/externals/Makefile	2008-05-15 13:49:39 UTC (rev 9808)
@@ -1061,9 +1061,9 @@
 #	install -d $(readmesdir)
 #	install -p $(externals_src)/hcs/README \
 #		$(readmesdir)/$(HCS_NAME).txt
-#	install -d $(examplesdir)/$(HCS_NAME)
-#	install -p $(externals_src)/hcs/examples/*.pd \
-#g		$(examplesdir)/$(HCS_NAME)
+	install -d $(examplesdir)/$(HCS_NAME)
+	install -p $(externals_src)/hcs/examples/*.pd \
+		$(examplesdir)/$(HCS_NAME)
 
 hcs_clean:
 	-rm -f -- $(HCS_OBJECTS:.c=.$(EXTENSION))

Added: trunk/externals/hcs/examples/changing_the_colors.pd
===================================================================
--- trunk/externals/hcs/examples/changing_the_colors.pd	                        (rev 0)
+++ trunk/externals/hcs/examples/changing_the_colors.pd	2008-05-15 13:49:39 UTC (rev 9808)
@@ -0,0 +1,65 @@
+#N canvas 231 465 735 462 10;
+#X obj 133 416 hcs/sys_gui;
+#X msg 39 15 set canvas_fill green;
+#N canvas 0 22 492 479 default 0;
+#X obj 84 23 inlet;
+#X obj 74 366 outlet;
+#X obj 83 80 bang;
+#X msg 74 119 set canvas_fill "white" \, set text_color "#000" \, set
+select_color "#00f" \, set dash_outline "#f00" \, set dash_fill "#f7f7f7"
+\, set box_outline "#ccc" \, set graph_outline "#777" \, set atom_box_fill
+"#eee" \, set msg_box_fill "#f8f8f6" \, set obj_box_fill "#f6f8f8"
+\, set signal_cord_highlight "#58a" \, set signal_cord "#558" \, set
+signal_nlet $signal_cord \, set msg_cord_highlight "#474" \, set msg_cord
+"#565" \, set msg_nlet "white" \, set mixed_nlet "#88aaff";
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X restore 271 387 pd default color scheme;
+#X msg 271 365 bang;
+#X msg 47 35 set text_color grey50;
+#X msg 67 76 set dash_color orange;
+#X msg 57 55 set select_color magenta;
+#X msg 79 95 set dash_fill green;
+#X msg 87 115 set box_outline yellow;
+#X msg 97 135 set graph_outline green;
+#X msg 107 155 set atom_box_fill green;
+#X text 268 47 changes don't always take effect immediately \, open
+a new window to see the changes.;
+#X msg 119 175 set msg_box_fill green;
+#X msg 127 195 set obj_box_fill grey50;
+#X msg 137 215 set signal_cord_highlight magenta;
+#X msg 159 255 set signal_nlet green;
+#X msg 167 275 set msg_cord_highlight yellow;
+#X msg 177 295 set msg_cord green;
+#X msg 187 315 set msg_cord_nlet green;
+#X msg 197 335 set mixed_nlet green;
+#X text 297 115 you can use X11 color names or web colors;
+#X obj 325 144 pddp/pddplink http://en.wikipedia.org/wiki/X11_color_names
+;
+#X obj 326 164 pddp/pddplink http://en.wikipedia.org/wiki/Web_colors
+;
+#X obj 362 225 pddp/pddplink http://wiki.tcl.tk/1424;
+#X text 352 185 more on using color with Tcl/Tk:;
+#X obj 362 207 pddp/pddplink http://wiki.tcl.tk/3538 -text color values
+available for syntactic use in Tcl scripts;
+#X msg 147 236 set signal_cord #ffbb00;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 2 0;
+#X connect 4 0 0 0;
+#X connect 5 0 0 0;
+#X connect 6 0 0 0;
+#X connect 7 0 0 0;
+#X connect 8 0 0 0;
+#X connect 9 0 0 0;
+#X connect 10 0 0 0;
+#X connect 12 0 0 0;
+#X connect 13 0 0 0;
+#X connect 14 0 0 0;
+#X connect 15 0 0 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 0 0;
+#X connect 19 0 0 0;
+#X connect 26 0 0 0;


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