Listing 4: Etch.rcp

#include "EtchRes.h"

FORM ID AboutForm AT (30 40 100 80) USABLE MODAL
  BEGIN
    TITLE "About Etch"
    LABEL "Etch" AUTOID AT (CENTER 20) FONT 1
    LABEL "by Trevor Harmon" AUTOID AT (CENTER PREVBOTTOM)
    LABEL "trevor@vocaro.com" AUTOID AT (CENTER PREVBOTTOM)
    BUTTON "OK" AUTOID AT (CENTER PREVBOTTOM+6 AUTO AUTO)
     FRAME
  END
  
MENU ID EtchMenu
  BEGIN
    PULLDOWN "Edit"
    BEGIN
      MENUITEM "Toggle Erase    Down" ToggleEraseCmd
      MENUITEM "Clear" ClearCmd "C"
    END
    PULLDOWN "Help"
      BEGIN
        MENUITEM "About..." AboutCmd "A"
      END
  END

FORM ID EtchForm AT (0 0 160 160) NOFRAME USABLE
MENUID EtchMenu
  BEGIN
  END

ICON "etch.bmp"
SMALLICON "etch_small.bmp"

VERSION "1.0"


— End of Listing —