home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTSYSM.PRG < prev    next >
Text File  |  1994-04-11  |  840b  |  37 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Testing System Menu"
  10.  
  11.    SET MESSAGE OF oWnd TO "FiveWin 1.5 - Using the SysMenu as an Object!"
  12.  
  13.    ACTIVATE WINDOW oWnd ;
  14.       ON INIT ChangeSysMenu()
  15.  
  16. return
  17.  
  18. //----------------------------------------------------------------------------//
  19.  
  20. function ChangeSysMenu()
  21.  
  22.    local oSysMenu
  23.  
  24.    REDEFINE SYSMENU oSysMenu OF oWnd
  25.       MENUITEM "&Hey! We are here"
  26.  
  27.       MENUITEM FILE "..\bitmaps\Ico.bmp" ;
  28.          ACTION MsgInfo( "FiveWin, Clipper + xBase + OOPS" )
  29.  
  30.       MENUITEM "&Reset..." ACTION oSysMenu:Reset()
  31.  
  32.    ENDMENU
  33.  
  34. return
  35.  
  36. //----------------------------------------------------------------------------//
  37.