[PD-cvs] pd/src desire.tk,1.1.2.600.2.249,1.1.2.600.2.250
chunlee
chunlee at users.sourceforge.net
Mon Jul 30 05:35:21 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30810
Modified Files:
Tag: desiredata
desire.tk
Log Message:
AtomBox size and insert cursor bg fix
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.249
retrieving revision 1.1.2.600.2.250
diff -C2 -d -r1.1.2.600.2.249 -r1.1.2.600.2.250
*** desire.tk 30 Jul 2007 03:15:48 -0000 1.1.2.600.2.249
--- desire.tk 30 Jul 2007 03:35:17 -0000 1.1.2.600.2.250
***************
*** 2270,2279 ****
if {[string length $line] > $width} {set width [string length $line]}
}
! switch [$self class] {
! NumBox {set insertbg [$self look bg]}
! FloatBox {set insertbg [$self look bg]}
! SymbolBox {set insertbg [$self look bg]}
! default {set insertbg [$self look fg]}
! }
text $t -height $nl -width $width -relief flat -bg [$self look bgedit] -borderwidth 0 \
-highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground $insertbg
--- 2270,2274 ----
if {[string length $line] > $width} {set width [string length $line]}
}
! if {[[$self class] <= AtomBox]} {set insertbg [$self look bg]} else {set insertbg [$self look fg]}
text $t -height $nl -width $width -relief flat -bg [$self look bgedit] -borderwidth 0 \
-highlightthickness 0 -font $font_str -fg [$self look fg] -insertbackground $insertbg
***************
*** 2289,2297 ****
$t insert 1.0 $@text
#$t insert 1.0 [$self filter_text 1]
! $self resize none
focus $t
}
def TextBox resize {key} {
set c [$self cwidget]
set t $c.${self}text
--- 2284,2293 ----
$t insert 1.0 $@text
#$t insert 1.0 [$self filter_text 1]
! if {[[$self class] <= AtomBox]} {} else {$self resize none}
focus $t
}
def TextBox resize {key} {
+ if {[[$self class] <= AtomBox]} {return}
set c [$self cwidget]
set t $c.${self}text
More information about the Pd-cvs
mailing list