home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTPOP2.PRG < prev    next >
Text File  |  1994-06-09  |  1KB  |  52 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    DEFINE WINDOW oWnd FROM 2, 2 TO 20, 70 ;
  10.       TITLE "Testing a PopUp Menu from resources"
  11.  
  12.    SET MESSAGE OF oWnd TO "Testing a Popup Menu from resources" CENTERED
  13.  
  14.    ACTIVATE WINDOW oWnd ;
  15.       ON CLICK ShowPopup( nRow, nCol )
  16.  
  17. return nil
  18.  
  19. //----------------------------------------------------------------------------//
  20.  
  21. function ShowPopup( nRow, nCol )
  22.  
  23.    local oMenu
  24.  
  25.    DEFINE MENU oMenu POPUP RESOURCE "Test"
  26.  
  27.    REDEFINE MENUITEM ID 1100 OF oMenu ;
  28.       ACTION MsgInfo( "Hello World!" ) ;
  29.       MESSAGE "First Popup First option"
  30.  
  31.    REDEFINE MENUITEM ID 120 OF oMenu ;
  32.       ACTION MsgInfo( "Second option" ) ;
  33.       MESSAGE "Second option"
  34.  
  35.    REDEFINE MENUITEM ID 1210 OF oMenu ;
  36.       ACTION MsgInfo( "First option deepest Popup" ) ;
  37.       MESSAGE "First option deepest Popup"
  38.  
  39.    REDEFINE MENUITEM ID 130 OF oMenu ;
  40.       ACTION MsgInfo( "Third option" ) ;
  41.       MESSAGE "Third option"
  42.  
  43.    REDEFINE MENUITEM ID 140 OF oMenu ;
  44.       ACTION oWnd:End() ;
  45.       MESSAGE "End application"
  46.  
  47.    ACTIVATE POPUP oMenu AT nRow, nCol OF oWnd
  48.  
  49. return nil
  50.  
  51. //----------------------------------------------------------------------------//
  52.