home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTADD.PRG < prev    next >
Text File  |  1994-05-25  |  1KB  |  56 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, 75 ;
  10.       TITLE "Some control features" ;
  11.       MENU BuildMenu()
  12.  
  13.    ACTIVATE WINDOW oWnd
  14.  
  15. return nil
  16.  
  17. //----------------------------------------------------------------------------//
  18.  
  19. function BuildMenu()
  20.  
  21.    local oMenu
  22.  
  23.    MENU oMenu
  24.       MENUITEM "Call Dialog..." ACTION TestDialog()
  25.       MENUITEM "&Exit"          ACTION oWnd:End()
  26.    ENDMENU
  27.  
  28. return oMenu
  29.  
  30. //----------------------------------------------------------------------------//
  31.  
  32. function TestDialog()
  33.  
  34.    local oDlg, oBtn
  35.  
  36.    DEFINE DIALOG oDlg FROM 2, 2 TO 12, 36 ;
  37.       TITLE "A NonModal Dialog"
  38.  
  39.    @ 1,  2 BUTTON oBtn PROMPT "&Test" SIZE 40, 10 OF oDlg ;
  40.       ACTION oDlg:Say( 2, 2, "Hello" )
  41.  
  42.    @ 1, 12 BUTTON "&End" SIZE 40, 10 OF oDlg ;
  43.       ACTION oDlg:End()
  44.  
  45.    @ 3,  2 BUTTON "&Disable" OF oDlg SIZE 40, 10 ACTION oBtn:Disable()
  46.    @ 3, 12 BUTTON "&Enable"  OF oDlg SIZE 40, 10 ACTION oBtn:Enable()
  47.  
  48.    @ 5,  2 BUTTON "&Hide" OF oDlg SIZE 40, 10 ACTION oBtn:Hide()
  49.    @ 5, 12 BUTTON "&Show" OF oDlg SIZE 40, 10 ACTION oBtn:Show()
  50.  
  51.    ACTIVATE DIALOG oDlg CENTERED NOWAIT
  52.  
  53. return nil
  54.  
  55. //----------------------------------------------------------------------------//
  56.