[REBOL] Re: Rebface 1247031 view behaviour
From: cyphre:seznam:cz at: 14-Jul-2004 8:31
Hi James,
the difference is caused by this:
In RebFace there is no initialized EVENT-PORT. This port have to be also in
system/ports/wait-list so when the VIEW function calls DO-EVENTS at his end,
interpreter goes to the wait loop. When there is nothing in the
system/ports/wait-list the wait [] loop return to the console.
So you need to "include" in RebFace this function: OPEN-EVENTS.
You can do it like this:
;add the fuction to the system/view object
system/view: make system/view [open-events: does [
if event-port [exit]
event-port: open [scheme: 'event]
event-port/awake: func [port] [wake-event port]
insert system/ports/wait-list event-port
]
]
;initialize and insert the EVENT-PORT
system/view/open-events
;try your example
view make face [size: 200x200 offset: 100x100]
HTH,
Cyphre