Re: Swoop Example Five

Hello again,

I have been working on my About Box. I traced a GENERICDIALOG to the
Winmaker.f. The example five uses the Command Handler has a MessageBox.
I am not seeing how to connect the DIALOG (ABOUT)

When I add

 MI_ABOUT COMMAND: ( -- )
    mHWND ABOUT
    :: MessageBox DROP ;

I get the Swiftforth About box.

And, when I do this:

 MI_ABOUT COMMAND: ( -- )
    mHWND (ABOUT)
    :: MessageBox DROP ;

I get nothing. So I must be missing something about how to subclass the
About
box or not know how to call it.

I set this in the GLOBALS.F

DIALOG (ABOUT) [MODAL " About GOEdit" 180 150 200 100
   (FONT 8, comic sans ms) ]

[DEFPUSHBUTTON " OK" IDOK 132 2 32 14 ]
[ICON 101 RESOURCE -1 3 2 18 20 ]
[LTEXT " PSI CAT" -1 30 10 50 8 ]
[LTEXT " PSI Core Aptitude Trainer" -1 30 20 150 8 ]
[LTEXT " Version .10" -1 30 30 150 8 ]
[LTEXT " (C)2001 DOLFINA of AIWP" -1 30 40 150 8 ]
[LTEXT " All Rights Reserved" -1 30 50 150 8 ]
[LTEXT " Design and Development by Jodell Bumatai " -1 30
60 150 8 ]
[LTEXT " Support email azedia_at_dolfina.org " -1 30
70 150 8 ]
[LTEXT " Visit our Website at www.dolfina.org " -1 30
80 150 8 ]
[LTEXT " P.O.B. 594,Santa Cruz, CA 95061-0594 " -1 30
90 150 8 ]

END-DIALOG

> Jodell
>

> >
> > 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
> > >

---
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/3/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.