pd/src desire.tk,1.1.2.398,1.1.2.399 - Pd-cvs

23 Aug 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
  }