pd/src desire.tk,1.1.2.600.2.124,1.1.2.600.2.125 - Pd-cvs

20 Dec 2006


      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]
  }