pd/src desire.tk,1.1.2.195,1.1.2.196 - Pd-cvs

3 May 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4355
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
added up/down key browse support, see focus_switch
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.195
retrieving revision 1.1.2.196
diff -C2 -d -r1.1.2.195 -r1.1.2.196
*** desire.tk	29 Apr 2006 15:14:00 -0000	1.1.2.195
--- desire.tk	3 May 2006 11:48:47 -0000	1.1.2.196
***************
*** 3218,3221 ****
--- 3218,3222 ----
  def ClassBrowser init {name} {
    set @name $name
+ 	set @focus ""
    pd pd update-path
          pd pd update-class-list $self list_callback
***************
*** 3289,3296 ****
    pack $b -side bottom -fill x -expand no
    $self fill_box ""
! 	bind $f.1 <Button-1> "after 1 "$self info""
! 	#bind $b.2 <KeyPress> {after 1 "  $self fill_box [.browser.butt.2 get]"}
! 	bind $b.2 <KeyPress> {after 1 "browser fill_box [.browser.butt.2 get]"}
! 	after 1 "focus $b.2"
  }
--- 3290,3316 ----
    pack $b -side bottom -fill x -expand no
    $self fill_box ""
! 	#bind $f.1 <Button-1> "after 1 "$self info""
! 	bind $f.1 <Button-1> "after 1 "$self focus_switch Up""
! 	bind $f.1 <KeyPress> "after 1 "$self focus_switch %K""
! 	#bind $b.2 <KeyPress> {after 1 "browser fill_box [.browser.butt.2 get]"}
! 	bind $b.2 <KeyPress> "after 1 "$self focus_switch %K""
! 	#after 1 "focus $b.2"
! }
! 
! def ClassBrowser focus_switch {key} {
! 	if {$key != "Down" & $key != "Up"} {
! 		if {$@focus == "listbox"} {
! 		if {[regexp {^[a-zA-Z]{1}$} $key]} {.$self.butt.2 insert end $key}
! 		}
! 		focus .$self.butt.2
! 		set @focus "entry"
! 		$self fill_box [.$self.butt.2 get]
! 	} else {
! 		focus .$self.cl.1
! 		set @focus "listbox"
! 		$self info
! 	}
! 
! 
  }