pd/src desire.tk,1.1.2.486,1.1.2.487 - Pd-cvs

27 Sep 2006


      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