[REBOL] Re: selective view feel...
From: greggirwin:mindspring at: 23-Nov-2001 11:01
Hi Max,
<< Is an insert-event-func example available anywhere? >>
Here's one someone sent me a while back, can't remember who though...maybe
Cyphre or Anton. I stored it out of context and neglected to grab the
source. Credit to...whomever. :)
my-func: func [f e][probe e/type return e]
view layout [
button 200x20 "insert my-func" [
if not find system/view/screen-face/feel/event-funcs :my-func [
insert-event-func :my-func
]
]
button 200x20 "remove my-func" [remove-event-func :my-func]
]
--Gregg
