To be more clear; how would I used DEBUG to find out if there is code that I
do not need? Can Iplce them around the ABOUT?

> I took two samples files about.f and another winapp.f sample. This is what
seemed to work but I am wondering if I have extra code that I do not need.
How would I step through it with the debugger and isolate any code that is
not being used?
>
> { --------------------------------------------------------------------
> ABOUT box seems to be working
> -------------------------------------------------------------------- }
>
> OPTIONAL ABOUT1 A simple about box dialog template.
>
> 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 " GOEdit" -1 30 10 50 8 ]
> [LTEXT " Global Online Editor" -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
>
> :NONAME ( -- res )
> MSG LOWORD WM_COMMAND = IF
> WPARAM LOWORD DUP IDOK = SWAP IDCANCEL = OR IF
> HWND 1 EndDialog -1 EXIT
> THEN
> THEN
> 0 ;
>
> ( xt) 4 CB: RUNABOUT
>
> : ABOUT ( -- )
> HINST (ABOUT) HWND RUNABOUT 0 DialogBoxIndirectParam DROP ;
>
> : MAKE-MENU ( -- )
> HWND APP-MENU LoadMenuIndirect SetMenu DROP ;
> { --------------------------------------------------------------------
> DEFERS
> -------------------------------------------------------------------- }
>
> DEFER MakeStatus ' NOOP IS MakeStatus
> DEFER SizeStatus ' NOOP IS SizeStatus
> DEFER MakeToolbar ' NOOP IS MakeToolbar
> DEFER SizeToolbar ' NOOP IS SizeToolbar
> DEFER MakeMenu ' MAKE-MENU IS MakeMenu
> DEFER CreateMore ' NOOP IS CreateMore
> DEFER AboutApp ' ABOUT IS AboutApp
>
> { --------------------------------------------------------------------
> -------------------------------------------------------------------- }
>
> : APP-EXIT ( -- )
> HWND WM_CLOSE 0 0 PostMessage DROP ;
>
> [SWITCH AppCommands DROP ( cmd -- )
> M_EXIT RUNS APP-EXIT
> M_ABOUT RUNS AboutApp
> SWITCH]
>
> jodell

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.343 / Virus Database: 190 - Release Date: 3/22/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.