externals/miXed/test/toxy default.wid,1.4,1.5 - Pd-cvs

29 Feb 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