[PD-cvs] pd/src desire.tk,1.1.2.600.2.249,1.1.2.600.2.250

[chunlee]

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