[PD-cvs] pd/src desire.tk,1.1.2.600.2.170,1.1.2.600.2.171
chunlee
chunlee at users.sourceforge.net
Tue Jan 23 18:59:34 CET 2007
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
More information about the Pd-cvs
mailing list