OpenEuphoria

Re: Close Button

• Posted by Greg Haberek <ghaberek at gmail.com> Nov 29, 2004
• 526 views

don, try this on for size:

proecdure Main_Close( integer pSelf, integer pEvent, sequence pParams )
atom ret

    ret = message_box( "Are you sure you want to close?", "Close",
MB_YESNO+MB_ICONQUESTION )

    if ret = IDNO then
        returnValue(-1)    -- cancel closing
    end if

end procedure
setHandler( Main, w32HClose, routine_id("Main_Close") )




On Mon, 29 Nov 2004 01:17:13 -0800, don cole <guest at rapideuphoria.com> wrote:
> 
> posted by: don cole <doncole at pacbell.net>
> 
> Is ther a way I can access the Close Button (the little square with an X in
> it located in the upper right hand corner of of window) so I can MessageBox
> "Are you sure you want to close" or do I have to create my own button?
> 
> If I use win32HClose the window closes even if I select "No".
> 
> don cole
> SF
> 
> 
> 
>