home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / LW5VT09.LHA / Toaster / Arexx_examples / lwm / request.lwm < prev    next >
Encoding:
Text File  |  1996-06-10  |  970 b   |  48 lines
  1. /* CMD: Test Request
  2.  *
  3.  * Test requester from ARexx to Modeler.
  4.  */
  5.  
  6. /* trace results */
  7.  
  8. address "LWModelerARexx.port"
  9. libadd = addlib("LWModelerARexx.port",0)
  10.  
  11. check = addlib("rexxmathlib.library",0,-30,0)
  12.  
  13. /* -- Main code body -- */
  14.  
  15.  
  16. call req_begin "Test Request"
  17.  
  18. id1 = req_addcontrol("Text Input","s")
  19. id2 = req_addcontrol("Text 1", "S", 30)
  20. id3 = req_addcontrol("Check this?",'b')
  21. id4 = req_addcontrol("Pick a Number",'N')
  22. id5 = req_addcontrol("Vector Victor",'v',0)
  23. id6 = req_addcontrol("Choice", 'ch', 'X Y Z Other')
  24.  
  25. call req_setval id1,"String 1"
  26. call req_setval id3, 0
  27. call req_setval id4, 2.5, 1.0
  28. call req_setval id5, '1 2 3', 1.50
  29. call req_setval id6, 4
  30.  
  31. x = req_post()
  32. if (x) then do
  33.     say "Ok"
  34.     say req_getval(id1)
  35.     say req_getval(id2)
  36.     say req_getval(id3)
  37.     say req_getval(id4)
  38.     say req_getval(id5)
  39.     say req_getval(id6)
  40. end; else say "Canceled"
  41.  
  42.  
  43.  
  44. /* -- End Main code -- */
  45.  
  46. if (libadd) then call remlib("LWModelerARexx.port")
  47. exit
  48.