[PD-cvs] pd/src desire.tk,1.1.2.486,1.1.2.487

[Mathieu Bouchard]

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