home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / requestnotify.thor < prev    next >
Text File  |  1994-08-06  |  2KB  |  57 lines
  1. /*
  2. **
  3. ** requestnotify.thor - will open a requester with some information
  4. **                        text in it, specified to the command.
  5. **                        If the command is not known to THOR or
  6. **                        wrong parameters is specified, the 
  7. **                        command will return 10.
  8. **                        The command will return 0 when the user 
  9. **                        chooses a gadget, and result will contain
  10. **                        the number of the gadget selected.
  11. **                        The value in result will be 1 (TRUE) for 
  12. **                        leftmost (positive) response, then each 
  13. **                        consecutive    response will return 1 more, 
  14. **                        the rightmost (false) response will
  15. **                        return 0 (FALSE) in result.
  16. **                        TEXT can contain upto 300 characters and
  17. **                        will be prosessed like the signature in THOR.
  18. **                        This means that variables like $ver and $time
  19. **                        can be used and will be translated.
  20. **                        Max number of character is 300, this this is
  21. **                        *after* any variables you use have been 
  22. **                        expanded, so with $time and $ver the limit
  23. **                        for the text in is about 280 characters.
  24. **                        BUTTONTEXT is the text to be in the
  25. **                        gadgets and the shortcut can be set with
  26. **                        '_' in front if the key that is to act as 
  27. **                        a shortcut. The text for each gadget is 
  28. **                        separated with a '|', and it's possible
  29. **                        to define 1 or more gadgets.
  30. **
  31. **    Template:
  32. **
  33. **    TEXT/A,BUTTONTEXT=BT/A
  34. */
  35.  
  36. options results
  37.  
  38. address THOR.01
  39.  
  40. THORTOFRONT
  41.  
  42. REQUESTNOTIFY TEXT '"The time is now: $time\n\nOK will return 1, MAYBE will return 2\nand CANCEL will return 0"' BT '"_OK|_MAYBE|_CANCEL"'
  43.  
  44. retval = result
  45.  
  46. if(retval = 0) then do
  47.     say 'User pressed CANCEL'
  48. end
  49.  
  50. if(retval = 1) then do
  51.     say 'User pressed OK'
  52. end
  53.  
  54. if(retval = 2) then do
  55.     say 'User pressed MAYBE'
  56. end
  57.