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