[PD-cvs] pd/src desire.tk,1.1.2.600.2.225,1.1.2.600.2.226

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
tab completion box colors now derived from object bg/fg


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.225
retrieving revision 1.1.2.600.2.226
diff -C2 -d -r1.1.2.600.2.225 -r1.1.2.600.2.226
*** desire.tk	12 Jul 2007 16:08:39 -0000	1.1.2.600.2.225
--- desire.tk	13 Jul 2007 00:59:48 -0000	1.1.2.600.2.226
***************
*** 6395,6399 ****
  	$@listbox selection set 0 0
  }
! 
  def Completion fill_box {s} {
  	super $s
--- 6395,6399 ----
  	$@listbox selection set 0 0
  }
!  
  def Completion fill_box {s} {
  	super $s
***************
*** 6485,6489 ****
  	set @rooty [winfo rooty .$@name.c]
  	set @max [wm maxsize .$self]
! 
  	if {[regexp {x([0-9a-z]{6,8})text$} $@textbox textself]} {
  		set cut [string first "text" $textself]
--- 6485,6489 ----
  	set @rooty [winfo rooty .$@name.c]
  	set @max [wm maxsize .$self]
! 	#not sure what this if is for...
  	if {[regexp {x([0-9a-z]{6,8})text$} $@textbox textself]} {
  		set cut [string first "text" $textself]
***************
*** 6494,6499 ****
  		set @height [$canvas look showcomp]} else {set @height 20}
  	listbox $f -width $@width -height $@height -relief flat \
! 	    -bg [$canvas look bgedit] -selectbackground [$canvas look fg] \
! 	    -activestyle dotbox -selectforeground [$canvas look bgedit] -fg [$canvas look fg] \
  	    -font $look(View:font)
  	$self adjust_box
--- 6494,6499 ----
  		set @height [$canvas look showcomp]} else {set @height 20}
  	listbox $f -width $@width -height $@height -relief flat \
! 	    -bg [$@textself look bg] -selectbackground [$@textself look fg] \
! 	    -activestyle dotbox -selectforeground [$@textself look bg] -fg [$@textself look fg] \
  	    -font $look(View:font)
  	$self adjust_box