diff options
| -rw-r--r-- | tcl_version-help.pd | 13 | ||||
| -rw-r--r-- | tcl_version.pd | 12 |
2 files changed, 25 insertions, 0 deletions
diff --git a/tcl_version-help.pd b/tcl_version-help.pd new file mode 100644 index 0000000..d00e01c --- /dev/null +++ b/tcl_version-help.pd @@ -0,0 +1,13 @@ +#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; diff --git a/tcl_version.pd b/tcl_version.pd new file mode 100644 index 0000000..058ba33 --- /dev/null +++ b/tcl_version.pd @@ -0,0 +1,12 @@ +#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; |