home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / painting / arteffectdemo / macros / macros.lzh / examples / requester < prev    next >
Encoding:
Text File  |  1995-01-04  |  953 b   |  40 lines
  1. /*
  2.  * test PicoPainter arexx port
  3.  */
  4.  
  5. options results
  6.  
  7. address "ArtEffect"
  8.  
  9. requestfile stem res. title "123" path "ram:" file "testfile" pattern "#?"
  10. say res.file
  11. say res.path
  12. say res.filename
  13.  
  14. requestnotify "Notification"
  15. requestnotify title "Neuer_Titel" ok "_betätigen" "Notification"
  16.  
  17. requestnumber
  18. if RC=0 then a = result
  19. else a = "canceled"
  20.  
  21. 'requestnumber title "Neuer_Titel" def 1 min -10 max 5 prompt "Nummer?"'
  22. if RC=0 then b = result
  23. else b = "canceled"
  24.  
  25. requestresponse prompt "Antworte!" options "_Ja|Nein"
  26. if RC=0 then c = result
  27. else c = "canceled"
  28.  
  29. requestresponse title "Neuer_Titel" prompt "Antworte|nochmal!" options "Ja|_Nein"
  30. if RC=0 then d = result
  31. else d = "canceled"
  32.  
  33. requeststring
  34. e = result
  35. requeststring title "Neuer_Titel" def "Testtext" maxlen 10 prompt "Änderen Sie den Text!"
  36. f = result
  37.  
  38. text = a || '|' || b || '|' || c || '|' || d || '|' || e || '|' || f
  39. 'requestnotify title "Ihre_Antworten" ok "fertig" prompt 'text
  40.