[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