[PD-cvs] pd/src desire.tk,1.1.2.600.2.251,1.1.2.600.2.252

[chunlee]

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