Update of /cvsroot/pure-data/externals/miXed/test/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12072/test/toxy
Added Files: lbpict-test.pd lbpict.wid testmess-test.pd testmess.wid tot-color.pd Log Message:
--- NEW FILE: testmess-test.pd --- #N canvas 235 56 752 558 12; #X obj 326 23 widget testmess t; #X obj 122 241 tow . testmess t; #X msg 141 113 1; #X msg 122 75 1 2 3 4 5 6 7 8 9 10; #X msg 245 113 1 2 test; #X floatatom 243 194 0 0 0 0 - - -; #X obj 14 152 testmess 20; #X msg 76 28 50; #X msg 137 28 100; #X msg 190 113 list; #X msg 14 113 set $1 , bang; #X msg 14 28 20; #X floatatom 14 75 5 0 0 0 - - -; #X obj 16 241 r lb; #X obj 122 194 t b a; #X obj 243 152 tow . testmess t; #X msg 16 282; #X msg 212 28 debug; #X connect 2 0 14 0; #X connect 3 0 14 0; #X connect 4 0 14 0; #X connect 6 0 14 0; #X connect 7 0 12 0; #X connect 8 0 12 0; #X connect 9 0 14 0; #X connect 10 0 6 0; #X connect 11 0 12 0; #X connect 12 0 10 0; #X connect 13 0 16 0; #X connect 14 0 1 0; #X connect 14 1 1 0; #X connect 15 0 5 0; #X connect 17 0 15 0; #X connect 17 0 0 0;
--- NEW FILE: testmess.wid --- puts setup
proc testmess_list {path target args} { set sum 0 foreach a $args { incr sum $a } set lb [concat [lindex $args 0]] foreach a [lrange $args 1 end] { lappend lb + $a } lappend lb = $sum set [$path cget -textvariable] $lb pd [concat $target _cb $sum ;] }
proc testmess_command {path} { pd [concat lb set [set [$path cget -textvariable]] ;] }
#> testmess button #. -bg green -wraplength 350 -text test #. -command [concat testmess_command .-] #. @bang .- invoke #. @float testmess_list .- .| .#args #. @list testmess_list .- .| .#args
puts initializer
#@ new puts constructor
#@ free puts destructor
--- NEW FILE: lbpict-test.pd --- #N canvas 0 0 756 516 12; #X obj 47 50 widget lbpict p1 #fname /usr/lib/tk8.4/demos/images/earth.gif ;
--- NEW FILE: lbpict.wid --- proc ::toxy::lbpict {path fname} { $path config -image [image create photo -file $fname] }
#> lbpict label
::toxy::lbpict .- .#fname
--- NEW FILE: tot-color.pd --- #N canvas 307 84 527 317 12; #X obj 20 92 tot .; #X msg 82 73 query winfo rgb . green; #X obj 20 129 unpack 0 0 0; #X obj 20 168 / 256; #X obj 95 168 / 256; #X obj 170 168 / 256; #X obj 20 276 print; #X obj 20 241 pack 0 0 0; #X obj 20 205 int; #X obj 95 205 int; #X obj 170 205 int; #X msg 20 22 query set cl [tk_chooseColor] .: if .($cl != "".) .(winfo rgb . $cl.); #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 2 1 4 0; #X connect 2 2 5 0; #X connect 3 0 8 0; #X connect 4 0 9 0; #X connect 5 0 10 0; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 7 1; #X connect 10 0 7 2; #X connect 11 0 0 0;