home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTRAD.PRG < prev    next >
Text File  |  1994-04-05  |  740b  |  31 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oDlg, oRadMenu
  8.    local nOption
  9.  
  10.    SET 3DLOOK ON
  11.  
  12.    DEFINE DIALOG oDlg RESOURCE "Radios"
  13.  
  14.    REDEFINE RADIO oRadMenu VAR nOption ID 110, 120, 130, 140, 150 OF oDlg
  15.  
  16.    REDEFINE BUTTON ID 100 OF oDlg ;
  17.       ACTION ( nOption := If( nOption < 5, nOption + 1, 1 ),;
  18.                oRadMenu:Refresh() )
  19.  
  20.    REDEFINE BUTTON ID 102 OF oDlg ;
  21.       ACTION ( nOption := If( nOption > 1, nOption - 1, 5 ),;
  22.                oRadMenu:Refresh() )
  23.  
  24.    ACTIVATE DIALOG oDlg CENTERED
  25.  
  26.    SET 3DLOOK OFF
  27.  
  28. return
  29.  
  30. //----------------------------------------------------------------------------//
  31.