Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21378
Modified Files: Tag: devel_0_39 desire.tk Log Message: uncommnet a line in textbox unedit that brok a a few things
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.465 retrieving revision 1.1.2.466 diff -C2 -d -r1.1.2.465 -r1.1.2.466 *** desire.tk 12 Sep 2006 15:00:49 -0000 1.1.2.465 --- desire.tk 12 Sep 2006 17:13:55 -0000 1.1.2.466 *************** *** 1649,1652 **** --- 1649,1653 ---- if {$@edit} { set t [$@canvas widget].${self}text + puts [$t get 1.0 end] #$t configure -width [string length [$t get 1.0 1.end]] $t configure -width [string length [$t get $@longline.0 $@longline.end]] *************** *** 1670,1674 **** set @edit 1 set @tab_repeats 0 ! set @longline 0 $@canvas obj_in_edit= $self set @selected? 1 --- 1671,1675 ---- set @edit 1 set @tab_repeats 0 ! set @longline 1 $@canvas obj_in_edit= $self set @selected? 1 *************** *** 1683,1686 **** --- 1684,1688 ---- -bg [$c itemcget ${self}BASE -fill] -borderwidth 0 -highlightthickness 0\ -font $font_str -fg [$self look fg] + #bind $t <Key> "$self long_line; puts [$t get $@longline.0 $@longline.end] ;$self key %W %x %y %K %A 0" bind $t <Key> "$self key %W %x %y %K %A 0" bind $t <Control-Return> "$self key %W %x %y 10 %A 0" *************** *** 1710,1714 ****
def TextBox after_key {widget} { ! #$widget configure -state normal $self long_line $self changed --- 1712,1716 ----
def TextBox after_key {widget} { ! $widget configure -state normal $self long_line $self changed *************** *** 1724,1727 **** --- 1726,1730 ---- if {$len > $len2} {set @longline $line} } + puts " longline:::: $@longline" }
*************** *** 1836,1839 **** --- 1839,1843 ---- # this is called from the GUI; text= is reserved for server. def TextBox setto {text} { + puts "text:: $text" [$@canvas history] add [list $self setto $@text] set @text $text *************** *** 4950,4953 **** --- 4954,4958 ---- set i [$@listbox curselection] set class [string range [lindex [$@listbox get $i] 0] 1 end-1] + puts "completion:::: $class" $@textbox delete 1.0 1.end $@textbox insert 1.0 $class