[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