home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 40.ddi / INSTALL.CTL < prev    next >
Encoding:
Text File  |  1992-10-09  |  97.6 KB  |  2,485 lines
  1. ##############################################################################
  2. #                                                                            #
  3. #     Copyright (c) Micrografx, Inc., 1991 - 1992. All rights reserved.      #
  4. #  Permission to use this work for any purpose must by obtained in writing   #
  5. #           from Micrografx, 1303 Arapaho, Richardson, TX. 75081.            #
  6. #                                                                            #
  7. ##############################################################################
  8.  
  9. [MgxMain] ()
  10. SetText ("\n\n\n\n\n\n~One moment, please...");
  11. SetIcon (DrawIcon,1,1,"Draw for OS/2");
  12. LoadManifest;
  13. SetHelp ("Click CONTINUE to proceed.");
  14. SetExtHelp (
  15.     "Get ready to install Draw for OS/2! Our easy-to-use
  16.     " installation program will have you up and running in just
  17.     " a few minutes.\n\n
  18.     "Shortly, you will see the Micrografx Installer Main Menu.
  19.     " The Main Menu provides these options for installing Draw for
  20.     " OS/2:\n\n
  21.     "- Update Draw for OS/2 (if applicable). This option updates
  22.     " a previously installed version of Draw for OS/2 and requires
  23.     " little additional disk space.\n\n
  24.     "- Minimum installation. This option installs the minimum
  25.     " number of files and requires about 4 Mb of disk space.\n\n
  26.     "- Full installation. This option installs everything and
  27.     " requires about 18.5 Mb of disk space.\n\n
  28.     "- Custom installation. This option installs the features you
  29.     " choose. Disk space requirements will vary.");
  30. SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  31. TextDialog (
  32.     "Welcome to the Micrografx Installer for Draw 3.0 for OS/2.
  33.     " Draw for OS/2 is the fun, fast, and friendly way to draw attention!\n\n
  34.     "Use this program to install Draw 3.0 for OS/2 and to add additional
  35.     " features to Draw for OS/2, such as fonts and import/export
  36.     " translators.\n\n\n
  37.     "~Micrografx Installer Version 3.1\n
  38.     "~Copyright (c) Micrografx, Inc., 1991 - 1992.\n
  39.     "~All Rights Reserved.");
  40. BOOL    bCancel         FALSE;
  41. BOOL    bDeleted        FALSE;
  42. BOOL    bFit            FALSE;
  43. BOOL    bFonts          FALSE;
  44. BOOL    bIcons          FALSE;
  45. BOOL    bInstall        FALSE;
  46. BOOL    bResult         FALSE;
  47. BOOL    bReview         FALSE;
  48. BOOL    bSuccess        FALSE;
  49. BOOL    bUpdate         FALSE;
  50. BOOL    bLibPath        FALSE;
  51. BOOL    bLibPathchg     FALSE;
  52. BOOL    bStop           FALSE;
  53. BOOL    bQuit           FALSE;
  54. BOOL    bDraw           FALSE;
  55. BOOL    bOutlineFonts   FALSE;
  56. BOOL    bTranslators    FALSE;
  57. BOOL    bSamples        FALSE;
  58. BOOL    bClipArt        FALSE;
  59. BOOL    bRetailFonts    FALSE;
  60. BOOL    bDeleteFonts    FALSE;
  61. BOOL    bSkipClipPath   FALSE;
  62. BOOL    bSkipMenuText   FALSE;
  63. INT     nCount          0;
  64. INT     nResult         0;
  65. INT     nFontType       0;
  66. INT     MGX             1;
  67. INT     BIT             2;
  68. INT     URW             3;
  69. INT     SPD             4;
  70. INT     PS              5;
  71. STRING  pathOS2     "";
  72. STRING  pathSystem      "";
  73. STRING  pathDraw        "";
  74. STRING  pathLibrary     "";
  75. STRING  pathTutorial    "";
  76. STRING  pathAFMFiles    "";
  77. STRING  pathMGXFonts    "";
  78. STRING  pathBITFonts    "";
  79. STRING  pathSPDFonts    "";
  80. STRING  pathURWFonts    "";
  81. STRING  pathSamples     "";
  82. STRING  pathClipArt     "";
  83. STRING  pathRetail      "";
  84. STRING  pathSave        "";
  85. STRING  pathSaveApp     "";
  86. STRING  pathSaveLib     "";
  87. STRING  szHelp          "";
  88. STRING  szIni           "";
  89. STRING  szNetIni        "";
  90. STRING  szReadMe        "";
  91. STRING  szSelection     "";
  92. STRING  szSerialNumber  "";
  93. STRING  szTemp          "";
  94. STRING  szTemp2         "";
  95. GetWindowsPath (pathOS2);
  96. GetSystemPath (pathSystem);
  97. GetModuleFileName (szTemp);
  98. PathUp (szTemp,szTemp);
  99. PathCat (szHelp,szTemp,"INSTALL.HLP");
  100. PathCat (szReadMe,szTemp,"README.HLP");
  101. GetProfileString ('Micrografx','Draw 3.0 for OS/2',pathDraw);
  102. GetProfileString ('Micrografx','Libraries 4.0',pathLibrary);
  103. GetProfileString ('Micrografx','ClipArt',pathClipArt);
  104. GetProfileString ('Micrografx','AFM_Dir',pathAFMFiles);
  105. if STRCMP (pathAFMFiles,'')
  106. {
  107.     PathCat (pathAFMFiles,pathOS2,'DLL');
  108. }
  109. SetIcon (SPAIcon,1,1,"Draw for OS/2");
  110. SetHelp ("Click CONTINUE to proceed.");
  111. SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  112. TextDialog (
  113.     "Federal copyright law permits you to make a backup of this
  114.     " software for archival purposes only. Any other duplication,
  115.     " including copies offered through sale, loan, rental, or gift,
  116.     " is a violation of law, and is subject to criminal and civil
  117.     " penalties.\n\n
  118.     "Report copyright violations to:\n\n\n
  119.     "~Software Publishers Association\n
  120.     "~1101 Connecticut Ave NW, Suite 901\n
  121.     "~Washington, DC 20036");
  122. SetIcon (DrawIcon,1,1,"Draw for OS/2");
  123. if STRCMP (szSerialNumber,'')
  124. {
  125.     GetProfileString ('Draw 3.0 for OS/2','SN',szSerialNumber);
  126. }
  127. if STRCMP (szSerialNumber,'')
  128. {
  129.     szTemp = "";
  130.     SetHelp ("Click OK to accept serial number and proceed.");
  131.     SetExtHelp (
  132.         "It is important that you enter the Draw for OS/2 serial number
  133.         " in the text box provided. Technical Support will need this
  134.         " number should you contact them for assistance.\n\n
  135.         "You can locate the serial number on the registration card, on
  136.         " the bottom of the Draw for OS/2 packaging, and on the inside
  137.         " cover of the user's guide.");
  138.     SetButtons ("Ok","&Skip","",BUTTON1,BUTTON2);
  139.     Input (szTemp,"Enter serial number."
  140.         "Draw for OS/2 needs your serial number for future reference.
  141.         " In the box below, type the serial number that appears on
  142.         " your Draw for OS/2 registration card.\n\n
  143.         "Also, be sure to complete and mail your registration card.
  144.         " When you do, Micrografx will donate $1.00 to the charity
  145.         " of your choice!");
  146.     if PRESSED (BUTTON1)
  147.     {
  148.         szSerialNumber = szTemp;
  149.     }
  150. }
  151. WinHelp (bResult,szHelp,HELP_INDEX);
  152. if EQUALS (bResult,TRUE)
  153. {
  154.     SetHelp ("Click CONTINUE to proceed.");
  155.     SetExtHelp ("");
  156.     SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  157.     TextDialog (
  158.         "Behind the Micrografx Installer, you will find a help
  159.         " window containing Common Questions and Answers about
  160.         " the Micrografx Installer.\n\n
  161.         "To see the help window fully, click anywhere on it.
  162.         " The help window will surface over the Micrografx
  163.         " Installer.\n\n
  164.         "To return to the Micrografx Installer, minimize the
  165.         " help window. For information on minimizing a window,
  166.         " see your OS/2 manual.");
  167. }
  168. while EQUALS (bQuit,FALSE)
  169. {
  170.     SetIcon (DrawIcon,1,1,"Draw for OS/2");
  171.     ClearPackage ("",SP_ALL);
  172.     bCancel  = FALSE;
  173.     bFonts   = FALSE;
  174.     bIcons   = FALSE;
  175.     bInstall = FALSE;
  176.     bLibPath = FALSE;
  177.     if STRCMP (pathDraw,'')
  178.     {
  179.         if EQUALS (bSkipMenuText,FALSE)
  180.         {
  181.             SetHelp ("Click CONTINUE to proceed.");
  182.             SetExtHelp (
  183.                 "Minimum installation requires about 4 Mb of disk space:\n
  184.                 "- Draw for OS/2, for fun, fast, and friendly drawings\t\t\t2.5 Mb\n
  185.                 "- Various outline fonts\t\t\t\t\t\t1 Mb\n
  186.                 "- Sample artwork created by award-winning Micrografx artists\t0.5 Mb\n\n
  187.                 "Full installation requires about 18.5 Mb of disk space:\n
  188.                 "- Draw for OS/2, for fun, fast, and friendly drawings\t\t\t2.5 Mb\n
  189.                 "- All Type 1, Bitstream, and URW fonts\t\t\t\t2.5 Mb\n
  190.                 "- All translators, CGM, GEM, Mac PICT, WPG\t\t\t1 Mb\n
  191.                 "- All sample artwork, created by award-winning Micrografx artists\t0.5 Mb\n
  192.                 "- All Micrografx ClipArt, over 2,600 images\t\t\t\t12 Mb\n\n
  193.                 "Custom installation installs the features you choose:\n
  194.                 "- Draw for OS/2, for fun, fast, and friendly drawings\t\t\t2.5 Mb\n
  195.                 "- Fonts, including Type 1, Bitstream, and URW fonts\t\tup to 2.5 Mb\n
  196.                 "- Translators CGM, GEM, Mac PICT, WPG\t\t\tup to 1 Mb\n
  197.                 "- Sample artwork created by award-winning Micrografx artists\tup to 0.5 Mb\n
  198.                 "- ClipArt, over 2,600 images\t\t\t\t\tup to 12 Mb");
  199.             SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  200.             TextDialog (
  201.                 "To install Draw for OS/2, click CONTINUE to see the Main
  202.                 " Menu, then choose Minimum installation, Full installation,
  203.                 " or Custom installation.\n\n
  204.                 "Minimum installation installs Draw for OS/2, various outline
  205.                 " fonts, and sample artwork.\n\n
  206.                 "Full installation installs everything, including Draw for
  207.                 " OS/2, all fonts, all translators, all sample artwork, and
  208.                 " all ClipArt.\n\n
  209.                 "Custom installation installs the features you choose,
  210.                 " including Draw for OS/2, fonts, translators, sample 
  211.                 "artwork, and ClipArt.\n\n
  212.                 "~Click HELP for more information.");
  213.         }
  214.         bSkipMenuText = TRUE;
  215.         SetHelp ("Choose an option, click CONTINUE to proceed.");
  216.         SetButtons ("&Continue","&Quit","",BUTTON1,BUTTON2);
  217.  
  218.         SetExtHelp (
  219.             "- Minimum installation installs Draw for OS/2 fast. You will
  220.             " enter the path where you want to store the program files.
  221.             " Minimum installation then installs Draw for OS/2, various
  222.             " fonts, and sample artwork. It does not install Type 1 fonts,
  223.             " translators, or ClipArt.\n\n
  224.             "- Full installation installs everything. You will enter the
  225.             " path where you want to store the program files. Full
  226.             " installation then installs Draw for OS/2, all fonts,
  227.             " all translators, all sample artwork, and all ClipArt.\n\n
  228.             "- Custom installation installs the features you choose,
  229.             " including Draw for OS/2, fonts, translators, sample 
  230.             "artwork, and ClipArt.");
  231.         RadioMenu (szSelection,"Main Menu"
  232.             TRUE    "Minimum installation (requires 4 Mb)"      Minimum
  233.             FALSE   "Full installation (requires 18.5 Mb)"        Full
  234.             FALSE   "Custom installation (requirements vary)"   Custom);
  235.     }
  236.     else
  237.     {
  238.         if EQUALS (bSkipMenuText,FALSE)
  239.         {
  240.             SetHelp ("Click CONTINUE to proceed.");
  241.             SetExtHelp (
  242.                 "Update Draw for OS/2 replaces previously installed Draw for OS/2
  243.                 " files with new versions and requires little additional disk space.\n\n
  244.                 "Minimum installation requires about 4 Mb of disk space:\n
  245.                 "- Draw for OS/2, for fun, fast, and friendly drawings\t\t\t\t2.5 Mb\n
  246.                 "- Various outline fonts, including Courier, Dutch, and Swiss\t\t\t1 Mb\n
  247.                 "- Sample artwork created by award-winning Micrografx artists\t\t0.5 Mb\n\n
  248.                 "Full installation requires about 18.5 Mb of disk space:\n
  249.                 "- Draw for OS/2, for fun, fast, and friendly drawings\t\t\t\t2.5 Mb\n
  250.                 "- All Type 1, Bitstream, and URW fonts\t\t\t\t\t2.5 Mb\n
  251.                 "- All translators, Adobe Illustrator EPS, CGM, GEM, Mac PICT, WPG\t1 Mb\n
  252.                 "- All sample artwork, created by award-winning Micrografx artists\t\t0.5 Mb\n
  253.                 "- All Micrografx ClipArt, over 2,600 images\t\t\t\t\t12 Mb\n\n
  254.                 "Custom installation installs the features you choose.");
  255.             SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  256.             TextDialog (
  257.                 "To install Draw for OS/2, click CONTINUE to see the Main
  258.                 " Menu, then choose Update Draw for OS/2, Full installation,
  259.                 " or Custom installation.\n\n
  260.                 "Update Draw for OS/2 replaces previously installed Draw for
  261.                 " OS/2 files with new versions.\n\n
  262.                 "Minimum installation installs Draw for OS/2, various outline
  263.                 " fonts, and sample artwork.\n\n
  264.                 "Full installation installs everything, including Draw for
  265.                 " OS/2, all fonts, all translators, all sample
  266.                 " artwork, and all ClipArt.\n\n
  267.                 "~Click HELP for more information.");
  268.         }
  269.         bSkipMenuText = TRUE;
  270.         SetHelp ("Choose an option, click CONTINUE to proceed.");
  271.         SetButtons ("&Continue","&Quit","",BUTTON1,BUTTON2);
  272.  
  273.         SetExtHelp (
  274.             "- Update Draw for OS/2 installs Draw for OS/2 fast. It replaces
  275.             " old Draw for OS/2 program files with new versions.\n\n
  276.             "- Minimum installation installs Draw for OS/2 fast. You will
  277.             " enter the path where you want to store the program files.
  278.             " Minimum installation then installs Draw for OS/2, various
  279.             " outline fonts, and sample artwork. It does not install
  280.             " Type 1 fonts, translators, or ClipArt.\n\n
  281.             "- Full installation installs everything. You will enter the
  282.             " path where you want to store the program files. Full
  283.             " installation then installs Draw for OS/2, all fonts,
  284.             " all translators, all sample artwork, and all ClipArt.\n\n
  285.             "- Custom installation installs the features you choose,
  286.             " including Draw for OS/2, fonts, translators, sample
  287.             " artwork, and ClipArt.");
  288.         RadioMenu (szSelection,"Main Menu"
  289.             TRUE    "Update Draw for OS/2 (recommended)"         Update
  290.             FALSE   "Minimum installation (requires 4 Mb)"      Minimum
  291.             FALSE   "Full installation (requires 18.5 Mb)"        Full
  292.             FALSE   "Custom installation (requirements vary)"   Custom);
  293.     }
  294.     if PRESSED (BUTTON1)
  295.     {
  296.         call szSelection;
  297.         if EQUALS (bInstall,TRUE)
  298.         {
  299.             GetSelectCount (nCount,'','','');
  300.             if GT (nCount,0)
  301.             {
  302.                 SetIcon (FloppyIcon,0,0,"Draw for OS/2");
  303.                 CreateInfoPanel (bResult,0,
  304.                     "Micrografx offers a complete family of software products:\n\n
  305.                     "* Micrografx Designer - for precision illustration with
  306.                     " flexibility and features no other program can match.\n
  307.                     "* Charisma - for spectacular business charts and
  308.                     " graphics.\n
  309.                     "* Picture Publisher - for complete color and gray scale
  310.                     " image editing.\n
  311.                     "* ABC Flowcharter - for high-quality, professional flowcharts.\n
  312.                     "* Windows OrgChart - for quick and easy organizational
  313.                     " charts.\n\n
  314.                     "For more information on any of these products, or to order
  315.                     " Micrografx products, call:\n
  316.                     "800-733-DRAW, ext. 5050");
  317.                 CreateInfoPanel (bResult,33,
  318.                     "Micrografx offers the most complete Windows and OS/2 graphics
  319.                     " software solutions available anywhere. In addition, our
  320.                     " technical support is available 24 hours a day, Monday
  321.                     " through Friday, and from 8 a.m. to 5 p.m. on Saturday and
  322.                     " Sunday (central time)!\n\n
  323.                     "To speak with the most helpful technical support in the
  324.                     " industry, call 214-234-2694.");
  325.                 CreateInfoPanel (bResult,66,
  326.                     "Please take a moment to fill out and return your product
  327.                     " registration card. Select one of the five charities listed
  328.                     " on the card and Micrografx will donate $1.00 to that
  329.                     " charity in your name.\n\n
  330.                     "By returning your registration card, you do more than
  331.                     " protect your software investment, you also support a good
  332.                     " cause!");
  333.                 SetHelp ("Click CANCEL to stop installation.");
  334.                 SetExtHelp ("");
  335.                 SetButtons ("Cancel","","",BUTTON1,BUTTON1);
  336.                 Install (bSuccess,SM_SHOW,ES_SELECTED,EX_UPDATE,
  337.                     "Installing %s in\n    %s",
  338.                     "Insert Draw for OS/2 diskette %u in drive %c:.\n\nNOTE: Depending on the options you selected, you may not use every diskette.
  339.                     "DISK_%03u.MDA");
  340.                 SetIcon (DrawIcon,1,1);
  341.                 SetHelp ("");
  342.                 SetButtons ("","","",BUTTON1,BUTTON1);
  343.                 ClearInfoPanel (CLEAR_ALL);
  344.                 if EQUALS (bSuccess,TRUE)
  345.                 {
  346.                     if EQUALS (bFonts,TRUE)
  347.                     {
  348.                         SetText ("\n\n\n\n\n\n~Processing fonts...");
  349.                         UpdateFonts (pathBITFonts,BIT,'MGXBIT.FTM','BSBEZ.FTM');
  350.                         UpdateFonts (pathSPDFonts,SPD,'MGXSPD.FTM','BSSPD.FTM');
  351.                         UpdateFonts (pathURWFonts,URW,'MGXURW.FTM','URWBEZ.FTM');
  352.                         ProcessFonts (bSuccess,'MGXFNT.FTM',MGX,TRUE,'pkgFonts',TRUE);
  353.                         ProcessFonts (bSuccess,'MGXFNT.FTM',MGX,TRUE,'pkgCoreFonts',TRUE);
  354.                         ProcessFonts (bSuccess,'',PS,TRUE,'pkgFonts',TRUE);
  355.                         ProcessFonts (bSuccess,'',PS,TRUE,'pkgCoreFonts',TRUE);
  356.                         szIni = "OS2.INI";
  357.                     }
  358.                 }
  359.                 if EQUALS (bSuccess,TRUE)
  360.                 {
  361.                     if EQUALS (bIcons,TRUE)
  362.                     {
  363.                         SetText ("\n\n\n\n\n\n~Adding icon...");
  364.                         call AddIcons;
  365.                     }
  366.                 }
  367.                 if EQUALS (bSuccess,TRUE)
  368.                 {
  369.                     SetText ("\n\n\n\n\n\n~Processing OS2.INI...");
  370.                     call AddOs2Ini;
  371.                     if EQUALS (SCRIPT.bNetwork,TRUE)
  372.                     {
  373.                         SetText ("\n\n\n\n\n\n~Processing MGXNET.INI...");
  374.                         call AddNetIni;
  375.                         if EQUALS (bFonts,TRUE)
  376.                         {
  377.                             szIni = szNetIni;
  378.                         }
  379.                     }
  380.                     #AppendToPath (bResult,pathDraw);
  381.                 }
  382.                 if EQUALS (bSuccess,TRUE)
  383.                 {
  384.                     if EQUALS (bLibPath,TRUE)
  385.                     {
  386.                         SetText ("\n\n\n\n\n\n~Updating CONFIG.SYS...");
  387.                         call UpdateLibpath;
  388.                     }
  389.                 }
  390.                 SetText ("\n\n\n\n\n\n~One moment, please...");
  391.                 ShowWindow;
  392.                 call ResultDialog;
  393.                 SetIcon (DrawIcon,1,1);
  394.             }
  395.         }
  396.     }
  397.     else
  398.     {
  399.         bQuit = TRUE;
  400.     }
  401. }
  402.  
  403. ##############################################################################
  404.  
  405. [Minimum] ()
  406. SetHelp ("Click CONTINUE to proceed.");
  407. SetExtHelp ("");
  408. SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  409. TextDialog (
  410.     "Minimum installation will install the following:\n\n
  411.     "\t- Draw for OS/2\t\t\t2.5 Mb\n
  412.     "\t- Various outline fonts\t\t1.0 Mb\n
  413.     "\t- All sample artwork\t\t\t0.5 Mb\n
  414.     "\t\t\t\t\t\t------------\n
  415.     "\tTotal disk space required:\t\t4.0 Mb\n\n
  416.     "To install Draw for OS/2, click CONTINUE now.");
  417. if PRESSED (BUTTON1)
  418. {
  419.     pathSaveApp = pathDraw;
  420.     pathSaveLib = pathLibrary;
  421.     if STRCMP (pathDraw,'')
  422.     {
  423.         PathCat (pathDraw,pathOS2,"DRAW");
  424.     }
  425.     bReview = FALSE;
  426.     bStop   = FALSE;
  427.     while EQUALS (bStop,FALSE)
  428.     {
  429.         SetIcon (DrawIcon,1,1,"Draw for OS/2");
  430.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  431.         SetExtHelp (
  432.             "You can choose where you want to install the Draw for OS/2
  433.             " files. It's as easy as accepting the drive and directory
  434.             " in the text box or typing new information in the text
  435.             " box.\n\n
  436.             "To select a drive and directory:\n
  437.             "- Type a new drive and directory in the text box, then
  438.             " click Ok.\n
  439.             "\tOR\n
  440.             "- Accept the path listed in the text box by clicking Ok.\n\n
  441.             "Note: The space available on each drive is located to the
  442.             " right of the drive letter in the list box.");
  443.         SetButtons ("Ok","Cancel","",BUTTON1,BUTTON2);
  444.         GetPath (pathDraw,"Enter the path to use for Draw for OS/2.
  445.             "Where do you want to put Draw for OS/2? The directory you specify will
  446.             " contain Draw for OS/2 when the installation process is complete.");
  447.         if PRESSED (BUTTON1)
  448.         {
  449.             SetExtHelp ("");
  450.             if STRCMP (pathLibrary,'')
  451.             {
  452.                 PathUp (szTemp,pathDraw);
  453.                 PathCat (pathLibrary,szTemp,"MGXLIBS");
  454.             }
  455.             PathCat (pathClipart,pathLibrary,"CLIPART");
  456.             PathCat (pathMGXFonts,pathLibrary,'MGXFONTS');
  457.             PathCat (pathBITFonts,pathLibrary,'BITFONTS');
  458.             PathCat (pathSPDFonts,pathLibrary,'SPDFONTS');
  459.             PathCat (pathURWFonts,pathLibrary,'URWFONTS');
  460.             PathCat (pathSamples,pathDraw,"SAMPLES");
  461.             PathCat (pathTutorial,pathDraw,"TUTORIAL");
  462.             if EQUALS (SCRIPT.bNetwork,TRUE)
  463.             {
  464.                 PathCat (pathSystem,pathLibrary,"SYSTEM");
  465.             }
  466.             SelectPackage ('pkgDraw'     ,SP_ALL);
  467.             SelectPackage ('pkgLibrary'  ,SP_ALL);
  468.             SelectPackage ('pkgClipCat'  ,SP_ALL);
  469.             SelectPackage ('pkgTutorial' ,SP_ALL);
  470.             SelectPackage ('pkgCoreFonts',SP_ALL);
  471.             SelectPackage ('pkgSamples'  ,SP_ALL);
  472.             if EQUALS (SCRIPT.bNetwork,TRUE)
  473.             {
  474.                 SelectPackage ('pkgNetwork',SP_ALL);
  475.             }
  476.             bCancel = FALSE;
  477.             if EQUALS (bCancel,FALSE)
  478.             {
  479.                 SetHelp ("");
  480.                 SetExtHelp ("");
  481.                 SetButtons ("","","",BUTTON1,BUTTON1);
  482.                 Fit (bFit);
  483.                 if EQUALS (bFit,TRUE)
  484.                 {
  485.                     bFonts   = TRUE;
  486.                     bIcons   = TRUE;
  487.                     bInstall = TRUE;
  488.                     bStop    = TRUE;
  489.                     bLibPath = TRUE;
  490.                 }
  491.                 else
  492.                 {
  493.                     SetHelp ("Click REVIEW to change your selections.");
  494.                     SetButtons ("&Review","Cancel","",BUTTON1,BUTTON2);
  495.                     TextDialog (
  496.                         "The selections you made will not fit. If you want to
  497.                         " change your selections, click REVIEW now.");
  498.                     if PRESSED (BUTTON1)
  499.                     {
  500.                         bReview = TRUE;
  501.                     }
  502.                     else
  503.                     {
  504.                         bStop = TRUE;
  505.                     }
  506.                 }
  507.             }
  508.             else
  509.             {
  510.                 bStop = TRUE;
  511.             }
  512.         }
  513.         else
  514.         {
  515.             pathDraw    = pathSaveApp;
  516.             pathLibrary = pathSaveLib;
  517.             bStop = TRUE;
  518.         }
  519.     }
  520. }
  521.  
  522. ##############################################################################
  523.  
  524. [Update] ()
  525. bUpdate = TRUE;
  526. if STRCMP (pathDraw,'')
  527. {
  528.     bUpdate = FALSE;
  529. }
  530. if STRCMP (pathLibrary,'')
  531. {
  532.     bUpdate = FALSE;
  533. }
  534. if STRCMP (pathClipArt,'')
  535. {
  536.     bUpdate = FALSE;
  537. }
  538. if EQUALS (bUpdate,TRUE)
  539. {
  540.     SetIcon (DrawIcon,1,1);
  541.     SetText (
  542.         "\n\n\n\n\n\n
  543.         "~Searching for files to update.\n
  544.         "~One moment, please...");
  545.     SetHelp ("");
  546.     SetExtHelp ("");
  547.     SetButtons ("","","",BUTTON1,BUTTON1);
  548.     PathCat (pathSamples,pathDraw,"SAMPLES");
  549.     PathCat (pathTutorial,pathDraw,"TUTORIAL");
  550.     if EQUALS (SCRIPT.bNetwork,TRUE)
  551.     {
  552.         PathCat (pathSystem,pathLibrary,"SYSTEM");
  553.     }
  554.     SelectPackage ('pkgDraw'       ,SP_ALL);
  555.     SelectPackage ('pkgLibrary'    ,SP_ALL);
  556.     SelectPackage ('pkgClipCat'    ,SP_ALL);
  557.     SelectPackage ('pkgTutorial'   ,SP_ALL);
  558.     SelectPackage ('pkgFonts'      ,SP_EXISTS);
  559.     SelectPackage ('pkgTranslators',SP_EXISTS);
  560.     PathCat (pathMGXFonts,pathLibrary,'MGXFONTS');
  561.     PathCat (pathBITFonts,pathLibrary,'BITFONTS');
  562.     PathCat (pathSPDFonts,pathLibrary,'SPDFONTS');
  563.     PathCat (pathURWFonts,pathLibrary,'URWFONTS');
  564.     PathCat (szTemp,pathBITFonts,'BSBEZ.FTM');
  565.     GetFontList (GFL_FTM,szTemp,'shipping',BIT,nCount);
  566.     PathCat (szTemp,pathSPDFonts,'BSSPD.FTM');
  567.     GetFontList (GFL_FTM,szTemp,'shipping',SPD,nCount);
  568.     PathCat (szTemp,pathURWFonts,'URWBEZ.FTM');
  569.     GetFontList (GFL_FTM,szTemp,'shipping',URW,nCount);
  570.     SelectFonts ('pkgFonts',SP_EXISTS);
  571.     ClearFontList;
  572.     if EQUALS (SCRIPT.bNetwork,TRUE)
  573.     {
  574.         SelectPackage ('pkgNetwork',SP_ALL);
  575.     }
  576.     SetHelp ("");
  577.     SetExtHelp ("");
  578.     SetButtons ("","","",BUTTON1,BUTTON1);
  579.     Fit (bFit);
  580.     SetText ("\n\n\n\n\n\n~One moment, please...");
  581.     if EQUALS (bFit,TRUE)
  582.     {
  583.         bFonts   = TRUE;
  584.         bInstall = TRUE;
  585.     }
  586.     else
  587.     {
  588.         SetHelp ("Click CONTINUE to return to the Main Menu.");
  589.         SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  590.         TextDialog (
  591.             "The selections required to update Draw for OS/2 will not
  592.             " fit. Make room on your disk and try again or choose the
  593.             " Custom installation option in the Main Menu of this
  594.             " program to select fewer features.");
  595.     }
  596. }
  597. else
  598. {
  599.     SetHelp ("Click CONTINUE to return to the Main Menu.");
  600.     SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  601.     TextDialog (
  602.         "Directory information for Draw for OS/2 is missing from
  603.         " the OS2.INI file. Try the Custom installation option in
  604.         " the Main Menu of this program to install Draw for OS/2.");
  605. }
  606.  
  607. ##############################################################################
  608.  
  609. [Full] ()
  610. SetHelp ("Click CONTINUE to proceed.");
  611. SetExtHelp ("");
  612. SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  613. TextDialog (
  614.     "Full installation will install the following:\n\n
  615.     "\t- Draw for OS/2\t\t 2.5 Mb\n
  616.     "\t- All fonts\t\t\t 2.5 Mb\n
  617.     "\t- All translators\t\t 1.0 Mb\n
  618.     "\t- All sample artwork\t\t 0.5 Mb\n
  619.     "\t- All Micrografx ClipArt\t12.0 Mb\n
  620.     "\t\t\t\t\t------------\n
  621.     "\tTotal disk space required:\t18.5 Mb\n\n
  622.     "To install Draw for OS/2, click CONTINUE now.");
  623. if PRESSED (BUTTON1)
  624. {
  625.     pathSaveApp = pathDraw;
  626.     pathSaveLib = pathLibrary;
  627.     if STRCMP (pathDraw,'')
  628.     {
  629.         PathCat (pathDraw,pathOS2,"DRAW");
  630.     }
  631.     bReview = FALSE;
  632.     bStop   = FALSE;
  633.     while EQUALS (bStop,FALSE)
  634.     {
  635.         SetIcon (DrawIcon,1,1,"Draw for OS/2");
  636.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  637.         SetExtHelp (
  638.             "You can choose where you want to install the Draw for OS/2
  639.             " files. It's as easy as accepting the drive and directory
  640.             " in the text box or typing new information in the text
  641.             " box.\n\n
  642.             "To select a drive and directory:\n
  643.             "- Type a new drive and directory in the text box, then
  644.             " click Ok.\n
  645.             "\tOR\n
  646.             "- Accept the path listed in the text box by clicking Ok.\n\n
  647.             "Note: The space available on each drive is located to the
  648.             " right of the drive letter in the list box.");
  649.         SetButtons ("Ok","Cancel","",BUTTON1,BUTTON2);
  650.         GetPath (pathDraw,"Enter the path to use for Draw for OS/2.
  651.             "Where do you want to put Draw for OS/2? The directory you specify will
  652.             " contain Draw for OS/2 when the installation process is complete.");
  653.         if PRESSED (BUTTON1)
  654.         {
  655.             SetExtHelp ("");
  656.             if STRCMP (pathLibrary,'')
  657.             {
  658.                 PathUp (szTemp,pathDraw);
  659.                 PathCat (pathLibrary,szTemp,"MGXLIBS");
  660.             }
  661.             PathCat (pathClipart,pathLibrary,"CLIPART");
  662.             PathCat (pathMGXFonts,pathLibrary,'MGXFONTS');
  663.             PathCat (pathBITFonts,pathLibrary,'BITFONTS');
  664.             PathCat (pathSPDFonts,pathLibrary,'SPDFONTS');
  665.             PathCat (pathURWFonts,pathLibrary,'URWFONTS');
  666.             PathCat (pathSamples,pathDraw,"SAMPLES");
  667.             PathCat (pathTutorial,pathDraw,"TUTORIAL");
  668.             if EQUALS (SCRIPT.bNetwork,TRUE)
  669.             {
  670.                 PathCat (pathSystem,pathLibrary,"SYSTEM");
  671.             }
  672.             SelectPackage ('pkgDraw'       ,SP_ALL);
  673.             SelectPackage ('pkgLibrary'    ,SP_ALL);
  674.             SelectPackage ('pkgClipCat'    ,SP_ALL);
  675.             SelectPackage ('pkgTutorial'   ,SP_ALL);
  676.             SelectPackage ('pkgFonts'      ,SP_ALL);
  677.             SelectPackage ('pkgTranslators',SP_ALL);
  678.             SelectPackage ('pkgSamples'    ,SP_ALL);
  679.             SelectPackage ('pkgClipArt'    ,SP_ALL);
  680.             if EQUALS (SCRIPT.bNetwork,TRUE)
  681.             {
  682.                 SelectPackage ('pkgNetwork',SP_ALL);
  683.             }
  684.             SetHelp ("");
  685.             SetExtHelp ("");
  686.             SetButtons ("","","",BUTTON1,BUTTON1);
  687.             Fit (bFit);
  688.             if EQUALS (bFit,TRUE)
  689.             {
  690.                 bFonts   = TRUE;
  691.                 bIcons   = TRUE;
  692.                 bInstall = TRUE;
  693.                 bStop    = TRUE;
  694.                 bLibPath = TRUE;
  695.             }
  696.             else
  697.             {
  698.                 SetHelp ("Click REVIEW to change your selections.");
  699.                 SetButtons ("&Review","Cancel","",BUTTON1,BUTTON2);
  700.                 TextDialog (
  701.                     "The selections you made will not fit. If you want to
  702.                     " change your selections, click REVIEW now.");
  703.                 if PRESSED (BUTTON1)
  704.                 {
  705.                     bReview = TRUE;
  706.                 }
  707.                 else
  708.                 {
  709.                     bStop = TRUE;
  710.                 }
  711.             }
  712.         }
  713.         else
  714.         {
  715.             pathDraw    = pathSaveApp;
  716.             pathLibrary = pathSaveLib;
  717.             bStop = TRUE;
  718.         }
  719.     }
  720. }
  721.  
  722. ##############################################################################
  723.  
  724. [Custom] ()
  725. SetHelp ("Choose options, click CONTINUE to proceed.");
  726. SetExtHelp (
  727.     "Use the Custom Installation Menu to install Draw for OS/2
  728.     " and choose the features you want to use with it, including
  729.     " fonts, import/export translators, sample artwork, and 
  730.     "ClipArt.\n\n
  731.     "To select features:\n
  732.     "1. Click the features you want to install.\n
  733.     "2. Click Continue when you are ready to proceed.\n\n
  734.     "Note: All options are selected by default. Click an option
  735.     " once to prevent installing that option.");
  736. SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  737. CheckMenu ("Custom Installation Menu"
  738.     TRUE    "Install Draw for OS/2"     bDraw
  739.     TRUE    "Install fonts"             bOutlineFonts
  740.     TRUE    "Install translators"       bTranslators
  741.     TRUE    "Install samples"           bSamples
  742.     TRUE    "Install ClipArt"           bClipArt);
  743. if PRESSED (BUTTON1)
  744. {
  745.     bReview = FALSE;
  746.     bStop   = FALSE;
  747.     while EQUALS (bStop,FALSE)
  748.     {
  749.         bCancel = FALSE;
  750.         if EQUALS (bDraw,TRUE)
  751.         {
  752.             call Draw;
  753.         }
  754.         if EQUALS (bCancel,FALSE)
  755.         {
  756.             if EQUALS (bOutlineFonts,TRUE)
  757.             {
  758.                 call OutlineFonts;
  759.             }
  760.         }
  761.         if EQUALS (bCancel,FALSE)
  762.         {
  763.             if EQUALS (bTranslators,TRUE)
  764.             {
  765.                 call Translators;
  766.             }
  767.         }
  768.         if EQUALS (bCancel,FALSE)
  769.         {
  770.             if EQUALS (bSamples,TRUE)
  771.             {
  772.                 call Samples;
  773.             }
  774.         }
  775.         if EQUALS (bCancel,FALSE)
  776.         {
  777.             if EQUALS (bClipArt,TRUE)
  778.             {
  779.                 call ClipArt;
  780.             }
  781.         }
  782.         if EQUALS (bCancel,FALSE)
  783.         {
  784.             GetSelectCount (nCount,'','','');
  785.             if EQUALS (nCount,0)
  786.             {
  787.                 SetIcon (DrawIcon,1,1,"Draw for OS/2");
  788.                 SetHelp ("Click CONTINUE to proceed.");
  789.                 SetExtHelp ("");
  790.                 SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  791.                 TextDialog ("Nothing was selected to install.");
  792.                 bCancel = TRUE;
  793.             }
  794.         }
  795.         if EQUALS (bCancel,FALSE)
  796.         {
  797.             bIcons = FALSE;
  798.             if EQUALS (bDraw,TRUE)
  799.             {
  800.                 SetIcon (DrawIcon,1,1,"Draw for OS/2");
  801.                 SetHelp ("Click ADD to add icon.");
  802.                 SetExtHelp ("");
  803.                 SetButtons ("&Add","&Skip","Cancel",BUTTON1,BUTTON3);
  804.                 TextDialog (
  805.                     "Custom installation can add the Draw for OS/2 icon
  806.                     " to the Micrografx Folder for you. If you want to
  807.                     " add the icon, click ADD now.");
  808.                 if PRESSED (BUTTON1)
  809.                 {
  810.                     bIcons = TRUE;
  811.                 }
  812.                 if PRESSED (BUTTON3)
  813.                 {
  814.                     bCancel = TRUE;
  815.                 }
  816.             }
  817.         }
  818.         if EQUALS (bCancel,FALSE)
  819.         {
  820.             bLibPath = FALSE;
  821.             if EQUALS (bDraw,TRUE)
  822.             {
  823.                 SetIcon (DrawIcon,1,1,"Draw for OS/2");
  824.                 SetHelp ("Click UPDATE to update CONFIG.SYS file.");
  825.                 SetExtHelp ("");
  826.                 SetButtons ("&Update","&Skip","&Cancel",BUTTON1,BUTTON3);
  827.                 TextDialog (
  828.                     "Custom installation can update your CONFIG.SYS
  829.                     " file to ensure that the directory containing the
  830.                     " installed libraries is specified in the LIBPATH
  831.                     " statement.  If you want to update the CONFIG.SYS
  832.                     " file, click UPDATE now.");
  833.                 if PRESSED (BUTTON1)
  834.                 {
  835.                     bLibPath = TRUE;
  836.                 }
  837.                 if PRESSED (BUTTON3)
  838.                 {
  839.                     bCancel = TRUE;
  840.                 }
  841.             }
  842.         }
  843.         if EQUALS (bCancel,FALSE)
  844.         {
  845.             SetIcon (DrawIcon,1,1);
  846.             SetHelp ("");
  847.             SetExtHelp ("");
  848.             SetButtons ("","","",BUTTON1,BUTTON1);
  849.             Fit (bFit);
  850.             SetIcon (DrawIcon,1,1,"Draw for OS/2");
  851.             if EQUALS (bFit,TRUE)
  852.             {
  853.                 SetHelp ("Click INSTALL to install your selections.");
  854.                 SetButtons ("&Install","&Review","Cancel",BUTTON1,BUTTON3);
  855.                 TextDialog (
  856.                     "Draw for OS/2 installation will now install your selections.
  857.                     " If you want to review your selections, click REVIEW
  858.                     " now.\n\n
  859.                     "Note: The Micrografx Installer requests only the diskettes
  860.                     " containing the options you selected. You may not use
  861.                     " every diskette.");
  862.                 if PRESSED (BUTTON1)
  863.                 {
  864.                     bStop = TRUE;
  865.                 }
  866.                 if PRESSED (BUTTON2)
  867.                 {
  868.                     bReview = TRUE;
  869.                 }
  870.                 if PRESSED (BUTTON3)
  871.                 {
  872.                     bCancel = TRUE;
  873.                 }
  874.             }
  875.             else
  876.             {
  877.                 SetHelp ("Click REVIEW to change your selections.");
  878.                 SetButtons ("&Review","Cancel","",BUTTON1,BUTTON2);
  879.                 TextDialog (
  880.                     "The selections you made will not fit. If you want to
  881.                     " change your selections, click REVIEW now.");
  882.                 if PRESSED (BUTTON1)
  883.                 {
  884.                     bReview = TRUE;
  885.                 }
  886.                 else
  887.                 {
  888.                     bCancel = TRUE;
  889.                 }
  890.             }
  891.         }
  892.         if EQUALS (bCancel,TRUE)
  893.         {
  894.             bInstall = FALSE;
  895.             bStop    = TRUE;
  896.         }
  897.     }
  898. }
  899.  
  900. ##############################################################################
  901.  
  902. [Utilities] ()
  903. bStop = FALSE;
  904. while EQUALS (bStop,FALSE)
  905. {
  906.     ClearPackage ("",SP_ALL);
  907.     bInstall = FALSE;
  908.     SetIcon (DrawIcon,1,1,"Draw for OS/2");
  909.     SetHelp ("Choose an option, click CONTINUE to proceed.");
  910.     SetExtHelp (
  911.         "Use the Utility Menu to install retail fonts (Bitstream
  912.         " and URW) and to delete outline fonts. Retail fonts are
  913.         " fonts purchased separately from Draw for OS/2.\n\n
  914.         "To use a utility:\n
  915.         "- Click an option and click Continue.");
  916.     SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  917.     RadioMenu (szSelection,"Utility Menu"
  918.         TRUE    "Install retail fonts (Bitstream and URW)"  RetailFonts
  919.         FALSE   "Delete outline fonts"                      DeleteFonts);
  920.     if PRESSED (BUTTON1)
  921.     {
  922.         SetExtHelp ("");
  923.         bReview = FALSE;
  924.         bCancel = FALSE;
  925.         while EQUALS (bCancel,FALSE)
  926.         {
  927.             call szSelection;
  928.             if EQUALS (bInstall,TRUE)
  929.             {
  930.                 SetHelp ("");
  931.                 SetExtHelp ("");
  932.                 SetButtons ("","","",BUTTON1,BUTTON1);
  933.                 Fit (bFit);
  934.                 if EQUALS (bFit,TRUE)
  935.                 {
  936.                     bCancel = TRUE;
  937.                     bStop   = TRUE;
  938.                 }
  939.                 else
  940.                 {
  941.                     SetHelp ("Click REVIEW to change your selections.");
  942.                     SetButtons ("&Review","Cancel","",BUTTON1,BUTTON2);
  943.                     TextDialog (
  944.                         "The selections you made will not fit. If you want to
  945.                         " change your selections, click REVIEW now.");
  946.                     if PRESSED (BUTTON1)
  947.                     {
  948.                         bReview = TRUE;
  949.                     }
  950.                     else
  951.                     {
  952.                         bCancel = TRUE;
  953.                     }
  954.                 }
  955.             }
  956.             else
  957.             {
  958.                 bCancel = TRUE;
  959.             }
  960.         }
  961.     }
  962.     else
  963.     {
  964.         bStop = TRUE;
  965.     }
  966. }
  967.  
  968. ##############################################################################
  969.  
  970. [Draw] ()
  971. SetIcon (DrawIcon,1,1,"Draw for OS/2");
  972. PressButton (BUTTON1);
  973. if EQUALS (bReview,FALSE)
  974. {
  975.     SetHelp ("Click ACCEPT to install Draw for OS/2.");
  976.     SetExtHelp ("");
  977.     SetButtons ("&Accept","&Skip","Cancel",BUTTON1,BUTTON3);
  978.     TextDialog (
  979.         "Custom installation will install Draw for OS/2 program files
  980.         " after prompting you for any necessary information.\n\n
  981.         "To install Draw for OS/2, click ACCEPT now.");
  982. }
  983. if PRESSED (BUTTON1)
  984. {
  985.     pathSave = pathDraw;
  986.     if STRCMP (pathDraw,'')
  987.     {
  988.         PathCat (pathDraw,pathOS2,"DRAW");
  989.     }
  990.     SetHelp ("Click OK to accept Draw for OS/2 path.");
  991.     SetExtHelp (
  992.         "You can choose where you want to install the Draw for OS/2
  993.         " files. It's as easy as accepting the drive and directory
  994.         " in the text box or typing new information.\n\n
  995.         "To select a drive and directory:\n
  996.         "- Type a new drive and directory in the text box, then
  997.         " click Ok.\n
  998.         "\tOR\n
  999.         "- Click Ok to accept the path listed in the text box.\n\n
  1000.         "Note: The space available on each drive is located to the
  1001.         " right of the drive letter in the list box.");
  1002.     SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1003.     GetPath (pathDraw,"Enter the path to use for Draw for OS/2.
  1004.         "Where do you want to put Draw for OS/2? The directory you specify
  1005.         " will contain Draw for OS/2 when the installation process is complete.");
  1006.     if NOT PRESSED (BUTTON1)
  1007.     {
  1008.         pathDraw = pathSave;
  1009.     }
  1010. }
  1011. if PRESSED (BUTTON1)
  1012. {
  1013.     pathSave = pathLibrary;
  1014.     if STRCMP (pathLibrary,'')
  1015.     {
  1016.         PathUp  (szTemp,pathDraw);
  1017.         PathCat (pathLibrary,szTemp,"MGXLIBS");
  1018.     }
  1019.     SetHelp ("Click OK to accept library path.");
  1020.     SetExtHelp (
  1021.         "To conserve space on your hard disk, Micrografx shares
  1022.         " files among its applications. These files, called
  1023.         " libraries, include fonts, translators, and other files.\n\n
  1024.         "To select a drive and directory:\n
  1025.         "- Type a new drive and directory in the text box and
  1026.         " click Ok.\n
  1027.         "\tOR\n
  1028.         "- Click Ok to accept the path listed in the text box.\n\n
  1029.         "Note: The space available on each drive is located to the
  1030.         " right of the drive letter in the list box.");
  1031.     SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1032.     GetPath (pathLibrary,"Enter the path to use for Micrografx libraries.
  1033.         "Where do you want to put Micrografx libraries? The directory you
  1034.         " specify will contain libraries when the installation process is
  1035.         " complete.  The directory must be specified in the LIBPATH statement
  1036.         " in your CONFIG.SYS file.");
  1037.     if NOT PRESSED (BUTTON1)
  1038.     {
  1039.         pathLibrary = pathSave;
  1040.     }
  1041. }
  1042. if PRESSED (BUTTON1)
  1043. {
  1044.     pathSave = pathClipArt;
  1045.     if STRCMP (pathClipArt,'')
  1046.     {
  1047.         PathCat (pathClipArt,pathLibrary,"CLIPART");
  1048.     }
  1049.     SetHelp ("Click OK to accept ClipArt path.");
  1050.     SetExtHelp (
  1051.         "You can choose where to install the ClipArt catalogs that
  1052.         " Draw for OS/2 uses to organize ClipArt.\n\n
  1053.         "To choose a drive and directory:\n
  1054.         "- Type a new drive and directory in the text box, then
  1055.         " click Ok.\n
  1056.         "\tOR\n
  1057.         "- Accept the path in the text box by clicking Ok.\n\n
  1058.         "Note: The space available on each drive is located to the
  1059.         " right of the drive letter in the list box.");
  1060.     SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1061.     GetPath (pathClipArt,"Enter the path to use for ClipArt catalogs.
  1062.         "Where do you want to put ClipArt catalogs? The directory you
  1063.         " specify will contain ClipArt catalogs when the installation
  1064.         " process is complete.");
  1065.     if NOT PRESSED (BUTTON1)
  1066.     {
  1067.         pathClipArt = pathSave;
  1068.     }
  1069. }
  1070. if PRESSED (BUTTON1)
  1071. {
  1072.     bSkipClipPath = TRUE;
  1073.     PathCat (pathSamples,pathDraw,"SAMPLES");
  1074.     PathCat (pathTutorial,pathDraw,"TUTORIAL");
  1075.     if EQUALS (SCRIPT.bNetwork,TRUE)
  1076.     {
  1077.         PathCat (pathSystem,pathLibrary,"SYSTEM");
  1078.     }
  1079.     SelectPackage ('pkgDraw'    ,SP_ALL);
  1080.     SelectPackage ('pkgLibrary' ,SP_ALL);
  1081.     SelectPackage ('pkgClipCat' ,SP_ALL);
  1082.     SelectPackage ('pkgTutorial',SP_ALL);
  1083.     if EQUALS (SCRIPT.bNetwork,TRUE)
  1084.     {
  1085.         SelectPackage ('pkgNetwork',SP_ALL);
  1086.     }
  1087.     bInstall = TRUE;
  1088. }
  1089. if PRESSED (BUTTON2)
  1090. {
  1091.     ClearPackage ('pkgDraw'    ,SP_ALL);
  1092.     ClearPackage ('pkgLibrary' ,SP_ALL);
  1093.     ClearPackage ('pkgClipCat' ,SP_ALL);
  1094.     ClearPackage ('pkgTutorial',SP_ALL);
  1095.     if EQUALS (SCRIPT.bNetwork,TRUE)
  1096.     {
  1097.         ClearPackage ('pkgNetwork',SP_ALL);
  1098.     }
  1099. }
  1100. if PRESSED (BUTTON3)
  1101. {
  1102.     bCancel = TRUE;
  1103. }
  1104.  
  1105. ##############################################################################
  1106.  
  1107. [OutlineFonts] ()
  1108. SetIcon (FontIcon,1,1,"fonts");
  1109. PressButton (BUTTON1);
  1110. if EQUALS (bReview,FALSE)
  1111. {
  1112.     SetHelp ("Click CONTINUE to choose fonts.");
  1113.     SetExtHelp ("");
  1114.     SetButtons ("&Continue","&Skip","Cancel",BUTTON1,BUTTON3);
  1115.     TextDialog (
  1116.       "Draw for OS/2 provides outline fonts from Bitstream and URW. Also
  1117.       " provided are 32 Type1 fonts.\n\n
  1118.       "Because each font you install occupies disk space, you may want
  1119.       " to install only the fonts you plan to use.\n");
  1120. }
  1121. if PRESSED (BUTTON1)
  1122. {
  1123.     if STRCMP (pathDraw,'')
  1124.     {
  1125.         PathCat (pathDraw,pathOS2,"DRAW");
  1126.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  1127.         SetExtHelp (
  1128.             "You can choose where you want to install the Draw for OS/2
  1129.             " files. It's as easy as accepting the drive and directory
  1130.             " in the text box or typing new information.\n\n
  1131.             "To select a drive and directory:\n
  1132.             "- Type a new drive and directory in the text box, then
  1133.             " click Ok.\n
  1134.             "\tOR\n
  1135.             "- Click Ok to accept the path listed in the text box.\n\n
  1136.             "Note: The space available on each drive is located to the
  1137.             " right of the drive letter in the list box.");
  1138.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1139.         GetPath (pathDraw,"Enter the path to Draw for OS/2.
  1140.             "Where is Draw for OS/2? The location of Draw for OS/2 is
  1141.             " required to install fonts.");
  1142.         if NOT PRESSED (BUTTON1)
  1143.         {
  1144.             pathDraw = '';
  1145.         }
  1146.     }
  1147. }
  1148. if PRESSED (BUTTON1)
  1149. {
  1150.     if STRCMP (pathLibrary,'')
  1151.     {
  1152.         PathUp  (szTemp,pathDraw);
  1153.         PathCat (pathLibrary,szTemp,"MGXLIBS");
  1154.         SetHelp ("Click OK to accept library path.");
  1155.         SetExtHelp (
  1156.             "To conserve space on your hard disk, Micrografx shares
  1157.             " files among its applications. These files, called
  1158.             " libraries, include fonts, translators, and other files.\n\n
  1159.             "To select a drive and directory:\n
  1160.             "- Type a new drive and directory in the text box and
  1161.             " click Ok.\n
  1162.             "\tOR\n
  1163.             "- Click Ok to accept the path listed in the text box.\n\n
  1164.             "Note: The space available on each drive is located to the
  1165.             " right of the drive letter in the list box.");
  1166.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1167.         GetPath (pathLibrary,"Enter the path to use for Micrografx libraries.
  1168.             "Where do you want to put Micrografx libraries? The directory you
  1169.             " specify will contain libraries when the installation process is
  1170.             " complete.  The directory must be specified in the LIBPATH statement
  1171.             " in your CONFIG.SYS file.");
  1172.         if NOT PRESSED (BUTTON1)
  1173.         {
  1174.             pathLibrary = '';
  1175.         }
  1176.     }
  1177. }
  1178. if PRESSED (BUTTON1)
  1179. {
  1180.     PathCat (pathMGXFonts,pathLibrary,'MGXFONTS');
  1181.     PathCat (pathBITFonts,pathLibrary,'BITFONTS');
  1182.     PathCat (pathSPDFonts,pathLibrary,'SPDFONTS');
  1183.     PathCat (pathURWFonts,pathLibrary,'URWFONTS');
  1184.     if EQUALS (SCRIPT.bNetwork,TRUE)
  1185.     {
  1186.         PathCat (pathSystem,pathLibrary,"SYSTEM");
  1187.     }
  1188.     SetHelp ("Click ACCEPT to install the selected fonts.");
  1189.     SetExtHelp (
  1190.         "You can choose as many fonts as you want.\n\n
  1191.         "To select fonts:\n
  1192.         "1. Click a font to select it or click All to 
  1193.         " select all Bitstream, URW, and Type1 fonts.\n
  1194.         "2. Click Accept when you are ready to proceed.\n\n
  1195.         "Note: Information shown at the bottom of the list box
  1196.         " changes to show the disk space required for all files
  1197.         " that will be installed.");
  1198.     SetButtons ("&Accept","&Skip","Cancel",BUTTON1,BUTTON3);
  1199.     SelectPackage ('pkgFonts',SP_MENU,
  1200.         "Select the fonts you want to install."
  1201.         "%c: %lu Kb required, %lu Kb remaining",pathMGXFonts,BUTTON1);
  1202.     if PRESSED (BUTTON1)
  1203.     {
  1204.         bFonts   = TRUE;
  1205.         bInstall = TRUE;
  1206.     }
  1207. }
  1208. if PRESSED (BUTTON3)
  1209. {
  1210.     bCancel = TRUE;
  1211. }
  1212.  
  1213. ##############################################################################
  1214.  
  1215.  
  1216. [Translators] ()
  1217. SetIcon (TranslatorIcon,1,1,"translators");
  1218. PressButton (BUTTON1);
  1219. if EQUALS (bReview,FALSE)
  1220. {
  1221.     SetHelp ("Click CONTINUE to choose translators.");
  1222.     SetExtHelp ("");
  1223.     SetButtons ("&Continue","&Skip","Cancel",BUTTON1,BUTTON3);
  1224.     TextDialog (
  1225.         "Translators are special programs that let you import and export
  1226.         " files in many different formats, such as CGM, GEM, and WPG.\n\n
  1227.         "Because each translator you install occupies disk space, you may
  1228.         " want to install only the translators you plan to use.\n");
  1229. }
  1230. if PRESSED (BUTTON1)
  1231. {
  1232.     if STRCMP (pathDraw,'')
  1233.     {
  1234.         PathCat (pathDraw,pathOS2,"DRAW");
  1235.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  1236.         SetExtHelp (
  1237.             "You can choose where you want to install the Draw for OS/2
  1238.             " files. It's as easy as accepting the drive and directory
  1239.             " in the text box or typing new information.\n\n
  1240.             "To select a drive and directory:\n
  1241.             "- Type a new drive and directory in the text box, then
  1242.             " click Ok.\n
  1243.             "\tOR\n
  1244.             "- Click Ok to accept the path listed in the text box.\n\n
  1245.             "Note: The space available on each drive is located to the
  1246.             " right of the drive letter in the list box.");
  1247.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1248.         GetPath (pathDraw,"Enter the path to Draw for OS/2.
  1249.             "Where is Draw for OS/2? The location of Draw for OS/2 is
  1250.             " required to install translators.");
  1251.         if NOT PRESSED (BUTTON1)
  1252.         {
  1253.             pathDraw = '';
  1254.         }
  1255.     }
  1256. }
  1257. if PRESSED (BUTTON1)
  1258. {
  1259.     if STRCMP (pathLibrary,'')
  1260.     {
  1261.         PathUp  (szTemp,pathDraw);
  1262.         PathCat (pathLibrary,szTemp,"MGXLIBS");
  1263.         SetHelp ("Click OK to accept library path.");
  1264.         SetExtHelp (
  1265.             "To conserve space on your hard disk, Micrografx shares
  1266.             " files among its applications. These files, called
  1267.             " libraries, include fonts, translators, and other files.\n\n
  1268.             "To select a drive and directory:\n
  1269.             "- Type a new drive and directory in the text box and
  1270.             " click Ok.\n
  1271.             "\tOR\n
  1272.             "- Click Ok to accept the path listed in the text box.\n\n
  1273.             "Note: The space available on each drive is located to the
  1274.             " right of the drive letter in the list box.");
  1275.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1276.         GetPath (pathLibrary,"Enter the path to use for Micrografx libraries.
  1277.             "Where do you want to put Micrografx libraries? The directory you
  1278.             " specify will contain libraries when the installation process is
  1279.             " complete.  The directory must be specified in the LIBPATH statement
  1280.             " in your CONFIG.SYS file.");
  1281.         if NOT PRESSED (BUTTON1)
  1282.         {
  1283.             pathLibrary = '';
  1284.         }
  1285.     }
  1286. }
  1287. if PRESSED (BUTTON1)
  1288. {
  1289.     SetHelp ("Click ACCEPT to install the selected translators.");
  1290.     SetExtHelp (
  1291.         "Translators let you import and export files with different
  1292.         " formats. You can choose as many translators as you want.\n\n
  1293.         "To select translators:\n
  1294.         "1. Click a translator to select it or click All to select all
  1295.         " translators.\n
  1296.         "2. Click Accept when you are ready to proceed.\n\n
  1297.         "Note: Information shown at the bottom of the list box changes
  1298.         " to show the disk space required for all files that will be
  1299.         " installed.");
  1300.     SetButtons ("&Accept","&Skip","Cancel",BUTTON1,BUTTON3);
  1301.     SelectPackage ('pkgTranslators',SP_MENU,
  1302.         "Select the translators you want to install."
  1303.         "%c: %lu Kb required, %lu Kb remaining",pathLibrary,BUTTON1);
  1304.     if PRESSED (BUTTON1)
  1305.     {
  1306.         bInstall = TRUE;
  1307.     }
  1308. }
  1309. if PRESSED (BUTTON3)
  1310. {
  1311.     bCancel = TRUE;
  1312. }
  1313.  
  1314. ##############################################################################
  1315.  
  1316. [Samples] ()
  1317. SetIcon (SampleIcon,1,1,"samples");
  1318. PressButton (BUTTON1);
  1319. if EQUALS (bReview,FALSE)
  1320. {
  1321.     SetHelp ("Click CONTINUE to choose sample artwork.");
  1322.     SetExtHelp ("");
  1323.     SetButtons ("&Continue","&Skip","Cancel",BUTTON1,BUTTON3);
  1324.     TextDialog (
  1325.         "Micrografx artists have prepared sample artwork to show
  1326.         " you the capabilities of Draw for OS/2.");
  1327. }
  1328. if PRESSED (BUTTON1)
  1329. {
  1330.     if STRCMP (pathDraw,'')
  1331.     {
  1332.         PathCat (pathDraw,pathOS2,"DRAW");
  1333.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  1334.         SetExtHelp (
  1335.             "You can choose where you want to install the Draw for OS/2
  1336.             " files. It's as easy as accepting the drive and directory
  1337.             " in the text box or typing new information.\n\n
  1338.             "To select a drive and directory:\n
  1339.             "- Type a new drive and directory in the text box, then
  1340.             " click Ok.\n
  1341.             "\tOR\n
  1342.             "- Click Ok to accept the path listed in the text box.\n\n
  1343.             "Note: The space available on each drive is located to the
  1344.             " right of the drive letter in the list box.");
  1345.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1346.         GetPath (pathDraw,"Enter the path to Draw for OS/2.
  1347.             "Where is Draw for OS/2? The location of Draw for OS/2 is
  1348.             " required to install samples.");
  1349.         if NOT PRESSED (BUTTON1)
  1350.         {
  1351.             pathDraw = '';
  1352.         }
  1353.     }
  1354. }
  1355. if PRESSED (BUTTON1)
  1356. {
  1357.     PathCat (pathSamples,pathDraw,"SAMPLES");
  1358.     SetHelp ("Click ACCEPT to install the selected samples.");
  1359.     SetExtHelp (
  1360.         "Select the sample artwork you want to install.\n\n
  1361.         "To select sample artwork:\n
  1362.         "1. Click a sample to select it or click All to select all
  1363.         " samples.\n
  1364.         "2. Click Accept when you are ready to proceed.\n\n
  1365.         "Note: Information shown at the bottom of the list box changes
  1366.         " to show the disk space required for all files that will be
  1367.         " installed.");
  1368.     SetButtons ("&Accept","&Skip","Cancel",BUTTON1,BUTTON3);
  1369.     SelectPackage ('pkgSamples',SP_MENU,
  1370.         "Select the samples you want to install."
  1371.         "%c: %lu Kb required, %lu Kb remaining",pathSamples,BUTTON1);
  1372.     if PRESSED (BUTTON1)
  1373.     {
  1374.         bInstall = TRUE;
  1375.     }
  1376. }
  1377. if PRESSED (BUTTON3)
  1378. {
  1379.     bCancel = TRUE;
  1380. }
  1381.  
  1382. ##############################################################################
  1383.  
  1384. [ClipArtLoop] ()
  1385. bReview = FALSE;
  1386. bStop   = FALSE;
  1387. while EQUALS (bStop,FALSE)
  1388. {
  1389.     bInstall = FALSE;
  1390.     call ClipArt;
  1391.     if EQUALS (bInstall,TRUE)
  1392.     {
  1393.         SetHelp ("");
  1394.         SetExtHelp ("");
  1395.         SetButtons ("","","",BUTTON1,BUTTON1);
  1396.         Fit (bFit);
  1397.         if EQUALS (bFit,TRUE)
  1398.         {
  1399.             bStop = TRUE;
  1400.         }
  1401.         else
  1402.         {
  1403.             SetHelp ("Click REVIEW to change your selections.");
  1404.             SetButtons ("&Review","Cancel","",BUTTON1,BUTTON2);
  1405.             TextDialog (
  1406.                 "The selections you made will not fit. If you want to
  1407.                 " change your selections, click REVIEW now.");
  1408.             if PRESSED (BUTTON1)
  1409.             {
  1410.                 bReview = TRUE;
  1411.             }
  1412.             else
  1413.             {
  1414.                 bInstall = FALSE;
  1415.                 bStop    = TRUE;
  1416.             }
  1417.         }
  1418.     }
  1419.     else
  1420.     {
  1421.         bStop = TRUE;
  1422.     }
  1423. }
  1424.  
  1425. ##############################################################################
  1426.  
  1427. [ClipArt] ()
  1428. SetIcon (ClipArtIcon,1,1,"ClipArt");
  1429. PressButton (BUTTON1);
  1430. if EQUALS (bReview,FALSE)
  1431. {
  1432.     SetHelp ("Click CONTINUE to choose ClipArt.");
  1433.     SetExtHelp ("");
  1434.     SetButtons ("&Continue","&Skip","Cancel",BUTTON1,BUTTON3);
  1435.     TextDialog (
  1436.         "Draw for OS/2 includes 2600 ClipArt images created by
  1437.         " our award-winning artists using Micrografx Designer.\n\n
  1438.         "You can install ClipArt subjects for easy reference.
  1439.         " Each subject includes several files containing
  1440.         " ClipArt images.\n\n
  1441.         "Or, you can install ClipArt files to conserve disk space.
  1442.         " See the chapter \"Using ClipArt\" in the user's guide to
  1443.         " determine which files you want to install.\n\n");
  1444. }
  1445. if PRESSED (BUTTON1)
  1446. {
  1447.     if STRCMP (pathDraw,'')
  1448.     {
  1449.         PathCat (pathDraw,pathOS2,"DRAW");
  1450.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  1451.         SetExtHelp (
  1452.             "You can choose where you want to install the Draw for OS/2
  1453.             " files. It's as easy as accepting the drive and directory
  1454.             " in the text box or typing new information.\n\n
  1455.             "To select a drive and directory:\n
  1456.             "- Type a new drive and directory in the text box, then
  1457.             " click Ok.\n
  1458.             "\tOR\n
  1459.             "- Click Ok to accept the path listed in the text box.\n\n
  1460.             "Note: The space available on each drive is located to the
  1461.             " right of the drive letter in the list box.");
  1462.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1463.         GetPath (pathDraw,"Enter the path to Draw for OS/2.
  1464.             "Where is Draw for OS/2? The location of Draw for OS/2 is
  1465.             " required to install ClipArt.");
  1466.         if NOT PRESSED (BUTTON1)
  1467.         {
  1468.             pathDraw = '';
  1469.         }
  1470.     }
  1471. }
  1472. if PRESSED (BUTTON1)
  1473. {
  1474.     if STRCMP (pathLibrary,'')
  1475.     {
  1476.         PathUp  (szTemp,pathDraw);
  1477.         PathCat (pathLibrary,szTemp,"MGXLIBS");
  1478.         SetHelp ("Click OK to accept library path.");
  1479.         SetExtHelp (
  1480.             "To conserve space on your hard disk, Micrografx shares
  1481.             " files among its applications. These files, called
  1482.             " libraries, include fonts, translators, and other files.\n\n
  1483.             "To select a drive and directory:\n
  1484.             "- Type a new drive and directory in the text box and
  1485.             " click Ok.\n
  1486.             "\tOR\n
  1487.             "- Click Ok to accept the path listed in the text box.\n\n
  1488.             "Note: The space available on each drive is located to the
  1489.             " right of the drive letter in the list box.");
  1490.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1491.         GetPath (pathLibrary,"Enter the path to use for Micrografx libraries.
  1492.             "Where do you want to put Micrografx libraries? The directory you
  1493.             " specify will contain libraries when the installation process is
  1494.             " complete.  The directory must be specified in the LIBPATH statement
  1495.             " in your CONFIG.SYS file.");
  1496.         if NOT PRESSED (BUTTON1)
  1497.         {
  1498.             pathLibrary = '';
  1499.         }
  1500.     }
  1501. }
  1502. if PRESSED (BUTTON1)
  1503. {
  1504.     if STRCMP (pathClipArt,'')
  1505.     {
  1506.         PathCat (pathClipArt,pathLibrary,"CLIPART");
  1507.     }
  1508.     if EQUALS (bSkipClipPath,FALSE)
  1509.     {
  1510.         SetHelp ("Click OK to accept ClipArt path.");
  1511.         SetExtHelp (
  1512.             "You can choose where to install the ClipArt that you want
  1513.             " to use in Draw for OS/2.\n\n
  1514.             "To choose a drive and directory:\n
  1515.             "- Type a new drive and directory in the text box, then
  1516.             " click Ok.\n
  1517.             "\tOR\n
  1518.             "- Accept the path in the text box by clicking Ok.\n\n
  1519.             "Note: The space available on each drive is located to the
  1520.             " right of the drive letter in the list box.");
  1521.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1522.         GetPath (pathClipArt,"Enter the path to use for ClipArt.
  1523.             "Where do you want to put ClipArt? The directory you
  1524.             " specify will contain ClipArt when the installation
  1525.             " process is complete.");
  1526.     }
  1527.     bSkipClipPath = FALSE;
  1528. }
  1529. if PRESSED (BUTTON1)
  1530. {
  1531.     SetHelp ("Choose an option, click CONTINUE to proceed.");
  1532.     SetExtHelp (
  1533.         "Micrografx ClipArt(tm) is divided into different subjects,
  1534.         " so you can easily find what you want. Subjects range from
  1535.         " Animals to People, Maps to Transportation, and Borders to
  1536.         " Business Forms. Each subject contains files, and each file
  1537.         " contains images.\n\n
  1538.         "You can choose the subjects or files that you want to use
  1539.         " in Draw for OS/2. You must have approximately 12 MB of space
  1540.         " available on your hard disk to install all ClipArt files.
  1541.         " You can view the files or subjects using the ClipArt command
  1542.         " in Draw for OS/2. See the chapter \"Using ClipArt\" in the
  1543.         " user's guide for more information.\n\n
  1544.         "If you know the specific files that you want to install,
  1545.         " choose the Select ClipArt files option. Otherwise, choose
  1546.         " the Select ClipArt subjects option.");
  1547.     SetButtons ("&Continue","&Skip","Cancel",BUTTON1,BUTTON3);
  1548.     RadioMenu (szSelection,"ClipArt Menu"
  1549.         TRUE    "Select ClipArt subjects"   Subjects
  1550.         FALSE   "Select ClipArt files"      Files);
  1551. }
  1552. if PRESSED (BUTTON1)
  1553. {
  1554.     SetButtons ("&Accept","&Skip","Cancel",BUTTON1,BUTTON3);
  1555.     if STRCMP (szSelection,'Subjects')
  1556.     {
  1557.         SetHelp ("Click ACCEPT to install the selected ClipArt subjects.");
  1558.         SetExtHelp (
  1559.             "When you install subjects, you automatically install all
  1560.             " files for each subject. You can view subjects using the
  1561.             " ClipArt command in Draw for OS/2. See the chapter \"Using
  1562.             " ClipArt\" in the user's guide for more information.\n\n
  1563.             "To select ClipArt subjects:\n
  1564.             "1. Click a ClipArt subject to select it or click All to select
  1565.             " all ClipArt subjects.\n
  1566.             "2. Click Accept when you are ready to proceed.\n\n
  1567.             "Note: Information shown at the bottom of the list box changes
  1568.             " to show the disk space required for all files that will be
  1569.             " installed.");
  1570.         SelectPackage ('pkgClipArt',SP_MENU,
  1571.             "Select the ClipArt subjects you want to install."
  1572.             "%c: %lu Kb required, %lu Kb remaining",pathClipArt,BUTTON1);
  1573.     }
  1574.     else
  1575.     {
  1576.         SetHelp ("Click ACCEPT to install the selected ClipArt files.");
  1577.         SetExtHelp (
  1578.             "You can view images using the ClipArt command in Draw for
  1579.             " OS/2. See the chapter \"Using ClipArt\" in the user's
  1580.             " guide for more information.\n\n
  1581.             "To select ClipArt files:\n
  1582.             "1. Click a ClipArt file to select it or click All to select
  1583.             " all ClipArt files.\n
  1584.             "2. Click Accept when you are ready to proceed.\n\n
  1585.             "Note: Information shown at the bottom of the list box changes
  1586.             " to show the disk space required for all files that will be
  1587.             " installed.");
  1588.         SelectPackage ('pkgClipArtFiles',SP_MENU,
  1589.             "Select the ClipArt files you want to install."
  1590.             "%c: %lu Kb required, %lu Kb remaining",pathClipArt,BUTTON1);
  1591.     }
  1592.     if PRESSED (BUTTON1)
  1593.     {
  1594.         SelectPackage ('pkgClipCat',SP_ALL);
  1595.         bInstall = TRUE;
  1596.     }
  1597. }
  1598. if PRESSED (BUTTON3)
  1599. {
  1600.     bCancel = TRUE;
  1601. }
  1602.  
  1603. ##############################################################################
  1604.  
  1605. [RetailFonts] ()
  1606. SetIcon (FontIcon,1,1,"retail fonts");
  1607. PressButton (BUTTON1);
  1608. if EQUALS (bReview,FALSE)
  1609. {
  1610.     SetHelp ("Click CONTINUE to proceed.");
  1611.     SetExtHelp ("");
  1612.     SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  1613.     TextDialog (
  1614.         "You can increase the selection of fonts available to Draw for OS/2
  1615.         " by purchasing and installing retail outline fonts.\n\n
  1616.         "For additional Bitstream fonts, call:\n
  1617.         "  1-800-522-FONT\n
  1618.         "  1-617-497-6222 (outside the U.S.)\n\n");
  1619.         #"For additional URW fonts, call:\n
  1620.         #"  1-800-442-FONT\n
  1621.         #"  1-602-996-6606 (in Arizona or outside the U.S.)");
  1622. }
  1623. if PRESSED (BUTTON1)
  1624. {
  1625.     if STRCMP (pathDraw,'')
  1626.     {
  1627.         PathCat (pathDraw,pathOS2,"DRAW");
  1628.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  1629.         SetExtHelp (
  1630.             "You can choose where you want to install the Draw for OS/2
  1631.             " files. It's as easy as accepting the drive and directory
  1632.             " in the text box or typing new information.\n\n
  1633.             "To select a drive and directory:\n
  1634.             "- Type a new drive and directory in the text box, then
  1635.             " click Ok.\n
  1636.             "\tOR\n
  1637.             "- Click Ok to accept the path listed in the text box.\n\n
  1638.             "Note: The space available on each drive is located to the
  1639.             " right of the drive letter in the list box.");
  1640.         SetButtons ("Ok","Cancel","",BUTTON1,BUTTON2);
  1641.         GetPath (pathDraw,"Enter the path to Draw for OS/2.
  1642.             "Where is Draw for OS/2? The location of Draw for OS/2 is
  1643.             " required to install retail fonts.");
  1644.         if NOT PRESSED (BUTTON1)
  1645.         {
  1646.             pathDraw = '';
  1647.         }
  1648.     }
  1649. }
  1650. if PRESSED (BUTTON1)
  1651. {
  1652.     if STRCMP (pathLibrary,'')
  1653.     {
  1654.         PathUp  (szTemp,pathDraw);
  1655.         PathCat (pathLibrary,szTemp,"MGXLIBS");
  1656.         SetHelp ("Click OK to accept library path.");
  1657.         SetExtHelp (
  1658.             "To conserve space on your hard disk, Micrografx shares
  1659.             " files among its applications. These files, called
  1660.             " libraries, include fonts, translators, and other files.\n\n
  1661.             "To select a drive and directory:\n
  1662.             "- Type a new drive and directory in the text box and
  1663.             " click Ok.\n
  1664.             "\tOR\n
  1665.             "- Click Ok to accept the path listed in the text box.\n\n
  1666.             "Note: The space available on each drive is located to the
  1667.             " right of the drive letter in the list box.");
  1668.         SetButtons ("Ok","Cancel","",BUTTON1,BUTTON2);
  1669.         GetPath (pathLibrary,"Enter the path to use for Micrografx libraries.
  1670.             "Where do you want to put Micrografx libraries? The directory you
  1671.             " specify will contain libraries when the installation process is
  1672.             " complete.  The directory must be specified in the LIBPATH statement
  1673.             " in your CONFIG.SYS file.");
  1674.         if NOT PRESSED (BUTTON1)
  1675.         {
  1676.             pathLibrary = '';
  1677.         }
  1678.     }
  1679. }
  1680. if PRESSED (BUTTON1)
  1681. {
  1682.     PathCat (pathMGXFonts,pathLibrary,'MGXFONTS');
  1683.     PathCat (pathBITFonts,pathLibrary,'BITFONTS');
  1684.     PathCat (pathSPDFonts,pathLibrary,'SPDFONTS');
  1685.     PathCat (pathURWFonts,pathLibrary,'URWFONTS');
  1686. }
  1687. else
  1688. {
  1689.     bCancel = TRUE;
  1690. }
  1691. while EQUALS (bCancel,FALSE)
  1692. {
  1693.     SetHelp ("Choose a font type, click CONTINUE to proceed.");
  1694.     SetExtHelp (
  1695.         "Draw for OS/2 supports third-party outline font formats,
  1696.         " including Bitstream Fontware and URW Nimbus Q.\n\n
  1697.         "To select a font format:\n
  1698.         "- Click a font format, then click Continue.");
  1699.     SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  1700.     RadioMenu (szSelection,"Typeface Menu"
  1701.         TRUE    "Bitstream Fontware"    Bitstream
  1702.         FALSE   "URW Nimbus Q"          URW);
  1703.     if PRESSED (BUTTON1)
  1704.     {
  1705.         if STRCMP (szSelection,'Bitstream')
  1706.         {
  1707.             SetHelp ("Click CONTINUE to proceed.");
  1708.             SetExtHelp ("");
  1709.             SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  1710.             TextDialog (
  1711.                 "Draw for OS/2 can use scalable outline typefaces from
  1712.                 " any Bitstream Fontware typeface package. Use the
  1713.                 " typeface disk with the silver label if it is
  1714.                 " available.\n\n
  1715.                 "Bitstream improves the quality of typefaces as
  1716.                 " technology advances. To find out if an improved
  1717.                 " version of your typeface is available, call
  1718.                 " Bitstream at:\n\n
  1719.                 "  1-800-522-FONT\n
  1720.                 "  1-617-497-6222 (outside the U.S.)");
  1721.         }
  1722.         if PRESSED (BUTTON1)
  1723.         {
  1724.             SetHelp ("Click OK to accept retail font path.");
  1725.             SetExtHelp (
  1726.                 "It's easy to install retail fonts. Just enter the
  1727.                 " drive and directory where the retail fonts are located.
  1728.                 " The Micrografx Installer will prompt you to insert a
  1729.                 " diskette if necessary.\n\n
  1730.                 "To select a drive and directory:\n
  1731.                 "- Type the new drive and directory where the retail
  1732.                 " fonts are located, then click Ok.\n
  1733.                 "\tOR\n
  1734.                 "- Click Ok to accept the path listed in the text box.");
  1735.             SetButtons ("Ok","Cancel","",BUTTON1,BUTTON2);
  1736.             GetPath (pathRetail,"Enter the path to retail fonts.
  1737.                 "Where are your retail fonts? The Micrografx Installer will
  1738.                 " install retail fonts from the directory you specify.");
  1739.             if PRESSED (BUTTON1)
  1740.             {
  1741.                 SetIcon (FontIcon,1,1);
  1742.                 SetHelp ("");
  1743.                 SetExtHelp ("");
  1744.                 SetButtons ("","","",BUTTON1,BUTTON1);
  1745.                 SetText ("\n\n\n\n\n\n~Looking for retail fonts...");
  1746.                 GetFontList (GFL_RTL,pathRetail,szSelection,nFontType,nCount);
  1747.                 SetText ("\n\n\n\n\n\n~One moment, please...");
  1748.                 SetIcon (FontIcon,1,1,"retail fonts");
  1749.                 if EQUALS (nCount,0)
  1750.                 {
  1751.                     SetHelp ("Click CONTINUE to return to the Typeface Menu.");
  1752.                     SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  1753.                     TextDialog (
  1754.                         "No outline fonts found in the specified directory.");
  1755.                 }
  1756.                 else
  1757.                 {
  1758.                     SetHelp ("Click ACCEPT to install the selected retail fonts.");
  1759.                     SetExtHelp (
  1760.                         "You can choose as many retail fonts as you want.\n\n
  1761.                         "To select retail fonts:\n
  1762.                         "1. Click a retail font to select it or click
  1763.                         " All to select all retail fonts.\n
  1764.                         "2. Click Accept when you are ready to proceed.");
  1765.                     SetButtons ("&Accept","Cancel","",BUTTON1,BUTTON2);
  1766.                     SelectFonts ('',SP_MENU,
  1767.                         "Select the retail fonts you want to install."
  1768.                         "",pathMGXFonts,BUTTON1);
  1769.                         #"%c: %lu Kb required, %lu Kb remaining",pathMGXFonts,BUTTON1);
  1770.                     if PRESSED (BUTTON1)
  1771.                     {
  1772.                         SetExtHelp ("");
  1773.                         if EQUALS (nFontType,BIT)
  1774.                         {
  1775.                             SetIcon (FloppyIcon,0,0,"retail fonts");
  1776.                             SetHelp ("Click CANCEL to stop installation.");
  1777.                             SetButtons ("Cancel","","",BUTTON1,BUTTON1);
  1778.                             InstallFonts (bSuccess,SM_SHOW,ES_SELECTED,EX_UPDATE,
  1779.                                 "Installing %s in\n    %s",BIT,pathBITFonts);
  1780.                             SetIcon (FontIcon,1,1);
  1781.                             SetHelp ("");
  1782.                             SetButtons ("","","",BUTTON1,BUTTON1);
  1783.                             if EQUALS (bSuccess,TRUE)
  1784.                             {
  1785.                                 SetText ("\n\n\n\n\n\n~Processing fonts...");
  1786.                                 UpdateFonts (pathBITFonts,BIT,'MGXBIT.FTM','BSBEZ.FTM');
  1787.                                 ProcessFonts (bSuccess,'MGXBIT.FTM',BIT,FALSE,pathBITFonts,TRUE);
  1788.                             }
  1789.                             if EQUALS (bSuccess,TRUE)
  1790.                             {
  1791.                                 PathCat (szTemp,pathLibrary,'BITFONTS,MGXFNT,MGXBIT.FTM,0,0');
  1792.                                 SetProfileString ('Micrografx Fonts 4.0 for OS/2','BSBEZIER',szTemp);
  1793.                             }
  1794.                         }
  1795.                         if EQUALS (nFontType,SPD)
  1796.                         {
  1797.                             SetIcon (FloppyIcon,0,0,"retail fonts");
  1798.                             SetHelp ("Click CANCEL to stop installation.");
  1799.                             SetButtons ("Cancel","","",BUTTON1,BUTTON1);
  1800.                             InstallFonts (bSuccess,SM_SHOW,ES_SELECTED,EX_UPDATE,
  1801.                                 "Installing %s in\n    %s",SPD,pathSPDFonts);
  1802.                             SetIcon (FontIcon,1,1);
  1803.                             SetHelp ("");
  1804.                             SetButtons ("","","",BUTTON1,BUTTON1);
  1805.                             if EQUALS (bSuccess,TRUE)
  1806.                             {
  1807.                                 SetText ("\n\n\n\n\n\n~Processing fonts...");
  1808.                                 UpdateFonts (pathSPDFonts,SPD,'MGXSPD.FTM','BSSPD.FTM');
  1809.                                 ProcessFonts (bSuccess,'MGXSPD.FTM',SPD,FALSE,pathSPDFonts,TRUE);
  1810.                             }
  1811.                             if EQUALS (bSuccess,TRUE)
  1812.                             {
  1813.                                 PathCat (szTemp,pathLibrary,'SPDFONTS,MGXFNT,MGXSPD.FTM,0,0');
  1814.                                 SetProfileString ('Micrografx Fonts 4.0 for OS/2','BSSPEEDO',szTemp);
  1815.                             }
  1816.                         }
  1817.                         if EQUALS (nFontType,URW)
  1818.                         {
  1819.                             SetIcon (FloppyIcon,0,0,"retail fonts");
  1820.                             SetHelp ("Click CANCEL to stop installation.");
  1821.                             SetButtons ("Cancel","","",BUTTON1,BUTTON1);
  1822.                             InstallFonts (bSuccess,SM_SHOW,ES_SELECTED,EX_UPDATE,
  1823.                                 "Installing %s in\n    %s",URW,pathURWFonts);
  1824.                             SetIcon (FontIcon,1,1);
  1825.                             SetHelp ("");
  1826.                             SetButtons ("","","",BUTTON1,BUTTON1);
  1827.                             if EQUALS (bSuccess,TRUE)
  1828.                             {
  1829.                                 SetText ("\n\n\n\n\n\n~Processing fonts...");
  1830.                                 UpdateFonts (pathURWFonts,URW,'MGXURW.FTM','URWBEZ.FTM');
  1831.                                 ProcessFonts (bSuccess,'MGXURW.FTM',URW,FALSE,pathURWFonts,TRUE);
  1832.                             }
  1833.                             if EQUALS (bSuccess,TRUE)
  1834.                             {
  1835.                                 PathCat (szTemp,pathLibrary,'URWFONTS,MGXFNT,MGXURW.FTM,0,0');
  1836.                                 SetProfileString ('Micrografx Fonts 4.0 for OS/2','URWBEZIER',szTemp);
  1837.                             }
  1838.                         }
  1839.                         SetText ("\n\n\n\n\n\n~One moment, please...");
  1840.                         ShowWindow;
  1841.                         call ResultDialog;
  1842.                         bCancel = TRUE;
  1843.                         bStop   = TRUE;
  1844.                     }
  1845.                 }
  1846.                 ClearFontList;
  1847.             }
  1848.         }
  1849.     }
  1850.     else
  1851.     {
  1852.         bCancel = TRUE;
  1853.     }
  1854. }
  1855. bCancel = TRUE;
  1856.  
  1857. ##############################################################################
  1858.  
  1859. [DeleteFonts] ()
  1860. SetIcon (FontIcon,1,1,"delete fonts");
  1861. PressButton (BUTTON1);
  1862. if EQUALS (bReview,FALSE)
  1863. {
  1864.     SetHelp ("Click CONTINUE to choose outline fonts.");
  1865.     SetExtHelp ("");
  1866.     SetButtons ("&Continue","Cancel","",BUTTON1,BUTTON2);
  1867.     TextDialog (
  1868.         "To increase the available disk space on your computer, you may
  1869.         " want to delete unused outline fonts. Deleted outline fonts can
  1870.         " be reinstalled at any time using the Micrografx Installer.");
  1871. }
  1872. if PRESSED (BUTTON1)
  1873. {
  1874.     if STRCMP (pathDraw,'')
  1875.     {
  1876.         PathCat (pathDraw,pathOS2,"DRAW");
  1877.         SetHelp ("Click OK to accept Draw for OS/2 path.");
  1878.         SetExtHelp (
  1879.             "You can choose where you want to install the Draw for OS/2
  1880.             " files. It's as easy as accepting the drive and directory
  1881.             " in the text box or typing new information.\n\n
  1882.             "To select a drive and directory:\n
  1883.             "- Type a new drive and directory in the text box, then
  1884.             " click Ok.\n
  1885.             "\tOR\n
  1886.             "- Click Ok to accept the path listed in the text box.\n\n
  1887.             "Note: The space available on each drive is located to the
  1888.             " right of the drive letter in the list box.");
  1889.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1890.         GetPath (pathDraw,"Enter the path to Draw for OS/2.
  1891.             "Where is Draw for OS/2? The location of Draw for OS/2 is
  1892.             " required to delete outline fonts.");
  1893.         if NOT PRESSED (BUTTON1)
  1894.         {
  1895.             pathDraw = '';
  1896.         }
  1897.     }
  1898. }
  1899. if PRESSED (BUTTON1)
  1900. {
  1901.     if STRCMP (pathLibrary,'')
  1902.     {
  1903.         PathUp  (szTemp,pathDraw);
  1904.         PathCat (pathLibrary,szTemp,"MGXLIBS");
  1905.         SetHelp ("Click OK to accept library path.");
  1906.         SetExtHelp (
  1907.             "To conserve space on your hard disk, Micrografx shares
  1908.             " files among its applications. These files, called
  1909.             " libraries, include fonts, translators, and other files.\n\n
  1910.             "To select a drive and directory:\n
  1911.             "- Type a new drive and directory in the text box and
  1912.             " click Ok.\n
  1913.             "\tOR\n
  1914.             "- Click Ok to accept the path listed in the text box.\n\n
  1915.             "Note: The space available on each drive is located to the
  1916.             " right of the drive letter in the list box.");
  1917.         SetButtons ("Ok","&Skip","Cancel",BUTTON1,BUTTON3);
  1918.         GetPath (pathLibrary,"Enter the path to use for Micrografx libraries.
  1919.             "Where do you want to put Micrografx libraries? The directory you
  1920.             " specify will contain libraries when the installation process is
  1921.             " complete.  The directory must be specified in the LIBPATH statement
  1922.             " in your CONFIG.SYS file.");
  1923.         if NOT PRESSED (BUTTON1)
  1924.         {
  1925.             pathLibrary = '';
  1926.         }
  1927.     }
  1928. }
  1929. if PRESSED (BUTTON1)
  1930. {
  1931.     PathCat (pathBITFonts,pathLibrary,'BITFONTS');
  1932.     PathCat (pathMGXFonts,pathLibrary,'MGXFONTS');
  1933.     PathCat (pathSPDFonts,pathLibrary,'SPDFONTS');
  1934.     PathCat (pathURWFonts,pathLibrary,'URWFONTS');
  1935.     SetIcon (FontIcon,1,1);
  1936.     SetHelp ("");
  1937.     SetExtHelp ("");
  1938.     SetButtons ("","","",BUTTON1,BUTTON1);
  1939.     SetText ("\n\n\n\n\n\n~Looking for outline fonts...");
  1940.     GetProfileString ('Micrografx Fonts 4.0 for OS/2','MGXFNT',szTemp);
  1941.     if NOT STRCMP (szTemp,'')
  1942.     {
  1943.         PathCat (szTemp,pathMGXFonts,'MGXFNT.FTM');
  1944.         GetFontList (GFL_FTM,szTemp,'',MGX,nCount);
  1945.         if NOT EQUALS (nCount,0)
  1946.         {
  1947.             bFonts = TRUE;
  1948.         }
  1949.     }
  1950.     GetProfileString ('Micrografx Fonts 4.0 for OS/2','BSBEZIER',szTemp);
  1951.     if NOT STRCMP (szTemp,'')
  1952.     {
  1953.         UpdateFonts (pathBITFonts,BIT,'MGXBIT.FTM','BSBEZ.FTM');
  1954.         PathCat (szTemp,pathBITFonts,'MGXBIT.FTM');
  1955.         GetFontList (GFL_FTM,szTemp,'',BIT,nCount);
  1956.         if NOT EQUALS (nCount,0)
  1957.         {
  1958.             bFonts = TRUE;
  1959.         }
  1960.     }
  1961.     GetProfileString ('Micrografx Fonts 4.0 for OS/2','BSSPEEDO',szTemp);
  1962.     if NOT STRCMP (szTemp,'')
  1963.     {
  1964.         UpdateFonts (pathSPDFonts,SPD,'MGXSPD.FTM','BSSPD.FTM');
  1965.         PathCat (szTemp,pathSPDFonts,'MGXSPD.FTM');
  1966.         GetFontList (GFL_FTM,szTemp,'',SPD,nCount);
  1967.         if NOT EQUALS (nCount,0)
  1968.         {
  1969.             bFonts = TRUE;
  1970.         }
  1971.     }
  1972.     GetProfileString ('Micrografx Fonts 4.0 for OS/2','URWBEZIER',szTemp);
  1973.     if NOT STRCMP (szTemp,'')
  1974.     {
  1975.         UpdateFonts (pathURWFonts,URW,'MGXURW.FTM','URWBEZ.FTM');
  1976.         PathCat (szTemp,pathURWFonts,'MGXURW.FTM');
  1977.         GetFontList (GFL_FTM,szTemp,'',URW,nCount);
  1978.         if NOT EQUALS (nCount,0)
  1979.         {
  1980.             bFonts = TRUE;
  1981.         }
  1982.     }
  1983.     SetText ("\n\n\n\n\n\n~One moment, please...");
  1984.     SetIcon (FontIcon,1,1,"delete fonts");
  1985.     if EQUALS (bFonts,TRUE)
  1986.     {
  1987.         SetHelp ("Click ACCEPT to delete the selected outline fonts.");
  1988.         SetExtHelp (
  1989.             "You can choose as many outline fonts as you want.\n\n
  1990.             "Only Micrografx outline fonts will appear in this list.
  1991.             " Use the ATM Control Panel to delete Adobe Type 1 fonts.
  1992.             " See your Adobe Type Manager user's guide for more
  1993.             " information.\n\n
  1994.             "To select outline fonts:\n
  1995.             "1. Click an outline font to select it or click All to
  1996.             " select all outline fonts.\n
  1997.             "2. Click Accept when you are ready to proceed.");
  1998.         SetButtons ("&Accept","Cancel","",BUTTON1,BUTTON2);
  1999.         SelectFonts ('',SP_MENU,
  2000.             "Select the outline fonts you want to delete."
  2001.             "",pathMGXFonts,BUTTON1);
  2002.             #"%c: %lu Kb required, %lu Kb remaining",pathMGXFonts,BUTTON1);
  2003.         if PRESSED (BUTTON1)
  2004.         {
  2005.             SetIcon (FontIcon,1,1);
  2006.             SetHelp ("");
  2007.             SetExtHelp ("");
  2008.             SetButtons ("","","",BUTTON1,BUTTON1);
  2009.             SetText ("\n\n\n\n\n\n~Deleting fonts...");
  2010.             ProcessFonts (bDeleted,'MGXFNT.FTM',MGX,FALSE,pathMGXFonts,FALSE);
  2011.             ProcessFonts (bDeleted,'MGXBIT.FTM',BIT,FALSE,pathBITFonts,FALSE);
  2012.             ProcessFonts (bDeleted,'MGXSPD.FTM',SPD,FALSE,pathSPDFonts,FALSE);
  2013.             ProcessFonts (bDeleted,'MGXURW.FTM',URW,FALSE,pathURWFonts,FALSE);
  2014.             SetText ("\n\n\n\n\n\n~One moment, please...");
  2015.             ShowWindow;
  2016.             #call ResultDialog;
  2017.         }
  2018.     }
  2019.     else
  2020.     {
  2021.         SetHelp ("Click CONTINUE to return to the Main Menu.");
  2022.         SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  2023.         TextDialog ("No outline fonts found to delete.");
  2024.     }
  2025.     ClearFontList;
  2026. }
  2027. bCancel = TRUE;
  2028. bFonts  = FALSE;
  2029.  
  2030. ##############################################################################
  2031.  
  2032. [AddIcons] ()
  2033. InitProgMan (bResult);
  2034. if EQUALS (bResult,TRUE)
  2035. {
  2036.     GetSelectCount (nCount,'pkgDraw','','');
  2037.     if GT (nCount,0)
  2038.     {
  2039.         PathCat (szTemp,pathDraw,"DRAW.EXE");
  2040.         AddIcon ("Micrografx","Draw 3.0 for OS/2",szTemp,szTemp2,0);
  2041.     }
  2042.     TermProgMan;
  2043. }
  2044.  
  2045. ##############################################################################
  2046.  
  2047. [AddOs2Ini] ()
  2048. GetSelectCount (nCount,'pkgDraw','','');
  2049. if GT (nCount,0)
  2050. {
  2051.     SetProfileString ('Micrografx','Draw 3.0 for OS/2',pathDraw);
  2052.     SetProfileString ('Micrografx','Libraries 4.0',pathLibrary);
  2053.     SetProfileString ('Micrografx','ClipArt',pathClipArt);
  2054.  
  2055.     PathCat (szTemp,pathLibrary,'MGXSFS.DRV');
  2056.     SetOS2IniString  ('PM_DEVICE_DRIVERS','MGXSFS',szTemp);
  2057.  
  2058.     if STRCMP (szSerialNumber,'')
  2059.     {
  2060.         SetProfileString ('Draw 3.0 for OS/2','Warning','0');
  2061.     }
  2062.     else
  2063.     {
  2064.         SetProfileString ('Draw 3.0 for OS/2','Warning','1');
  2065.         SetProfileString ('Draw 3.0 for OS/2','SN',szSerialNumber);
  2066.     }
  2067.  
  2068.     SetProfileString ('Draw 3.0 for OS/2','Drawings',pathTutorial);
  2069.     SetProfileString ('Draw 3.0 for OS/2','ImportPath',pathTutorial);
  2070.  
  2071.     PathCat (szTemp,pathDraw,"DRAW.EXE ^.drw");
  2072.     SetProfileString ('Extensions','drw',szTemp);
  2073.  
  2074.     SetProfileString ('Clipboard Formats','MGX_DRAWM','0,\'Micrografx Picture\'');
  2075.     SetProfileString ('Clipboard Formats','MGX_PICTM','0,\'In*a*Vision or Draw for OS/2 Picture\'');
  2076.  
  2077.     SetProfileString ('Compatibility','DRAW',NULL);
  2078. }
  2079. GetSelectCount (nCount,'pkgClipCat','','');
  2080. if GT (nCount,0)
  2081. {
  2082.     PathCat (szTemp,pathClipArt,"ANIMALS.CAT");
  2083.     SetProfileString ('Subjects',"Animals"          ,szTemp,'MGXART.INI');
  2084.  
  2085.     PathCat (szTemp,pathClipArt,"ARROWS.CAT");
  2086.     SetProfileString ('Subjects',"Arrows"           ,szTemp,'MGXART.INI');
  2087.  
  2088.     PathCat (szTemp,pathClipArt,"BANNERS.CAT");
  2089.     SetProfileString ('Subjects',"Banners"          ,szTemp,'MGXART.INI');
  2090.  
  2091.     PathCat (szTemp,pathClipArt,"BORDERS.CAT");
  2092.     SetProfileString ('Subjects',"Borders"          ,szTemp,'MGXART.INI');
  2093.  
  2094.     PathCat (szTemp,pathClipArt,"BUSINESS.CAT");
  2095.     SetProfileString ('Subjects',"Business forms"   ,szTemp,'MGXART.INI');
  2096.  
  2097.     PathCat (szTemp,pathClipArt,"CARTOONS.CAT");
  2098.     SetProfileString ('Subjects',"Cartoons"         ,szTemp,'MGXART.INI');
  2099.  
  2100.     PathCat (szTemp,pathClipArt,"DINGBATS.CAT");
  2101.     SetProfileString ('Subjects',"Dingbats"         ,szTemp,'MGXART.INI');
  2102.  
  2103.     PathCat (szTemp,pathClipArt,"DRY.CAT");
  2104.     SetProfileString ('Subjects',"Dry goods"        ,szTemp,'MGXART.INI');
  2105.  
  2106.     PathCat (szTemp,pathClipArt,"GRAPHS.CAT");
  2107.     SetProfileString ('Subjects',"Graphs"           ,szTemp,'MGXART.INI');
  2108.  
  2109.     PathCat (szTemp,pathClipArt,"GROCERY.CAT");
  2110.     SetProfileString ('Subjects',"Groceries"        ,szTemp,'MGXART.INI');
  2111.  
  2112.     PathCat (szTemp,pathClipArt,"HANDS.CAT");
  2113.     SetProfileString ('Subjects',"Hands"            ,szTemp,'MGXART.INI');
  2114.  
  2115.     PathCat (szTemp,pathClipArt,"HARDWARE.CAT");
  2116.     SetProfileString ('Subjects',"Hardware"         ,szTemp,'MGXART.INI');
  2117.  
  2118.     PathCat (szTemp,pathClipArt,"HOLIDAYS.CAT");
  2119.     SetProfileString ('Subjects',"Holidays"         ,szTemp,'MGXART.INI');
  2120.  
  2121.     PathCat (szTemp,pathClipArt,"ICONS.CAT");
  2122.     SetProfileString ('Subjects',"Icons"            ,szTemp,'MGXART.INI');
  2123.  
  2124.     PathCat (szTemp,pathClipArt,"LANDMARK.CAT");
  2125.     SetProfileString ('Subjects',"Landmarks"        ,szTemp,'MGXART.INI');
  2126.  
  2127.     PathCat (szTemp,pathClipArt,"MAPS.CAT");
  2128.     SetProfileString ('Subjects',"Maps"             ,szTemp,'MGXART.INI');
  2129.  
  2130.     PathCat (szTemp,pathClipArt,"MONEY.CAT");
  2131.     SetProfileString ('Subjects',"Money"            ,szTemp,'MGXART.INI');
  2132.  
  2133.     PathCat (szTemp,pathClipArt,"OFFICE.CAT");
  2134.     SetProfileString ('Subjects',"Office"           ,szTemp,'MGXART.INI');
  2135.  
  2136.     PathCat (szTemp,pathClipArt,"PEOPLE.CAT");
  2137.     SetProfileString ('Subjects',"People"           ,szTemp,'MGXART.INI');
  2138.  
  2139.     PathCat (szTemp,pathClipArt,"PRESIDEN.CAT");
  2140.     SetProfileString ('Subjects',"Presidents"       ,szTemp,'MGXART.INI');
  2141.  
  2142.     PathCat (szTemp,pathClipArt,"SIGNS.CAT");
  2143.     SetProfileString ('Subjects',"Signs"            ,szTemp,'MGXART.INI');
  2144.  
  2145.     PathCat (szTemp,pathClipArt,"SPORTS.CAT");
  2146.     SetProfileString ('Subjects',"Sports"           ,szTemp,'MGXART.INI');
  2147.  
  2148.     PathCat (szTemp,pathClipArt,"TRANSPOR.CAT");
  2149.     SetProfileString ('Subjects',"Transportation"   ,szTemp,'MGXART.INI');
  2150.  
  2151.     PathCat (szTemp,pathClipArt,"TYPE.CAT");
  2152.     SetProfileString ('Subjects',"Type"             ,szTemp,'MGXART.INI');
  2153. }
  2154. GetSelectCount (nCount,'pkgTutorial','','');
  2155. if GT (nCount,0)
  2156. {
  2157.     PathCat (szTemp,pathTutorial,"TUTORIAL.CAT");
  2158.     SetProfileString ('Subjects',"Tutorial"         ,szTemp,'MGXART.INI');
  2159. }
  2160. GetSelectCount (nCount,'pkgSamples','','');
  2161. if GT (nCount,0)
  2162. {
  2163.     PathCat (szTemp,pathSamples,"WINDRW.CAT");
  2164.     SetProfileString ('Subjects',"Samples"          ,szTemp,'MGXART.INI');
  2165. }
  2166. GetSelectCount (nCount,'pkgFonts','','');
  2167. if GT (nCount,0)
  2168. {
  2169.     PathCat (szTemp,pathLibrary,'MGXFONTS,MGXFNT,MGXFNT.FTM,0,0');
  2170.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','MGXFNT',szTemp);
  2171. }
  2172. GetSelectCount (nCount,'pkgCoreMGXFonts','','');
  2173. if GT (nCount,0)
  2174. {
  2175.     PathCat (szTemp,pathLibrary,'MGXFONTS,MGXFNT,MGXFNT.FTM,0,0');
  2176.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','MGXFNT',szTemp);
  2177. }
  2178. PathCat (szTemp,pathLibrary,'BITFONTS\\MGXBIT.FTM');
  2179. if EXISTS (szTemp)
  2180. {
  2181.     PathCat (szTemp,pathLibrary,'BITFONTS,MGXFNT,MGXBIT.FTM,0,0');
  2182.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','BSBEZIER',szTemp);
  2183. }
  2184. PathCat (szTemp,pathLibrary,'SPDFONTS\\MGXSPD.FTM');
  2185. if EXISTS (szTemp)
  2186. {
  2187.     PathCat (szTemp,pathLibrary,'SPDFONTS,MGXFNT,MGXSPD.FTM,0,0');
  2188.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','BSSPEEDO',szTemp);
  2189. }
  2190. PathCat (szTemp,pathLibrary,'URWFONTS\\MGXURW.FTM');
  2191. if EXISTS (szTemp)
  2192. {
  2193.     PathCat (szTemp,pathLibrary,'URWFONTS,MGXFNT,MGXURW.FTM,0,0');
  2194.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','URWBEZIER',szTemp);
  2195. }
  2196. GetSelectCount (nCount,'pkgClipArt','','');
  2197. if GT (nCount,0)
  2198. {
  2199.     SetProfileString ('Micrografx','ClipArt',pathClipArt);
  2200. }
  2201.  
  2202. ##############################################################################
  2203.  
  2204. [AddNetIni] ()
  2205. PathCat (szNetIni,pathDraw,'MGXNET.INI');
  2206. GetSelectCount (nCount,'pkgDraw','','');
  2207. if GT (nCount,0)
  2208. {
  2209.     SetProfileString ('Micrografx','Draw 3.0 for OS/2',pathDraw      ,szNetIni);
  2210.     SetProfileString ('Micrografx','Libraries 4.0',pathLibrary      ,szNetIni);
  2211.     SetProfileString ('Micrografx','ClipArt',pathClipArt            ,szNetIni);
  2212.  
  2213.     SetProfileString ('Draw 3.0 for OS/2','SN',szSerialNumber        ,szNetIni);
  2214.     SetProfileString ('Draw 3.0 for OS/2','Drawings',pathTutorial    ,szNetIni);
  2215.     SetProfileString ('Draw 3.0 for OS/2','ImportPath',pathTutorial  ,szNetIni);
  2216. }
  2217. GetSelectCount (nCount,'pkgClipCat','','');
  2218. if GT (nCount,0)
  2219. {
  2220.     PathCat (szTemp,pathClipArt,"ANIMALS.CAT");
  2221.     SetProfileString ('Subjects',"Animals"                   ,szTemp,szNetIni);
  2222.  
  2223.     PathCat (szTemp,pathClipArt,"ARROWS.CAT");
  2224.     SetProfileString ('Subjects',"Arrows"                    ,szTemp,szNetIni);
  2225.  
  2226.     PathCat (szTemp,pathClipArt,"BANNERS.CAT");
  2227.     SetProfileString ('Subjects',"Banners"                   ,szTemp,szNetIni);
  2228.  
  2229.     PathCat (szTemp,pathClipArt,"BORDERS.CAT");
  2230.     SetProfileString ('Subjects',"Borders"                   ,szTemp,szNetIni);
  2231.  
  2232.     PathCat (szTemp,pathClipArt,"BUSINESS.CAT");
  2233.     SetProfileString ('Subjects',"Business forms"            ,szTemp,szNetIni);
  2234.  
  2235.     PathCat (szTemp,pathClipArt,"CARTOONS.CAT");
  2236.     SetProfileString ('Subjects',"Cartoons"                  ,szTemp,szNetIni);
  2237.  
  2238.     PathCat (szTemp,pathClipArt,"DINGBATS.CAT");
  2239.     SetProfileString ('Subjects',"Dingbats"                  ,szTemp,szNetIni);
  2240.  
  2241.     PathCat (szTemp,pathClipArt,"DRY.CAT");
  2242.     SetProfileString ('Subjects',"Dry goods"                 ,szTemp,szNetIni);
  2243.  
  2244.     PathCat (szTemp,pathClipArt,"GRAPHS.CAT");
  2245.     SetProfileString ('Subjects',"Graphs"                    ,szTemp,szNetIni);
  2246.  
  2247.     PathCat (szTemp,pathClipArt,"GROCERY.CAT");
  2248.     SetProfileString ('Subjects',"Groceries"                 ,szTemp,szNetIni);
  2249.  
  2250.     PathCat (szTemp,pathClipArt,"HANDS.CAT");
  2251.     SetProfileString ('Subjects',"Hands"                     ,szTemp,szNetIni);
  2252.  
  2253.     PathCat (szTemp,pathClipArt,"HARDWARE.CAT");
  2254.     SetProfileString ('Subjects',"Hardware"                  ,szTemp,szNetIni);
  2255.  
  2256.     PathCat (szTemp,pathClipArt,"HOLIDAYS.CAT");
  2257.     SetProfileString ('Subjects',"Holidays"                  ,szTemp,szNetIni);
  2258.  
  2259.     PathCat (szTemp,pathClipArt,"ICONS.CAT");
  2260.     SetProfileString ('Subjects',"Icons"                     ,szTemp,szNetIni);
  2261.  
  2262.     PathCat (szTemp,pathClipArt,"LANDMARK.CAT");
  2263.     SetProfileString ('Subjects',"Landmarks"                 ,szTemp,szNetIni);
  2264.  
  2265.     PathCat (szTemp,pathClipArt,"MAPS.CAT");
  2266.     SetProfileString ('Subjects',"Maps"                      ,szTemp,szNetIni);
  2267.  
  2268.     PathCat (szTemp,pathClipArt,"MONEY.CAT");
  2269.     SetProfileString ('Subjects',"Money"                     ,szTemp,szNetIni);
  2270.  
  2271.     PathCat (szTemp,pathClipArt,"OFFICE.CAT");
  2272.     SetProfileString ('Subjects',"Office"                    ,szTemp,szNetIni);
  2273.  
  2274.     PathCat (szTemp,pathClipArt,"PEOPLE.CAT");
  2275.     SetProfileString ('Subjects',"People"                    ,szTemp,szNetIni);
  2276.  
  2277.     PathCat (szTemp,pathClipArt,"PRESIDEN.CAT");
  2278.     SetProfileString ('Subjects',"Presidents"                ,szTemp,szNetIni);
  2279.  
  2280.     PathCat (szTemp,pathClipArt,"SIGNS.CAT");
  2281.     SetProfileString ('Subjects',"Signs"                     ,szTemp,szNetIni);
  2282.  
  2283.     PathCat (szTemp,pathClipArt,"SPORTS.CAT");
  2284.     SetProfileString ('Subjects',"Sports"                    ,szTemp,szNetIni);
  2285.  
  2286.     PathCat (szTemp,pathClipArt,"TRANSPOR.CAT");
  2287.     SetProfileString ('Subjects',"Transportation"            ,szTemp,szNetIni);
  2288.  
  2289.     PathCat (szTemp,pathClipArt,"TYPE.CAT");
  2290.     SetProfileString ('Subjects',"Type"                      ,szTemp,szNetIni);
  2291. }
  2292. GetSelectCount (nCount,'pkgTutorial','','');
  2293. if GT (nCount,0)
  2294. {
  2295.     PathCat (szTemp,pathTutorial,"TUTORIAL.CAT");
  2296.     SetProfileString ('Subjects',"Tutorial"                  ,szTemp,szNetIni);
  2297. }
  2298. GetSelectCount (nCount,'pkgSamples','','');
  2299. if GT (nCount,0)
  2300. {
  2301.     PathCat (szTemp,pathSamples,"WINDRW.CAT");
  2302.     SetProfileString ('Subjects',"Samples"                   ,szTemp,szNetIni);
  2303. }
  2304. GetSelectCount (nCount,'pkgFonts','','');
  2305. if GT (nCount,0)
  2306. {
  2307.     PathCat (szTemp,pathLibrary,'MGXFONTS,MGXFNT,MGXFNT.FTM,0,0');
  2308.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','MGXFNT'        ,szTemp,szNetIni);
  2309. }
  2310. GetSelectCount (nCount,'pkgCoreMGXFonts','','');
  2311. if GT (nCount,0)
  2312. {
  2313.     PathCat (szTemp,pathLibrary,'MGXFONTS,MGXFNT,MGXFNT.FTM,0,0');
  2314.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','MGXFNT'        ,szTemp,szNetIni);
  2315. }
  2316. PathCat (szTemp,pathLibrary,'BITFONTS\\MGXBIT.FTM');
  2317. if EXISTS (szTemp)
  2318. {
  2319.     PathCat (szTemp,pathLibrary,'BITFONTS,MGXFNT,MGXBIT.FTM,0,0');
  2320.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','BSBEZIER'      ,szTemp,szNetIni);
  2321. }
  2322. PathCat (szTemp,pathLibrary,'SPDFONTS\\MGXSPD.FTM');
  2323. if EXISTS (szTemp)
  2324. {
  2325.     PathCat (szTemp,pathLibrary,'SPDFONTS,MGXFNT,MGXSPD.FTM,0,0');
  2326.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','BSSPEEDO'      ,szTemp,szNetIni);
  2327. }
  2328. PathCat (szTemp,pathLibrary,'URWFONTS\\MGXURW.FTM');
  2329. if EXISTS (szTemp)
  2330. {
  2331.     PathCat (szTemp,pathLibrary,'URWFONTS,MGXFNT,MGXURW.FTM,0,0');
  2332.     SetProfileString ('Micrografx Fonts 4.0 for OS/2','URWBEZIER'     ,szTemp,szNetIni);
  2333. }
  2334. GetSelectCount (nCount,'pkgClipArt','','');
  2335. if GT (nCount,0)
  2336. {
  2337.     SetProfileString ('Micrografx','ClipArt',pathClipArt            ,szNetIni);
  2338. }
  2339.  
  2340.  
  2341. ##############################################################################
  2342.  
  2343. [UpdateLibpath]
  2344. AppendToLibPath (nResult,pathLibrary);
  2345. if EQUALS (nResult,2)
  2346. {
  2347.     bLibPathchg = TRUE;
  2348. }
  2349.  
  2350. ##############################################################################
  2351.  
  2352. [ResultDialog] ()
  2353. bCancel = FALSE;
  2354. bStop   = FALSE;
  2355. bQuit   = FALSE;
  2356. if EQUALS (bSuccess,TRUE)
  2357. {
  2358.     SetExtHelp ("");
  2359.     WinHelp (bResult,szReadMe,HELP_INDEX);
  2360.     SetIcon (DrawIcon,1,1,"Draw for OS/2");
  2361.     if EQUALS (bResult,TRUE)
  2362.     {
  2363.         SetHelp ("Click CONTINUE to proceed.");
  2364.         SetExtHelp ("");
  2365.         SetButtons ("&Continue","","",BUTTON1,BUTTON1);
  2366.         TextDialog (
  2367.             "Behind the Micrografx Installer, you will find a help
  2368.             " window containing information you should know about
  2369.             " Draw 3.0 for OS/2.\n\n
  2370.             "To see the help window fully, click anywhere on it.
  2371.             " The help window will surface over the Micrografx
  2372.             " Installer.\n\n
  2373.             "To return to the Micrografx Installer, minimize the
  2374.             " help window. For information on minimizing a window,
  2375.             " see your OS/2 manual.");
  2376.     }
  2377.     PathCat (szTemp,pathDraw,"DRAW.EXE");
  2378.     if EXISTS (szTemp)
  2379.     {
  2380.         SetHelp ("Click MAIN MENU to return to the Main Menu.");
  2381.         SetButtons ("&Main Menu","&Quit","",BUTTON1,BUTTON2);
  2382.         if EQUALS (bIcons,TRUE)
  2383.         {
  2384.             if EQUALS (bLibPathchg,TRUE)
  2385.             {
  2386.                 TextDialog (
  2387.                     "~Installation was successful!\n\n
  2388.                     "Your CONFIG.SYS file has been updated.  It is necessary
  2389.                     " for you to shutdown your system before using Draw for OS/2.\n\n
  2390.                     "To start Draw for OS/2, close the Micrografx Installer, 
  2391.                     " shutdown your system, double click the Draw for OS/2
  2392.                     " icon in the Micrografx folder.\n\n
  2393.                     "To return to the Main Menu of this program, click
  2394.                     " MAIN MENU now.\n\n
  2395.                     "Also, remember to complete and mail your Draw for OS/2
  2396.                     " registration card so Micrografx can donate $1.00 to
  2397.                     " the charity of your choice!");
  2398.             }
  2399.             else
  2400.             {
  2401.                 TextDialog (
  2402.                     "~Installation was successful!\n\n
  2403.                     "To start Draw for OS/2, close the Micrografx Installer, then
  2404.                     " double click the Draw for OS/2 icon in the Micrografx folder.\n\n
  2405.                     "To return to the Main Menu of this program, click
  2406.                     " MAIN MENU now.\n\n
  2407.                     "Also, remember to complete and mail your Draw for OS/2
  2408.                     " registration card so Micrografx can donate $1.00 to
  2409.                     " the charity of your choice!");
  2410.             }
  2411.         }
  2412.         else
  2413.         {
  2414.             if EQUALS (bLibPathchg,TRUE)
  2415.             {
  2416.                 TextDialog (
  2417.                     "~Installation was successful!\n\n
  2418.                     "Your CONFIG.SYS file has been updated.  It is necessary
  2419.                     " for you to shutdown your system before using Draw for OS/2.\n\n
  2420.                     "To start Draw for OS/2, close the Micrografx Installer, 
  2421.                     " shutdown your system, run the OS/2 Drives utility,
  2422.                     " change to the Draw for OS/2 directory, and double click
  2423.                     " the file DRAW.EXE.\n\n
  2424.                     "To return to the Main Menu of this program, click
  2425.                     " MAIN MENU now.\n\n
  2426.                     "Also, remember to complete and mail your Draw for OS/2
  2427.                     " registration card so Micrografx can donate $1.00 to
  2428.                     " the charity of your choice!");
  2429.             }
  2430.             else
  2431.             {
  2432.                 TextDialog (
  2433.                     "~Installation was successful!\n\n
  2434.                     "To start Draw for OS/2, close the Micrografx Installer, 
  2435.                     " run the OS/2 Drives utility, change to the Draw for OS/2
  2436.                     " directory, and double click the file DRAW.EXE.\n\n
  2437.                     "To return to the Main Menu of this program, click
  2438.                     " MAIN MENU now.\n\n
  2439.                     "Also, remember to complete and mail your Draw for OS/2
  2440.                     " registration card so Micrografx can donate $1.00 to
  2441.                     " the charity of your choice!");
  2442.             } 
  2443.         }
  2444.         SetIcon (DrawIcon,1,1);
  2445.         SetHelp ("");
  2446.         SetButtons ("","","",BUTTON1,BUTTON1);
  2447.         if PRESSED (BUTTON2)
  2448.         {
  2449.             bCancel = TRUE;
  2450.             bStop   = TRUE;
  2451.             bQuit   = TRUE;
  2452.         }
  2453.     }
  2454.     else
  2455.     {
  2456.         SetHelp ("Click QUIT to end Micrografx Installer.");
  2457.         SetButtons ("&Main Menu","&Quit","",BUTTON1,BUTTON2);
  2458.         TextDialog (
  2459.             "~Installation was successful!\n\n
  2460.             "To return to the Main Menu of this program, click
  2461.             " MAIN MENU now.\n\n
  2462.             "To end the Micrografx Installer, click QUIT now.\n\n
  2463.             "Also, remember to complete and mail your Draw for OS/2
  2464.             " registration card so Micrografx can donate $1.00 to
  2465.             " the charity of your choice!");
  2466.         SetIcon (DrawIcon,1,1);
  2467.         SetHelp ("");
  2468.         SetButtons ("","","",BUTTON1,BUTTON1);
  2469.         if PRESSED (BUTTON2)
  2470.         {
  2471.             bCancel = TRUE;
  2472.             bStop   = TRUE;
  2473.             bQuit   = TRUE;
  2474.         }
  2475.     }
  2476. }
  2477.  
  2478. ##############################################################################
  2479.  
  2480. 
  2481.  
  2482. 
  2483. 
  2484. 
  2485.