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