Re: Swoop Example Five

Thanks much. Very quick.

Jodell

>
> Here is the differences required to convert the fourth example
> (found at ftp://ftp.forth.com/pub/SwiftForth/samples/four ) to
> the fifth example ( ftp://ftp.forth.com/pub/SwiftForth/samples/five ).
> This new code implements a very simple menu which is attached
> to the main window.
>
>
> diff four/appwin.f five/appwin.f
> 81a82
> > mHWND MAINMENU :: LoadMenuIndirect :: SetMenu DROP
> 83a85,96
> >
> > \ ----------------------------------------------------------------
> > \ Command handlers
> >
> > MI_EXIT COMMAND: ( -- )
> > mHWND WM_CLOSE 0 0 :: SendMessage DROP ;
> >
> > MI_ABOUT COMMAND: ( -- )
> > mHWND Z\" Fifth Example\nRick VanNorman" Z" Swoop" MB_OK
> > :: MessageBox DROP ;
> >
> >
> diff four/globals.f five/globals.f
> 8a9,22
> >
{ ----------------------------------------------------------------------
> > A simple menu
>
> ---------------------------------------------------------------------- }
> >
> > MENU MAINMENU
> > POPUP "&File"
> > MI_EXIT MENUITEM "E&xit"
> > END-POPUP
> >
> > POPUP "&Help"
> > MI_ABOUT MENUITEM "&About"
> > END-POPUP
> > END-MENU
> >
>
> ----------------------------------------------------------------------
> sftalk_at_forth.com The SwiftForth programming discussion email list
> To unsubscribe, send subject "unsubscribe sftalk" to listar_at_forth.com
> For help with listar commands, send subject "help" to listar_at_forth.com
> Archives are located at http://www.forth.com/sftalk -- check them out!
> Search the archives! Visit http://www.forth.com/search for details.

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.381 / Virus Database: 214 - Release Date: 8/2/2002
----------------------------------------------------------------------
sftalk_at_forth.com      The SwiftForth programming discussion email list
To unsubscribe,  send subject "unsubscribe sftalk" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/sftalk -- check them out!
Search the archives!    Visit http://www.forth.com/search for details.