[PD-cvs] pd/src desire.tk,1.1.2.469,1.1.2.470

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6610

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
classbrowser fix


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.469
retrieving revision 1.1.2.470
diff -C2 -d -r1.1.2.469 -r1.1.2.470
*** desire.tk	14 Sep 2006 07:24:38 -0000	1.1.2.469
--- desire.tk	15 Sep 2006 21:34:50 -0000	1.1.2.470
***************
*** 1246,1249 ****
--- 1246,1250 ----
  def Canvas editmodeswitch {args} {$self editmode= [expr !$@editmode]}
  def Canvas window {} {
+ 	puts "GOP = $@gop"
  	if {$@gop} {return [$@canvas window]}
  	return .$self
***************
*** 4828,4832 ****
  	set @width 0
  	set @height 0
- 	set @select 0
  	# so that in completion mode, it know which textbox to switch the focus to
  	set @textbox $textbox
--- 4829,4832 ----
***************
*** 4877,4880 ****
--- 4877,4881 ----
  def ClassBrowser info {listbox} {
  	set i [$listbox curselection]
+ 	if {$i == ""} {return}
  	set class [string range [lindex [$listbox get $i] 0] 1 end-1]
  	pd pd update-class-info $class $self info_callback
***************
*** 4919,4922 ****
--- 4920,4924 ----
  		bind $w <Shift-KeyPress> "after 1 \"$self key %K 1\""
  	}
+ 	focus $@textbox
  }
  
***************
*** 5005,5011 ****
   	switch -regexp -- $key {
  		Up|Down {
! 			focus $@listbox
! 			set @select 0
! 			if {$self == "browser"} {$self info $@listbox}
  		}
  		Escape {after 1 "$self cancel"} ;# doesn't really work
--- 5007,5016 ----
   	switch -regexp -- $key {
  		Up|Down {
! 			if {[focus] != $@listbox} {
! 				focus $@listbox
! 				event generate $@listbox <KeyPress> -keysym $key
! 			} else {
! 				if {$self == "browser"} {$self info $@listbox}
! 			}
  		}
  		Escape {after 1 "$self cancel"} ;# doesn't really work
***************
*** 5034,5038 ****
  				if {[regexp {^[a-zA-Z0-9~/\._]{1}$} $key]} {
  					switch $self {
! 						browser {.$self.butt.2 insert end $key}
  						completion {
  							$@textbox insert 1.end $key
--- 5039,5046 ----
  				if {[regexp {^[a-zA-Z0-9~/\._]{1}$} $key]} {
  					switch $self {
! 						browser {
! 							.$self.butt.2 insert end $key
! 							$self fill_box [$@textbox get]
! 						}
  						completion {
  							$@textbox insert 1.end $key