home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / OpalPaint2,3-020+Version.LHA / Rexx / ReqDemo.oprx < prev    next >
Encoding:
Text File  |  1994-04-22  |  4.8 KB  |  171 lines
  1. /* ARexx Requester Demo.
  2.  */
  3.  
  4. address 'OpalPaint_Rexx'
  5.  
  6. options Results
  7.  
  8.  
  9. Do Forever
  10.     ReqBuild '450 200 "ARexx Requesters"'
  11.  
  12.     AddGadget 'Button CycReqGad CenterX 70 Medium "Cycle"'
  13.     AddGadget 'Button StrReqGad Left CycReqGad -10 0 Medium "String"'
  14.     AddGadget 'Button TogReqGad Right CycReqGad 10 0 Medium "Toggle"'
  15.     AddGadget 'Button PropReqGad Below StrReqGad 0 10 Medium "Prop"'
  16.     AddGadget 'Button MExReqGad Right PropReqGad 10 0 Medium "MutualEx"'
  17.  
  18.     AddHeading 'Above StrReqGad CenterX -10 "Select Gadget Type"'
  19.     AddBox 'Above StrReqGad -15 -25 352 102'
  20.  
  21.     Request
  22.     GadgetStatus Okay
  23.     if Result=1 Then Exit
  24.     GadgetStatus Cancel
  25.     if Result=1 Then Exit
  26.  
  27.     GadgetStatus StrReqGad
  28.     if Result=1 Then Call StringDemo()
  29.  
  30.     GadgetStatus CycReqGad
  31.     if Result=1 Then Call CycleDemo()
  32.  
  33.     GadgetStatus TogReqGad
  34.     if Result=1 Then Call ToggleDemo()
  35.  
  36.     GadgetStatus PropReqGad
  37.     if Result=1 Then Call PropDemo()
  38.  
  39.     GadgetStatus MExReqGad
  40.     if Result=1 Then Call MutualExDemo()
  41.  
  42. End
  43. Exit
  44.  
  45.  
  46.  
  47. StringDemo:
  48.     ReqBuild '450 250 "String Gadgets"'
  49.     AddGadget 'String SmlStrGad 70 50 Small'
  50.     AddGadget 'String MedStrGad Below SmlStrGad 0 10 Meduim'
  51.     AddGadget 'String LrgStrGad Below MedStrGad 0 10 Large'
  52.     AddGadget 'String CusStrGad Below LrgStrGad 0 10 300 10'
  53.  
  54.     AddText 'Left SmlStrGad -5 7 "Small:"'
  55.     AddText 'Left MedStrGad -5 7 "Medium:"'
  56.     AddText 'Left LrgStrGad -5 7 "Large:"'
  57.     AddText 'Left CusStrGad -5 7 "Custom:"'
  58.     Request
  59.     Return
  60.  
  61.  
  62. CycleDemo:
  63.     ReqBuild '450 250 "Cycle Gadgets"'
  64.     AddGadget 'Cycle SmlCycGad 70 50 Small A500 A1000 A1500 A2000 A2500 A4000'
  65.     AddGadget 'Cycle MedCycGad Below SmlCycGad 0 10 Medium Larry Curly Moe'
  66.     AddGadget 'Cycle LrgCycGad Below MedCycGad 0 10 Large "Value 1" "Value 2" "Value 3"'
  67.     AddGadget 'Cycle CusCycGad Below LrgCycGad 0 10 250 30 "Big" "Mumma" "Cycle" "Gadget"'
  68.  
  69.     AddText 'Left SmlCycGad -5 7 "Small:"'
  70.     AddText 'Left MedCycGad -5 7 "Medium:"'
  71.     AddText 'Left LrgCycGad -5 7 "Large:"'
  72.     AddText 'Left CusCycGad -5 12 "Custom:"'
  73.     Request
  74.     Return
  75.  
  76.  
  77. ToggleDemo:
  78.     ReqBuild '450 350 "Toggle Gadgets"'
  79.     AddGadget 'Toggle SmlGad CentreX 50 Small Small'
  80.     AddGadget 'Toggle MedGad Below SmlGad CenterX 8 Medium Medium'
  81.     AddGadget 'Toggle LrgGad Below MedGad CenterX 8 Large Large'
  82.     AddBox 'Above SmlGad -175 -10 400 120'
  83.  
  84.     AddGadget 'Check Chk1Gad 50 195 Medium'
  85.     AddGadget 'Check Chk2Gad Below Chk1Gad 0 8 Medium'
  86.     AddGadget 'Check Chk3Gad Below Chk2Gad 0 8 Medium'
  87.     AddBox 'Above Chk1Gad -25 -25 400 120'
  88.  
  89.     AddHeading 'Above Chk1Gad CenterX -10 "Check Gadgets"'
  90.     AddText 'Right Chk1Gad 10 5 "Enable Transparency"'
  91.     AddText 'Right Chk2Gad 10 5 "Enable Something else"'
  92.     AddText 'Right Chk3Gad 10 5 "Yet Another Option"'
  93.  
  94.     InitGadget 'SmlGad Selected'
  95.     InitGadget 'Chk1Gad Selected'
  96.     Request
  97.     Return
  98.  
  99.  
  100. PropDemo:
  101.     ReqBuild '570 280 "Proportional Gadgets"'
  102.     AddGadget 'VProp RPropGad 70 80 Medium 0 255'
  103.     AddGadget 'VProp GPropGad Right RPropGad 10 0 Medium 0 255'
  104.     AddGadget 'VProp BPropGad Right GPropGad 10 0 Medium 0 255'
  105.  
  106.     AddGadget 'HProp H1PropGad Right BPropGad 70 -20 Small 0 10'
  107.     AddGadget 'HProp H2PropGad Below H1PropGad 0 20 Medium 10 20'
  108.     AddGadget 'HProp H3PropGad Below H2PropGad 0 20 Large 20 25'
  109.     AddGadget 'HProp H4PropGad Below H3PropGad 0 20 150 30 20 25'
  110.  
  111.     AddText 'Above RPropGad 5 -2 R'
  112.     AddText 'Above GPropGad 5 -2 G'
  113.     AddText 'Above BPropGad 5 -2 B'
  114.  
  115.     AddText 'Above H1PropGad 5 -2 Small'
  116.     AddText 'Above H2PropGad 5 -2 Medium'
  117.     AddText 'Above H3PropGad 5 -2 Large'
  118.     AddText 'Above H4PropGad 5 -2 Custom'
  119.  
  120.     InitGadget RPropGad 50
  121.     InitGadget GPropGad 100
  122.     InitGadget BPropGad 150
  123.  
  124.     AddBox 'Above RPropGad -35 -50 150 200'
  125.     AddBox 'Above H1PropGad -20 -30 350 200'
  126.  
  127.     AddHeading 'Above RPropGad -15 -35 "Vertical Props"'
  128.     AddHeading 'Above H1PropGad 90 -15 "Horizontal Props"'
  129.  
  130.     Request
  131.     Return
  132.  
  133.  
  134. MutualExDemo:
  135.     ReqBuild '500 250 "Mutual Exclude Gadgets"'
  136.  
  137.     AddGadget 'Toggle Tog1Gad 80 70 Medium "Standard"'
  138.     AddGadget 'Toggle Tog2Gad Below Tog1Gad 0 10 Tog1Gad Medium "RGB"'
  139.     AddGadget 'Toggle Tog3Gad Below Tog2Gad 0 10 Tog2Gad Medium "HSV"'
  140.  
  141.     AddGadget 'Check Chk1Gad Right Tog1Gad 90 5 Medium'
  142.     AddGadget 'Check Chk2Gad Below Chk1Gad 0 10 Medium'
  143.     AddGadget 'Check Chk3Gad Below Chk2Gad 0 10 Medium'
  144.  
  145.     AddText 'Right Chk1Gad 10 6 "Standard"'
  146.     AddText 'Right Chk2Gad 10 6 "RGB"'
  147.     AddText 'Right Chk3Gad 10 6 "HSV"'
  148.  
  149.     MutualEx Tog1Gad Tog2Gad Tog3Gad
  150.     MutualEx Chk1Gad Chk2Gad Chk3Gad
  151.  
  152.     InitGadget 'Tog1Gad Selected'
  153.     InitGadget 'Chk1Gad Selected'
  154.  
  155.     AddBox 'Above Tog1Gad -20 -30 140 150'
  156.     AddBox 'Above Chk1Gad -40 -35 170 150'
  157.  
  158.     AddHeading 'Above Tog1Gad -6 -15 "Exclude Group 1"'
  159.     AddHeading 'Above Chk1Gad -15 -20 "Exclude Group 2"'
  160.  
  161. /* This is an example of replacing the Okay/Cancel gadgets.
  162.  * In this case Yes/No gadgets are used. 
  163.  *
  164.  * Note: Positioning relative to bottom and right is used to
  165.  * make the position insensitive to requester size.
  166.  */
  167.     AddGadget 'Button YesGad 10 -10 Small "Yes"'
  168.     AddGadget 'Button NoGad -10 -10 Small "No"'
  169.     Request NoOK NoCancel
  170.     return
  171.