home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / PPT / rexx / askreq.prx < prev    next >
Encoding:
Text File  |  1998-10-06  |  2.1 KB  |  118 lines
  1. /*
  2.     This is a sample script for PPT that shows the power of
  3.     the ASKREQ rexx command.  It will create one instance of
  4.     each of the types that the ASKREQ command recognizes.
  5.  
  6.     $Id: AskReq.prx 1.2 1998/06/29 20:51:21 jj Exp jj $
  7. */
  8.  
  9. /*-------------------------------------------------------------------*/
  10. /*  I suggest you use this header as-is and add your own code below  */
  11.  
  12. OPTIONS RESULTS
  13. SIGNAL ON ERROR
  14. IF ADDRESS() = REXX THEN DO
  15.     startedfromcli = 1
  16.     ADDRESS PPT
  17. END
  18. ELSE DO
  19.     startedfromcli = 0
  20.     ADDRESS PPT
  21. END
  22. RESULT = 'no result'
  23.  
  24. /*-------------------------------------------------------------------*/
  25. /* Add your code here */
  26.  
  27. /*
  28.     Create a slider gadget
  29.  */
  30.  
  31. SB.TYPE=SLIDER
  32. SB.LABEL="Slide me"
  33. SB.MIN=-50
  34. SB.MAX=50
  35. SB.DEFAULT=0
  36.  
  37. /*
  38.     Create a checkbox gadget
  39.  */
  40.  
  41. CB.TYPE=CHECKBOX
  42. CB.LABEL="Check me"
  43. CB.SELECTED=0
  44.  
  45. /*
  46.     Create a cycle gadget
  47.  */
  48.  
  49. CYC.TYPE=CYCLE
  50. CYC.LABEL="Choose one"
  51. CYC.LABELS="Zero|One|Two|Three|Four"
  52. CYC.POPUP=1
  53.  
  54. /*
  55.     Create a string gadget
  56.  */
  57.  
  58. STR.TYPE=string
  59. STR.INITIALSTRING="Foobar"
  60. STR.MAXCHARS=10
  61. STR.LABEL="Edit me"
  62.  
  63. /*
  64.     Create a float gadget
  65.  */
  66.  
  67. FLO.TYPE=float
  68. FLO.MIN=-10.0
  69. FLO.MAX=10.0
  70. FLO.DEFAULT=0.0
  71. FLO.FORMATSTRING='%.1f'
  72.  
  73. /*
  74.     Make sure PPT is in the front and show the request
  75.  */
  76.  
  77. PPT_TO_FRONT
  78. ASKREQ '"My title"' CB SB CYC STR FLO
  79. res = RESULT
  80.  
  81. /*
  82.     Show the results.
  83.  */
  84.  
  85. IF res = 0 THEN DO
  86.     IF startedfromcli = 1 THEN DO
  87.         PPT_TO_BACK
  88.         SAY "User accepted"
  89.         SAY 'SLIDER = 'SB.VALUE
  90.         SAY 'CHECKBOX = 'CB.VALUE
  91.         SAY 'CYCLE = 'CYC.VALUE
  92.         SAY 'STRING = 'STR.VALUE
  93.         SAY 'FLOAT = 'FLO.VALUE
  94.     END
  95.     ELSE DO
  96.         ASKREQ '"SLIDER='SB.VALUE' CHECKBOX='CB.VALUE' CYCLE='CYC.VALUE' STRING='STR.VALUE' FLOAT='FLO.VALUE'"' NEGATIVE '""'
  97.     END
  98. END
  99. ELSE DO
  100.     SAY "User cancelled"
  101. END
  102.  
  103. EXIT 0
  104.  
  105. /*-------------------------------------------------------------------*/
  106. /* Again, keep this part intact. This is the error handler. */
  107. ERROR :
  108. returncode = RC
  109. IF startedfromcli = 1 THEN DO
  110.     SAY 'ERROR ' returncode ' on line ' SIGL ': ' RC2
  111.     PPT_TO_BACK
  112. END
  113. ELSE
  114.     SHOWERROR '"'RC2'"' SIGL
  115. EXIT returncode
  116.  
  117.  
  118.