[PD-cvs] pd/src desire.tk,1.1.2.520,1.1.2.521
chunlee
chunlee at users.sourceforge.net
Fri Oct 20 02:37:04 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29061
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
cleaned up ClassBrowser key a bit, hope nothing got brok...
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.520
retrieving revision 1.1.2.521
diff -C2 -d -r1.1.2.520 -r1.1.2.521
*** desire.tk 19 Oct 2006 23:50:04 -0000 1.1.2.520
--- desire.tk 20 Oct 2006 00:37:01 -0000 1.1.2.521
***************
*** 5548,5555 ****
def ClassBrowser key {key {shift 0}} {
- if {[regexp {x([0-9a-z]{6,8})text$} $@textbox textself]} {
- set cut [string first "text" $textself]
- set textself [string range $textself 0 [expr $cut -1]]
- }
switch -regexp -- $key {
Up|Down {
--- 5548,5551 ----
***************
*** 5579,5626 ****
switch $self {
browser {$self fill_box [$@textbox get]}
! completion {
! $self adjust_box
! #$self fill_box [$@textbox get 1.0 1.end]
! #.$self.comp configure -width $@width
! }
}
}
default {
! if {[focus] == $@listbox} {
! 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
! $textself after_key $@textbox
! #$self fill_box [$@textbox get 1.0 1.end]
! #.$self.comp configure -width $@width
! $self adjust_box
! focus $@textbox
! }
! }
! }
! }
! switch $self {
! browser {
! if {[focus] == $@listbox} {return} else {$self fill_box [$@textbox get]}
! }
! completion {
! if {[focus] == $@textbox & $key != "Tab"} {
! if {[winfo exists .$self]} {
! #$self fill_box [$@textbox get 1.0 1.end]
! #.$self.comp configure -width $@width
! $self adjust_box
! }
! #hum, no idea why i need after 1 for it to work...
! after 1 $textself after_key $@textbox
! }
! }
! }
}
}
}
--- 5575,5611 ----
switch $self {
browser {$self fill_box [$@textbox get]}
! completion {$self adjust_box}
}
}
default {
! $self key_default $key
! }
! }
! }
!
! def Browser key_default {key} {
! if {[focus] == $@listbox} {
! if {[regexp {^[a-zA-Z0-9~/\._]{1}$} $key]} {
! .$self.butt.2 insert end $key
! $self fill_box [$@textbox get]
}
}
+ if {[focus] == $@listbox} {return} else {$self fill_box [$@textbox get]}
+ }
+
+ def Completion key_default {key} {
+ if {[focus] == $@listbox} {
+ if {[regexp {^[a-zA-Z0-9~/\._]{1}$} $key]} {
+ $@textbox insert 1.end $key
+ $@textself after_key $@textbox
+ $self adjust_box
+ focus $@textbox
+ }
+ }
+ if {[focus] == $@textbox & $key != "Tab"} {
+ $self adjust_box
+ #hum, no idea why i need after 1 for it to work...
+ after 1 $@textself after_key $@textbox
+ }
}
More information about the Pd-cvs
mailing list