aboutsummaryrefslogtreecommitdiff
path: root/test/toxy
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2004-02-29 17:16:44 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2004-02-29 17:16:44 +0000
commitd9072a0e0ecb227c9a42dddf027e29a04f080f4e (patch)
tree9fe2c53b5227af13a38a79488731f5385dc408b7 /test/toxy
parent7932bdec0718f93a4b29eddb3c62ec5068b37bec (diff)
scriptlet bugs: qpush and params
svn path=/trunk/externals/miXed/; revision=1365
Diffstat (limited to 'test/toxy')
-rw-r--r--test/toxy/default.wid13
1 files changed, 12 insertions, 1 deletions
diff --git a/test/toxy/default.wid b/test/toxy/default.wid
index 5553c92..c7898af 100644
--- a/test/toxy/default.wid
+++ b/test/toxy/default.wid
@@ -162,7 +162,9 @@ proc ::toxy::scalecommand {target sel v} {
proc ::toxy::popupcommand {path target remote i text} {
set [$path cget -textvariable] $text
pd [concat $target _cb $i \;]
- pd [concat $remote $i \;]
+ if {$remote != "."} {
+ pd [concat $remote $i \;]
+ }
}
proc ::toxy::popup {path target remote entries args} {
@@ -222,3 +224,12 @@ bind .- <Leave> .<|_inout 0.>
#. @symbol .- delete 0 end .: .- insert 0 .#1
bind .- <Return> {eval .<[.- get].>; focus .^.c}
+
+#> popup menubutton
+#. -menu .-.pop
+#. -bg purple -fg white -activebackground magenta -width 8 -text popup
+#. @float if .(.#1 >= 1.) .(.-.pop invoke .#1.)
+#. #items test
+#. #iprops "-bg" purple "-fg" white "-activebackground" magenta
+
+::toxy::popup .- .| . [concat .#items] .#iprops