OpenEuphoria

Re: Windows RED button (again)

• Posted by Tommy Carlier <tommy.carlier at telenet.be> Feb 14, 2005
• 450 views

global integer record_no, ok_or_cancel_clicked
record_no = -1
ok_or_cancel_clicked = 0

procedure onOpenWindow(integer self, integer event, sequence params)
    ok_or_cancel_clicked = 0
end procedure
setHandler(my_window, w32HOpen, routine_id("onOpenWindow"))

procedure onButtonsClicked(integer self, integer event, sequence params)
    if self = OKButton then record_no = getItemRecordNumber()
    elsif self = CancelButton then record_no = -1
    end if
    ok_or_cancel_clicked = 1
    closeWindow(my_window)
end procedure
setHandler({OKButton, CancelButton}, w32HClick, routine_id("onButtonsClicked"))

procedure onCloseWindow(integer self, integer event, sequence params)
    if ok_or_cancel_clicked then
        -- the window was closed by clicking OK or cancel
    else
        -- the window was closed by clicking the red X button
    end if
end procedure
setHandler(my_window, w32HClose, routine_id("onCloseWindow"))

--
The Internet combines the excitement of typing 
with the reliability of anonymous hearsay.
tommy online: http://users.telenet.be/tommycarlier
tommy.blog: http://tommycarlier.blogspot.com