About Box

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.336 / Virus Database: 188 - Release Date: 3/11/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.