created object based on tot to get Tcl/Tk version

svn path=/trunk/externals/hcs/; revision=8975

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;