scriptlet bugs: qpush and params

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

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