[PD-cvs] externals/miXed/test/toxy default.wid,1.4,1.5
krzyszcz at users.sourceforge.net
krzyszcz at users.sourceforge.net
Sun Feb 29 18:16:47 CET 2004
Update of /cvsroot/pure-data/externals/miXed/test/toxy
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9512/test/toxy
Modified Files:
default.wid
Log Message:
scriptlet bugs: qpush and params
Index: default.wid
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/test/toxy/default.wid,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** default.wid 25 Feb 2004 10:54:43 -0000 1.4
--- default.wid 29 Feb 2004 17:16:44 -0000 1.5
***************
*** 163,167 ****
set [$path cget -textvariable] $text
pd [concat $target _cb $i \;]
! pd [concat $remote $i \;]
}
--- 163,169 ----
set [$path cget -textvariable] $text
pd [concat $target _cb $i \;]
! if {$remote != "."} {
! pd [concat $remote $i \;]
! }
}
***************
*** 223,224 ****
--- 225,235 ----
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
More information about the Pd-cvs
mailing list