home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / runreq.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  856 b   |  52 lines
  1. G4C
  2.  
  3. winbig -1 -1 280 25 "Run Options"
  4. varpath "climaster/*"
  5.  
  6. xonopen
  7. cm_rcmd = $cm_select
  8. update runreq.g 1 $cm_rcmd
  9. setgad runreq.g 1 on
  10. gosub runreq.g checkfile
  11.  
  12. xonclose
  13. cm_rcmd = ""
  14. update runreq.g 1 ""
  15.  
  16. xtextin 0 0 0 13 "" cm_rcmd "" 512
  17. gadid 1
  18.  
  19. xbutton 0 13 70 12 SyncRun
  20. gadid 2
  21. cli '$cm_rcmd'
  22. guiclose runreq.g
  23.  
  24. xbutton 70 13 70 12 RunBack
  25. gadid 3
  26. run '$cm_rcmd'
  27. guiclose runreq.g
  28.  
  29. xbutton 140 13 70 12 Execute
  30. gadid 4
  31. cli 'c:execute $cm_rcmd'
  32. guiclose runreq.g
  33.  
  34. xbutton 210 13 70 12 Open
  35. reqfile -1 -1 250 -80 "Select File.." load cm_rcmd SYS:
  36. update runreq.g 1 $cm_rcmd
  37. gosub runreq.g checkfile
  38.  
  39. xroutine checkfile
  40. if $cm_rcmd H= "%%%ó%"
  41.     setgad runreq.g 2 on
  42.     setgad runreq.g 3 on
  43.     setgad runreq.g 4 off
  44. else
  45.     setgad runreq.g 2 off
  46.     setgad runreq.g 3 off
  47.     setgad runreq.g 4 on
  48. endif
  49.  
  50. ; -------------------------------------
  51.  
  52.