[REBOL] Catching the Close Event

From: gchiu:compkarori at: 12-Jan-2003 17:31

Hi Phil,

This is abstracted from Gorim on the CompKarori rebsite.  The basis for
this code came from Cyphre.

win1/data: "chatwindow"
win2/data: "gomokuboard"

f: func [f e][
        if e/type = 'resize [
                switch e/face/data [
                        "chatwindow" [ resize-window win1/size ]
                        "gomokuboard" [ resize-window win2/size ]
                ]
        ]

        if e/type = 'close [
                switch e/face/data [
                        "chatwindow" [ quit-prg ]
                        "gomokuboard" [ close-board ]
                ]
        ]
        return e
]

insert-event-func :f

BTW, what happened to your chess program.  Have you developed it any
further?

--
Regards,  Graham Chiu
http://www.compkarori.com/cerebrus

1 · 2 · [3] · 4 · 5 · 6 · 7 · See whole thread