home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / requeststring.thor < prev    next >
Text File  |  1994-08-06  |  1KB  |  38 lines
  1. /*
  2. **
  3. ** requeststring.thor - will open a requester which accepts any string
  4. **                        input you give it, upto MAXCHARS number of
  5. **                        characters.  If nothing is entered, the
  6. **                        requester is canceled or fails for some
  7. **                        other reason, the command will
  8. **                        return 10. Will return 0 on success and
  9. **                        result will contain the string entered.
  10. **                        Note that the MAXCHARS can't be higher than
  11. **                        1000. BUTTONTEXT is the text to be in the
  12. **                        gadgets and the shortcut can be set with
  13. **                        '_' in front if the key that is to act as 
  14. **                        a shortcut. The text for each gadget is 
  15. **                        separated with a '|', and it's possible
  16. **                        to define 1 or more gadgets, although more
  17. **                        than two gadgets won't do any good. If a
  18. **                        single gadget it used, the command can only
  19. **                        be canceled by entering no text in the gadget.
  20. **                        2 gadgets, no more and no less, is highly
  21. **                        recommended for this requester.
  22. **
  23. **    Template:
  24. **
  25. **    TITLETEXT=TITLE/A,BUTTONTEXT=BT/A,INITIALSTRING=ID,MAXCHARS/N/A
  26. */
  27.  
  28. options results
  29.  
  30. address THOR.01
  31.  
  32. THORTOFRONT
  33.  
  34. REQUESTSTRING TITLE '"Enter something:"' BT '"_Ok|_Cancel"' ID '"Some text"' MAXCHARS 40
  35.  
  36. say result
  37.  
  38.