Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29121
Modified Files: Tag: desiredata desire.tk Log Message: added reverse cycle through completions for the canvas evaluator
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.170 retrieving revision 1.1.2.600.2.171 diff -C2 -d -r1.1.2.600.2.170 -r1.1.2.600.2.171 *** desire.tk 23 Jan 2007 15:05:54 -0000 1.1.2.600.2.170 --- desire.tk 23 Jan 2007 17:59:30 -0000 1.1.2.600.2.171 *************** *** 3106,3112 **** bind $f.cmd <Control-p> "$@canvas cmd_up" bind $f.cmd <Control-n> "$@canvas cmd_down" ! bind $f.cmd <Tab> "$self completion" pack $f.cmd -side left -fill x -expand yes ! bind $f.cmd <Control-Tab> "$self traversal %K %W forward" if {[winfo exists .$@canvas.yscroll]} {set w .$@canvas.yscroll} else {set w .$@canvas.c} pack $f -side bottom -fill x -before $w --- 3106,3113 ---- bind $f.cmd <Control-p> "$@canvas cmd_up" bind $f.cmd <Control-n> "$@canvas cmd_down" ! bind $f.cmd <Tab> "$self completion +" ! bind $f.cmd <Control-Tab> "$self completion -" pack $f.cmd -side left -fill x -expand yes ! # bind $f.cmd <Control-Tab> "$self traversal %K %W forward" if {[winfo exists .$@canvas.yscroll]} {set w .$@canvas.yscroll} else {set w .$@canvas.c} pack $f -side bottom -fill x -before $w *************** *** 3156,3160 **** }
! def Runcommand completion {} { set f [$self widget] set text [$f.cmd get] --- 3157,3161 ---- }
! def Runcommand completion {which} { set f [$self widget] set text [$f.cmd get] *************** *** 3167,3171 **** if {![llength $@completions]} return set @comp [lindex $@completions $@comp_i] ! set @comp_i [expr ($@comp_i+1)%[llength $@completions]] if {![winfo exists $f.completion]} { label $f.completion -textvariable _($self:comp) -pady 0 --- 3168,3177 ---- if {![llength $@completions]} return set @comp [lindex $@completions $@comp_i] ! if {$which == "+"} { ! set @comp_i [expr ($@comp_i+1)%[llength $@completions]] ! } else { ! set @comp_i [expr $@comp_i-1] ! if {$@comp_i<0} {set @comp_i [expr [llength $@completions]-1]} ! } if {![winfo exists $f.completion]} { label $f.completion -textvariable _($self:comp) -pady 0