[ALLY] event! experiment...
From: cyphre::volny::cz at: 19-Jun-2001 12:37
Hi list,
This question is probably for Holger but feel free to respond ;-)
Holger some time ago said that there may be possibility to create/change
/View events. I played with this idea a bit but with a small succes :((
How can I create my own event!, I cannot understand the structure of this
datatype...
Here are my observations:
I hard-hacked wake-event function which is probably the first point where
events are sent from event-port:
system/view/wake-event: func [port /local event] [event: pick port 1 probe
reduce [event/1 event/2 event/3 event/4 event/5 event/6] false]
then try to view something:
view layout [button "test"]
and the results were:
event/1 is type flag
event/2 is key flag
event/3 is offset pair
event/4 is time stamp
event/5 is shift flag
event/6 is control flag
event/7 is face object (this is not in the hack above because of too big
face-listing (-; )
(I can continue
is there any onther parameters (probably secret (-; ) ?
but how can I change it???
event/1: 'close
** Script Error: Invalid path value: 1
** Where: wake-event
** Near: event/1: 'close probe reduce [event/1 event/2 event/3 event/4
event/5 event/6]
>>
any ideas??
Reagrds,
Cyphre
PS: I hope someone (probably Holger) will react on that and don't keep in
secret this possible feature for allies ;-)