[REBOL] Re: feel engage not 'feeling' to well......
From: nitsch-lists:netcologne at: 17-Jun-2004 3:15
view layout[
style numbox field 30x30 font [size:35]
feel [engage: func[face action event /local pass] [
print event/type
pass: does[ctx-text/edit/engage face action event]
if event/type = 'key [
ch: event/key
if ch = 'left [pass exit]
if ch = 'right [pass exit]
if ch = #"^-" [pass exit]
if not find "0123456789" ch [
alert "Only digits can be entered" exit
]
]
pass
]
]
numbox
]
On Donnerstag, 17. Juni 2004 02:46, John Dutcher wrote: