Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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