home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / FINCAL2.DMS / in.adf / FCrexx.lha / Custom_Requester.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-03-04  |  1.9 KB  |  62 lines
  1.  
  2. /* Sample ARexx User-defined requester  */
  3.  
  4. if ~show('l', "rexxsupport.library") then
  5.     addlib('rexxsupport.library',0,-30,0)
  6.  
  7. options results
  8.  
  9. portname = 'OURPORTNAME'
  10. shutdown = 0
  11. if openport(portname) then do
  12.  
  13. window allocate     /* request a new window object */
  14. win = result        /* store window object # in 'win' */
  15. window win gadget 1 10 165 100 0 ok 0 "Use" "use"
  16. window win gadget 0 126 165 100 0 reset 0 "Reset" "reset"
  17. window win gadget 0 242 165 100 0 cancel 0 "Cancel" "cancel"
  18. window win gadget 12 80 10 250 10 string 0 "String" "string" '"default string"'
  19. window win gadget 13 240 120 20 20 checkmark 1 '"Checkmark"' "checkmark" 1
  20. window win gadget 0 220 40 130 64 border 2 '"Radio Gadgets"'
  21. window win gadget 256 230 52 0 0 radio 0 '"1. Radio 1"' "radio1" 1
  22. window win gadget 257 230 65 0 0 radio 0 '"2. Radio 2"' "radio2"
  23. window win gadget 258 230 78 0 0 radio 0 '"3. Radio 3"' "radio3"
  24. window win gadget 259 230 91 0 0 radio 0 '"4. Radio 4"' "radio4"
  25. window win gadget 512 10 40 180 90 list 255 '"List Gadget"' "list" 5
  26. window win list 512 '"Red"' '"Blue"' '"Green"' '"Black"' '"White"'
  27. window win list 512 '"Yellow"' '"Voilet"' '"Pink"' '"Purple"'
  28. window win list 512 '"Grey"' '"Flesh"' '"Orange"' '"Magneta"'
  29. window win list 512 '"Cyan"' '"Transparent"'
  30. window win gadget 14 60 140 250 10 proph 0 '"Prop"' "prop" 3 1 7
  31. window win open 365 200 '"Test Requester..."' async portname notify string button radio prop checkmark list reset
  32. woi = result
  33.  
  34. if woi ~= null() then do
  35.   do until shutdown
  36.  
  37.     call waitpkt(portname)
  38.     msg = getpkt(portname)
  39.  
  40.     if msg ~= '0000 0000'x then do
  41.       cmd = getarg(msg)
  42.  
  43.       say 'We got: ' cmd 
  44.  
  45.       if upper(cmd)='OK' then
  46.         shutdown = 1
  47.  
  48.       if upper(cmd)='USE' then
  49.         shutdown = 1
  50.  
  51.       if upper(cmd)='CANCEL' then
  52.         shutdown = 1
  53.  
  54.       call reply(msg,0)
  55.       end
  56.     end
  57.   end
  58.  
  59. call closeport(portname)
  60. window win free             /* free all window resources */
  61. end
  62.