home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / RESMENU.PRG < prev    next >
Text File  |  1994-03-10  |  986b  |  40 lines
  1. #include "FiveWin.ch"
  2. #include "ResMenu.ch"           // Some IDs for this Test
  3.  
  4. // Using PullDown Menus from resources
  5.  
  6. static oWnd
  7.  
  8. //----------------------------------------------------------------------------//
  9.  
  10. function Main()
  11.  
  12.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 75 ;
  13.       TITLE "Using Menus from resources" ;
  14.       MENU  BuildMenu()
  15.  
  16.    ACTIVATE WINDOW oWnd
  17.  
  18. return
  19.  
  20. //----------------------------------------------------------------------------//
  21.  
  22. function BuildMenu()
  23.  
  24.    local oMenu
  25.  
  26.    DEFINE MENU oMenu RESOURCE "Main"
  27.  
  28.    REDEFINE MENUITEM ID ID_ABOUT OF oMenu ACTION MsgInfo( "About FiveWin" )
  29.  
  30.    REDEFINE MENUITEM ID ID_TEST  OF oMenu ;
  31.       ACTION MsgInfo( "Testing Resources PullDown Menus" )
  32.  
  33.    REDEFINE MENUITEM ID ID_EXIT OF oMenu ACTION oWnd:End()
  34.  
  35.    REDEFINE MENUITEM ID ID_DELETE OF oMenu ACTION MsgInfo( "ok: Delete" )
  36.  
  37. return oMenu
  38.  
  39. //----------------------------------------------------------------------------//
  40.