Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28029
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed ButtonBar problem with editmode
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.486 retrieving revision 1.1.2.487 diff -C2 -d -r1.1.2.486 -r1.1.2.487 *** desire.tk 27 Sep 2006 15:21:40 -0000 1.1.2.486 --- desire.tk 27 Sep 2006 16:04:34 -0000 1.1.2.487 *************** *** 4763,4767 ****
set butt { ! {object obj {obj_create %W butt}} {message msg {pd %W msg 0}} {number floatatom {pd %W floatatom 0}} --- 4763,4767 ----
set butt { ! {object obj {pd %W obj 0}} {message msg {pd %W msg 0}} {number floatatom {pd %W floatatom 0}} *************** *** 4812,4816 **** mset {icon name cmd} $e pack [button $bb.$name -image icon_$icon -border 1 \ ! -command [regsub -all -- %W $cmd .$@canvas]] -side left balloon $bb.$name [say $name] } --- 4812,4816 ---- mset {icon name cmd} $e pack [button $bb.$name -image icon_$icon -border 1 \ ! -command "$@canvas editmode= 1; [regsub -all -- %W $cmd .$@canvas]"] -side left balloon $bb.$name [say $name] } *************** *** 4823,4831 **** def ButtonBar widget {} {return .$@canvas.bbar}
! proc obj_create {c flag} { ! global _ focus ! set focus(createdby) $flag ! pd $c obj 0 ! } ############ crosshair
--- 4823,4828 ---- def ButtonBar widget {} {return .$@canvas.bbar}
! proc obj_create {c flag} {} ! ############ crosshair