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