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

Modified Files: Tag: desiredata desire.tk Log Message: AtomBox improvement

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.251 retrieving revision 1.1.2.600.2.252 diff -C2 -d -r1.1.2.600.2.251 -r1.1.2.600.2.252 *** desire.tk 30 Jul 2007 04:35:07 -0000 1.1.2.600.2.251 --- desire.tk 30 Jul 2007 05:00:08 -0000 1.1.2.600.2.252 *************** *** 2270,2276 **** 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 bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0" bind $t <Control-Return> "$self key_input %W %x %y 10 %A 0" --- 2270,2283 ---- if {[string length $line] > $width} {set width [string length $line]} } ! if {[[$self class] <= AtomBox]} { ! set insertbg [$self look bg] ! #so don't have red as object bg for now.. ! set fg "red" ! } else { ! set insertbg [$self look fg] ! set fg [$self look fg] ! } text $t -height $nl -width $width -relief flat -bg [$self look bgedit] -borderwidth 0 \ ! -highlightthickness 0 -font $font_str -fg $fg -insertbackground $insertbg bind $t <Key> "$self resize %K; $self key_input %W %x %y %K %A 0" bind $t <Control-Return> "$self key_input %W %x %y 10 %A 0" *************** *** 4959,4962 **** --- 4966,4978 ---- }

+ proc brighter {c} { + scan $c #%02x%02x%02x r g b + set r [min 255 [expr $r*4/3]] + set g [min 255 [expr $g*4/3]] + set b [min 255 [expr $b*4/3]] + return [format #%02x%02x%02x $r $g $b] + } + + proc parse_color {c} { regsub {;$} $c {} c