home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / requestinteger.thor < prev    next >
Text File  |  1994-08-06  |  1KB  |  38 lines
  1. /*
  2. ** requestinteger.thor - Will let the user enter a number within the given
  3. **                       range. No other characters than a number will be
  4. **                       accepted. 
  5. **                       If the user chooses cancels the requester with
  6. **                       the right-most choice, rc will be set to 5 (RC_WARN).
  7. **                       Although it is possible to have more than two gadgets
  8. **                       with the BUTTONTEXT argument, this is not recommended.
  9. **                       The ideal choice is to let BUTTONTEXT contain
  10. **                       "Ok | Cancel".  MIN and MAX are the minimum and maximum
  11. **                       numbers that can be entered into the requester.
  12. **                       If the argument INITIALINTEGER is present, the number
  13. **                       given here will come up initially in the requester.
  14. **                       TITLETEXT is the title of the requester, and VAR is
  15. **                       the name of an optional variabel that THOR will put
  16. **                       the number entered into. If not present, result will
  17. **                       contain the number entered.
  18. **
  19. **
  20. **    Template:
  21. **
  22. **    MIN/A/N,MAX/A/N,INITIALINTEGER=INIT/N,TITLETEXT=TITLE/A,BUTTONTEXT=BT/A,VAR
  23. */
  24.  
  25. options results
  26.  
  27. address "THOR.01"
  28.  
  29. THORTOFRONT
  30.  
  31. REQUESTINTEGER MIN 12 MAX 100 INIT 34 TITLE '"Enter a number:"' BT '"Ok|Cancel"' var NUMBER
  32.  
  33. if(rc ~= 0) then exit
  34.  
  35. say "Number entered : " NUMBER
  36.  
  37. exit
  38.