[PD-cvs] pd/src desire.tk,1.1.2.398,1.1.2.399

chunlee chunlee at users.sourceforge.net
Wed Aug 23 18:30:45 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fix for my previous commit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.398
retrieving revision 1.1.2.399
diff -C2 -d -r1.1.2.398 -r1.1.2.399
*** desire.tk	23 Aug 2006 16:20:54 -0000	1.1.2.398
--- desire.tk	23 Aug 2006 16:30:40 -0000	1.1.2.399
***************
*** 1787,1791 ****
  def TextBox text {} {return $text}
  
! def* TextBox draw {} {
      global font
      #$self update_size
--- 1787,1791 ----
  def TextBox text {} {return $text}
  
! def TextBox draw {} {
      global font
      #$self update_size
***************
*** 1934,1938 ****
  }
  
! def* ObjectBox draw {} {
  	super
          $self draw_io
--- 1934,1938 ----
  }
  
! def ObjectBox draw {} {
  	super
          $self draw_io
***************
*** 3370,3373 ****
--- 3370,3374 ----
  	if {[$self selected?]} {set frcol [$self look selectframe]} {set frcol [$self look frame3]}
  	$self item BASE polygon $points -fill [$self look bg] -outline $frcol -width 1
+ 	.$@canvas.c lower ${self}BASE ${self}TEXT
  }
  
***************
*** 3438,3441 ****
--- 3439,3443 ----
  	$self item BASE1 line      $xyb -fill [$self look frame1]
  	$self item BASE2 line      $xyc -fill [$self look frame2]
+ 	.$@canvas.c lower ${self}BASE ${self}TEXT
  }
  





More information about the Pd-cvs mailing list