Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5986
Modified Files: Tag: desiredata desire.tk Log Message: tweak for previous commit
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.261 retrieving revision 1.1.2.600.2.262 diff -C2 -d -r1.1.2.600.2.261 -r1.1.2.600.2.262 *** desire.tk 1 Aug 2007 17:49:10 -0000 1.1.2.600.2.261 --- desire.tk 1 Aug 2007 18:50:00 -0000 1.1.2.600.2.262 *************** *** 1995,2004 ****
set obj_history {} def Canvas add_to_obj_history {obj} { if {![[$obj class] <= ObjectBox]} {return} set ::obj_history [linsert $::obj_history 0 [$obj text]] ! if {[llength $::obj_history] >= 5} {set ::obj_history [lrange $::obj_history 0 4]} ! puts "history:::::: $::obj_history" ! }
--- 1995,2004 ----
set obj_history {} + set obj_history_num 5 def Canvas add_to_obj_history {obj} { + set i $::obj_history_num if {![[$obj class] <= ObjectBox]} {return} set ::obj_history [linsert $::obj_history 0 [$obj text]] ! if {[llength $::obj_history] >= $i} {set ::obj_history [lrange $::obj_history 0 [expr $i-1]]} }
*************** *** 2275,2278 **** --- 2275,2281 ---- set @tab_repeats 0 set @histi -1 + set @hist $::obj_history + set @tmp_text {} + set @hist_on 0 # stores which line is the longest if multiple line set @longline 1 *************** *** 2344,2347 **** --- 2347,2351 ---- set t $c.${self}text if {[[$self class] <= AtomBox]} {if {$@clear} {$t delete 1.0 1.end; set @clear 0}} + set @tmp_text [$t get 1.0 1.end]$key switch -- $key { Tab { *************** *** 2361,2367 ****
def TextBox scroll_history {incr} { if {![llength $::obj_history]} {return} set @histi [expr $@histi + $incr] ! set mod [expr ([llength $::obj_history]<5) ?[llength $::obj_history]:5] if {$@histi >=$mod} {set @histi [expr $@histi%$mod]} if {$@histi < 0} {set @histi [expr ($@histi+$mod)%$mod]} --- 2365,2373 ----
def TextBox scroll_history {incr} { + set i $::obj_history_num if {![llength $::obj_history]} {return} + if {$@tmp_text != "" && !$@hist_on} {lappend @hist $@tmp_text; set @hist_on 1} set @histi [expr $@histi + $incr] ! set mod [expr ([llength $@hist]<[expr $i+1]) ?[llength $@hist]:[expr $i+1]] if {$@histi >=$mod} {set @histi [expr $@histi%$mod]} if {$@histi < 0} {set @histi [expr ($@histi+$mod)%$mod]} *************** *** 2369,2374 **** set t $c.${self}text $t delete 1.0 1.end ! set text [lindex $::obj_history $@histi] ! $t insert 1.0 [lindex $::obj_history $@histi] $t configure -width [string length $text] $self update_size --- 2375,2380 ---- set t $c.${self}text $t delete 1.0 1.end ! set text [lindex $@hist $@histi] ! $t insert 1.0 $text $t configure -width [string length $text] $self update_size *************** *** 2489,2494 **** set xya [$self bbox] mset {x1 y1 x2 y2} $xya - puts "width::::: [expr $x2-$x1]" - puts "height::::: [expr $y2-$y1]" #set xyb [l+ [list $x2 $y1 $x1 $y1 $x1 $y2] [list -1 +1 +1 +1 +1 -1]] #set xyc [l+ [list $x2 $y1 $x2 $y2 $x1 $y2] [list -1 +1 -1 -1 +1 -1]] --- 2495,2498 ----