home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / RADIOBTN.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-03-06  |  1.1 KB  |  49 lines
  1.  
  2.     'demonstrates radiobuttons
  3.  
  4.     'don't open a main window, please
  5.     nomainwin
  6.  
  7.     WindowWidth = 270
  8.     WindowHeight = 200
  9.  
  10.     statictext #cfg, "Confirm File Operations:", 20, 20, 200, 20
  11.     radiobutton #cfg.always, "Always", [alwaysConfirm], [nil], 40, 45, 130, 20
  12.     radiobutton #cfg.whenReplacing, "When Replacing", [whenReplacingConfirm], [nil], 40, 70, 130, 20
  13.     radiobutton #cfg.never, "Never", [neverConfirm], [nil], 40, 95, 130, 20
  14.     button #cfg, " &OK ", [cfgOk], UL, 20, 125
  15.     open "Action Confirmation - Setup" for dialog as #cfg
  16.     print #cfg, "trapclose [cfgOk]"
  17.  
  18. [inputLoop]
  19.     input h$
  20.     goto [inputLoop]
  21.  
  22. [alwaysConfirm]
  23.  
  24.     print #cfg.whenReplacing, "reset"
  25.     print #cfg.never, "reset"
  26.     goto [inputLoop]
  27.  
  28. [whenReplacingConfirm]
  29.  
  30.     print #cfg.always, "reset"
  31.     print #cfg.never, "reset"
  32.     goto [inputLoop]
  33.  
  34. [neverConfirm]
  35.  
  36.     print #cfg.whenReplacing, "reset"
  37.     print #cfg.always, "reset"
  38.     goto [inputLoop]
  39.  
  40.  
  41. [cfgOk]
  42.  
  43.     confirm "Save this configuration?"; answer$
  44.     'perform some sort of save for config here
  45.  
  46.     close #cfg
  47.  
  48.     end
  49.