aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2007-11-09 20:11:27 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2007-11-09 20:11:27 +0000
commit747e12cf099e8af4defb4b0ccd44b0dea2c20da9 (patch)
treec35225ccc2c85d2b04b7c533ca2ea0c25f779d8d
parenta32020485a2f03948e06f8b163999dcfcd86e89e (diff)
created object based on tot to get Tcl/Tk version
svn path=/trunk/externals/hcs/; revision=8975
-rw-r--r--tcl_version-help.pd13
-rw-r--r--tcl_version.pd12
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;