home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / Install < prev    next >
Encoding:
Text File  |  1998-06-24  |  1.6 KB  |  75 lines
  1. G4C
  2.  
  3. winbig -1 -1 250 97 "Install"
  4. wintype 11110001
  5. winout "con:0/11/600/200/Installer Output/auto close"
  6. varpath ''
  7.  
  8. xonload
  9. extract install guipath inst_path
  10. assign inst: $inst_path
  11. delvar inst_path
  12. guiopen install
  13.  
  14. xonopen
  15. setgad install 2 off
  16.  
  17. xonclose
  18. assign inst: remove
  19. quit
  20.  
  21. box 0 0 250 60 out button
  22. box 0 85 250 12 out button
  23. ctext 10 5 "Please select where you wish" topaz.font 8 1 0 000
  24. ctext 10 15 "to install CLIMasterII by" topaz.font 8 1 0 000
  25. ctext 10 25 "either entering the full path" topaz.font 8 1 0 000
  26. ctext 10 35 "into the string gadget below" topaz.font 8 1 0 000
  27. ctext 10 45 "or using the Browse button." topaz.font 8 1 0 000
  28.  
  29. xtextin 0 60 250 13 "" cmpath "" 512
  30. gadid 1
  31. if $cmpath = ""
  32.     ezreq "You MUST supply a path." Okay ""
  33.     setgad install 1 on
  34.     stop
  35. else
  36.     setgad install 2 on
  37. endif
  38.  
  39. xbutton 0 73 80 12 Browse
  40. reqfile -1 -1 240 -60 "Choose Path..." dir cmpath SYS:
  41. if $cmpath > ""
  42.     update install 1 $cmpath
  43.     setgad install 2 on
  44. endif
  45.  
  46. xbutton 80 73 90 12 Proceed
  47. gadid 2
  48. update install 3 "Installing CliMaster..."
  49. copy inst:CliMasterII $cmpath
  50. joinfile $cmpath CliMasterII.info desticon
  51. copy inst:drawer $desticon
  52. ifexists assign GUIS
  53.     cli 'setenv gcver `c:version GUIS:Gui4Cli`'
  54.     parsevar ..gcver
  55.     if $$parse.1 < 3.2
  56.         delete c:Gui
  57.         delete GUIS:Gui4Cli
  58.         copy inst:Gui c:
  59.         copy inst:Gui4Cli GUIS:
  60.     endif
  61. else
  62.     copy inst:Gui c:
  63.     copy inst:Gui4Cli c:
  64. endif
  65. update install 3 "Install Complete!"
  66. delay 50
  67. guiclose install
  68.  
  69. xbutton 170 73 80 12 Cancel
  70. guiclose install
  71.  
  72. text 10 85 230 12 "" 40 nobox
  73. gadid 3
  74.  
  75.