home *** CD-ROM | disk | FTP | other *** search
/ BUG 4 / BUGCD1997_05.BIN / aplic / clip4win / clip4win.exe / C4W30E.HUF / SOURCE / CMD / APP2.PRG < prev    next >
Text File  |  1995-04-24  |  532b  |  28 lines
  1.  
  2. #include "windows.ch"
  3. #define    NO_C4WCLASS
  4. #include "commands.ch"
  5.  
  6. function main()
  7. local    oApp, hWnd
  8.  
  9. CREATE APPLICATION oApp  WINDOW hWnd               ;
  10.     TITLE "Clip-4-Win Makes Windows Apps E-A-S-Y!" ;
  11.     ON INIT MenuSetup(hWnd)
  12.  
  13. return nil
  14.  
  15.  
  16. static function MenuSetup(hWnd)
  17.  
  18. MENU IN hWnd
  19.     POPUP "&File"
  20.         MENUITEM "E&xit"   ACTION PostQuitMessage(0)
  21.     ENDPOPUP
  22.     POPUP "&Help"
  23.         MENUITEM "&About"  ACTION MessageBox( , "Easy!", "Clip-4-Win App")
  24.     ENDPOPUP
  25. ENDMENU
  26.  
  27. return nil
  28.