[PD-cvs] pd/src desire.tk,1.1.2.469,1.1.2.470
Mathieu Bouchard
matju at users.sourceforge.net
Fri Sep 15 23:34:54 CEST 2006
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
More information about the Pd-cvs
mailing list