aboutsummaryrefslogtreecommitdiff
path: root/test/toxy/testmess.wid
diff options
context:
space:
mode:
Diffstat (limited to 'test/toxy/testmess.wid')
-rw-r--r--test/toxy/testmess.wid34
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