*** empty log message ***

svn path=/trunk/externals/miXed/; revision=2361

1 files changed, 34 insertions, 0 deletions

diff --git a/test/toxy/testmess.wid b/test/toxy/testmess.wid
new file mode 100644
index 0000000..3263fa4
--- /dev/null
+++ b/test/toxy/testmess.wid
@@ -0,0 +1,34 @@
+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