[REBOL] Re: Disabling shortcut Keys for text field entry?
From: brett:codeconscious at: 8-Jul-2001 18:12
Here's another way. You could change the detect function of
system/view/window-feel which is reponsible for handling
shortcut keys. I've put an example below. My example is bloated by some
supporting code that allows me to install the
change and uninstall it again later.
The bit that makes it work is the function "install-nofieldshortcuts".
Note that in the version of the code shortcuts are "turned off" for fields
but still operational for areas so you can compare.
install-nofieldshortcuts: does [
system/view/window-feel: make system/view/window-feel [
detect: func [face event] [
either all [
event/type = 'key
equal? system/view/focal-face/style 'field
] [event] [old-detect face event]
old-detect: get in system/view/window-feel 'detect
uninstall-nofieldshortcuts: does [
use [wf] [
set in wf 'detect get in wf 'old-detect
view layout [
button "press" #"a" [print "button pressed - a"]
print "Installing shortcut trap"
print "Installing event function"
evtfunc: insert-event-func [
if equal? event/type 'close [
print "Removing shortcut trap"
print "Removing event function"