[PD-cvs] externals/miXed/test/toxy lbpict-test.pd,NONE,1.1 lbpict.wid,NONE,1.1 testmess-test.pd,NONE,1.1 testmess.wid,NONE,1.1 tot-color.pd,NONE,1.1

[Krzysztof Czaja]

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;