[PD-cvs] pd/src desire.tk,1.1.2.600.2.121,1.1.2.600.2.122

Mathieu Bouchard matju at users.sourceforge.net
Wed Dec 20 02:24:39 CET 2006


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
some more GOP fixes


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.121
retrieving revision 1.1.2.600.2.122
diff -C2 -d -r1.1.2.600.2.121 -r1.1.2.600.2.122
*** desire.tk	20 Dec 2006 00:50:30 -0000	1.1.2.600.2.121
--- desire.tk	20 Dec 2006 01:24:35 -0000	1.1.2.600.2.122
***************
*** 2124,2128 ****
  
  def TextBox draw_edit {} {
! 	set c [$@canvas widget]
  	if {[lsearch [$@canvas selection] $self] < 0} {$@canvas selection+= $self}
  	set t $c.${self}text
--- 2124,2128 ----
  
  def TextBox draw_edit {} {
! 	set c [[$self get_canvas] widget]
  	if {[lsearch [$@canvas selection] $self] < 0} {$@canvas selection+= $self}
  	set t $c.${self}text
***************
*** 2164,2168 ****
  
  def TextBox resize {key} {
! 	set c [$@canvas widget]
  	set t $c.${self}text
  	$self long_line
--- 2164,2168 ----
  
  def TextBox resize {key} {
! 	set c [[$self get_canvas] widget]
  	set t $c.${self}text
  	$self long_line
***************
*** 2201,2205 ****
  #checks which line should be used as the width of the objectbox
  def TextBox long_line {} {
! 	set c [$@canvas widget]
  	set t $c.${self}text
  	set lines [lindex [$t configure -height] 4]
--- 2201,2205 ----
  #checks which line should be used as the width of the objectbox
  def TextBox long_line {} {
! 	set c [[$self get_canvas] widget]
  	set t $c.${self}text
  	set lines [lindex [$t configure -height] 4]
***************
*** 2363,2367 ****
  	if {!$@edit} {return}
  	set @edit 0; $self changed edit
! 	set c [$@canvas widget]
  	set t $c.${self}text
  	if {$accept} {$self setto [$t get 1.0 "end - 1 chars"]}
--- 2363,2367 ----
  	if {!$@edit} {return}
  	set @edit 0; $self changed edit
! 	set c [[$self get_canvas] widget]
  	set t $c.${self}text
  	if {$accept} {$self setto [$t get 1.0 "end - 1 chars"]}





More information about the Pd-cvs mailing list