externals/hcs tcl_version.pd, NONE, 1.1 tcl_version-help.pd, NONE, 1.1 - Pd-cvs

9 Nov 2007


      Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24499
Added Files:
    tcl_version.pd tcl_version-help.pd 
Log Message:
created object based on tot to get Tcl/Tk version
--- NEW FILE: tcl_version.pd ---
#N canvas 512 371 345 212 10;
#X msg 96 69 query concat [info patchlevel];
#X obj 96 103 toxy/tot .;
#X obj 96 126 zexy/symbol2list .;
#X obj 96 151 outlet;
#X obj 96 42 bang;
#X obj 96 16 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
--- NEW FILE: tcl_version-help.pd ---
#N canvas 951 522 454 304 10;
#X obj 127 117 tcl_version;
#X msg 127 70 bang;
#X obj 127 157 unpack float float float;
#X floatatom 126 186 5 0 0 3 major - -;
#X floatatom 195 185 5 0 0 3 minor - -;
#X floatatom 267 186 5 0 0 3 bugfix - -;
#X text 53 21 get the current Tcl/Tk version:;
#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;