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