[PD-cvs] pd/src desire.tk,1.1.2.600.2.124,1.1.2.600.2.125

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
last gop fixes


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.124
retrieving revision 1.1.2.600.2.125
diff -C2 -d -r1.1.2.600.2.124 -r1.1.2.600.2.125
*** desire.tk	20 Dec 2006 01:52:18 -0000	1.1.2.600.2.124
--- desire.tk	20 Dec 2006 02:09:00 -0000	1.1.2.600.2.125
***************
*** 1122,1126 ****
  	set canvas [$self get_canvas]
  	if {$canvas == ""} {return}
! 	set c [$canvas widget]
  	set zoom [$canvas zoom]
  	set coords [lmap * $coords $zoom]
--- 1122,1126 ----
  	set canvas [$self get_canvas]
  	if {$canvas == ""} {return}
! 	set c [$self cwidget]
  	set zoom [$canvas zoom]
  	set coords [lmap * $coords $zoom]
***************
*** 1882,1890 ****
  def Canvas get_canvas {} {
  	if {![info exists @gop]} {
! 		#if {[info exists @subpatch]} {if {$@subpatch} {return [$self canvas]}}
  		if {[info exists @abs]} {if {$@abs} {return [$self canvas]}}
  		if {[winfo exists .$self.c]} {return $self}
  	}
! 	if {[info exists @subpatch]} {if {$@subpatch} {return [$self canvas]}}
  	return [super]
  }
--- 1882,1890 ----
  def Canvas get_canvas {} {
  	if {![info exists @gop]} {
! 		if {[info exists @subpatch]} {if {$@subpatch} {return [$self canvas]}}
  		if {[info exists @abs]} {if {$@abs} {return [$self canvas]}}
  		if {[winfo exists .$self.c]} {return $self}
  	}
! 	#if {[info exists @subpatch]} {if {$@subpatch} {return [$self canvas]}}
  	return [super]
  }