From d9072a0e0ecb227c9a42dddf027e29a04f080f4e Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Sun, 29 Feb 2004 17:16:44 +0000
Subject: scriptlet bugs: qpush and params

svn path=/trunk/externals/miXed/; revision=1365
---
 test/toxy/default.wid | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'test')

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
-- 
cgit v1.2.1