[PD-cvs] pd/src desire.tk,1.1.2.549,1.1.2.550

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11684

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixing the problem with iemgui coordinates upon creation of objects.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.549
retrieving revision 1.1.2.550
diff -C2 -d -r1.1.2.549 -r1.1.2.550
*** desire.tk	15 Nov 2006 16:15:44 -0000	1.1.2.549
--- desire.tk	16 Nov 2006 18:37:30 -0000	1.1.2.550
***************
*** 1702,1711 ****
  }
  
! def Canvas new_object {sel} {
  	$self editmode= 1
  	mset {x y} $@curpos
  	set x1 [expr $x/$@zoom]
  	set y1 [expr $y/$@zoom]
! 	pd .$self $sel $x $y
  }
  
--- 1702,1711 ----
  }
  
! def Canvas new_object {sel args} {
  	$self editmode= 1
  	mset {x y} $@curpos
  	set x1 [expr $x/$@zoom]
  	set y1 [expr $y/$@zoom]
! 	eval [concat [list pd .$self $sel $x $y] $args]
  }
  
***************
*** 1766,1779 ****
  def Canvas Symbol  {} {$self new_object symbolatom}
  def Canvas Comment {} {$self new_object text}
! def Canvas Bang    {} {$self new_object bng}
! def Canvas Toggle  {} {$self new_object toggle}
! def Canvas Number2 {} {$self new_object numbox}
! def Canvas Vslider {} {$self new_object vslider}
! def Canvas Hslider {} {$self new_object hslider}
! def Canvas Vradio  {} {$self new_object vradio}
! def Canvas Hradio  {} {$self new_object hradio}
! def Canvas VU      {} {$self new_object vumeter}
! def Canvas dropper {} {$self new_object dropper}
! def Canvas Canvas  {} {$self new_object mycnv}
  def Canvas Graph   {} {$self editmode= 1; pd .x$self graph    }
  def Canvas Array   {} {$self editmode= 1; pd .x$self menuarray}
--- 1766,1779 ----
  def Canvas Symbol  {} {$self new_object symbolatom}
  def Canvas Comment {} {$self new_object text}
! def Canvas Bang    {} {$self new_object obj bng}
! def Canvas Toggle  {} {$self new_object obj toggle}
! def Canvas Number2 {} {$self new_object obj numbox}
! def Canvas Vslider {} {$self new_object obj vslider}
! def Canvas Hslider {} {$self new_object obj hslider}
! def Canvas Vradio  {} {$self new_object obj vradio}
! def Canvas Hradio  {} {$self new_object obj hradio}
! def Canvas VU      {} {$self new_object obj vumeter}
! def Canvas dropper {} {$self new_object obj dropper}
! def Canvas Canvas  {} {$self new_object obj mycnv}
  def Canvas Graph   {} {$self editmode= 1; pd .x$self graph    }
  def Canvas Array   {} {$self editmode= 1; pd .x$self menuarray}