3 		installSourceFiles installSTCFiles installGoodyFiles

     3 		installSourceFiles installSTCFiles installGoodyFiles fullDir

     5 		resources'

     5 		resources fullInstallation dfHolder copyProcess'

     6 	classVariableNames:'LastBinDir LastLibBinDir LastLibDir'

     6 	classVariableNames:'LastBinDir LastLibBinDir LastLibDir LastFullDir'

   107     dirsToMake add:stxBinDir.

   125     fullInstallation ifTrue:[

   108     dirsToMake add:stxLibDir.

   126         dirsToMake add:fullDir.

   109     dirsToMake add:stxLibBinDir.

   127     ] ifFalse:[

   110     dirsToMake add:(stxLibDir asFilename constructString:'configurations').

   128         dirsToMake add:stxBinDir.

   111     dirsToMake add:(stxLibDir asFilename constructString:'doc').

   129         dirsToMake add:stxLibDir.

   112     dirsToMake add:(stxLibDir asFilename constructString:'doc/online').

   130         dirsToMake add:stxLibBinDir.

   113     dirsToMake add:(stxLibDir asFilename constructString:'doc/online/english').

   131         dirsToMake add:(stxLibDir asFilename constructString:'configurations').

   114     dirsToMake add:(stxLibDir asFilename constructString:'doc/online/german').

   132         dirsToMake add:(stxLibDir asFilename constructString:'doc').

   115     dirsToMake add:(stxLibDir asFilename constructString:'doc/online/french').

   133         dirsToMake add:(stxLibDir asFilename constructString:'doc/online').

   116     dirsToMake add:(stxLibDir asFilename constructString:'doc/online/italian').

   134         dirsToMake add:(stxLibDir asFilename constructString:'doc/online/english').

   117     dirsToMake add:(stxLibDir asFilename constructString:'include').

   135         dirsToMake add:(stxLibDir asFilename constructString:'doc/online/german').

   118     dirsToMake add:(stxLibDir asFilename constructString:'resources').

   136         dirsToMake add:(stxLibDir asFilename constructString:'doc/online/french').

   119     dirsToMake add:(stxLibDir asFilename constructString:'binary').

   137         dirsToMake add:(stxLibDir asFilename constructString:'doc/online/italian').

   120     dirsToMake add:(stxLibDir asFilename constructString:'bitmaps').

   138         dirsToMake add:(stxLibDir asFilename constructString:'include').

   121     dirsToMake add:(stxLibDir asFilename constructString:'goodies').

   139         dirsToMake add:(stxLibDir asFilename constructString:'resources').

   122 

   140         dirsToMake add:(stxLibDir asFilename constructString:'binary').

   141         dirsToMake add:(stxLibDir asFilename constructString:'bitmaps').

   142         dirsToMake add:(stxLibDir asFilename constructString:'goodies').

   143     ].

   243     |msg fileSpec filesToCopy numFiles nDone|

   266     |msg fileSpec filesToCopy numFiles nDone cmd|

   244 

   267 

   245     msg := (resources array:#('ST/X Installation' '' 'copying:' '' 'to:' '')) asStringCollection.

   268      msg := (resources array:#('ST/X Installation' '' 'copying:' '' 'to:' '')) asStringCollection.

   269 

   270     fullInstallation ifTrue:[

   271         msg at:4 put:('    all from CD' asText allBold).

   272         msg at:6 put:'    ' , (fullDir asText allBold).

   273         actionTextHolder value:nil.

   274         actionTextHolder value:msg.

   275 

   276         cmd := 'cp -r ../../* ' , fullDir.

   277         "/

   278         "/ not all systems have cp -rv

   279         "/

   280         OperatingSystem getOSType = 'linux' ifTrue:[

   281             cmd := 'cp -rv ../../* ' , fullDir.

   282         ].

   283         commandTraceView showCR:cmd , ' ...'.

   284         commandTraceView endEntry.

   285         cmd := cmd , ' 2>&1' .

   286 

   287         self executeCommandAndShowOutput:cmd.

   288 

   289         ^ true

   290     ].

   281         |fileName destDir cmd p text line doneSemaphore|

   326         |fileName destDir cmd|

   307                 doneSemaphore := Semaphore new.

   352                 self executeCommandAndShowOutput:cmd

   308 

   309                 [   

   310 

   311                     p := PipeStream readingFrom:cmd.

   312                     p isNil ifTrue:[

   313                         self warn:('command error. Could not execute:\\' , cmd) withCRs.

   314                     ] ifFalse:[

   315                         [p atEnd] whileFalse:[

   316                             (p readWaitWithTimeout:0.1) ifFalse:[

   317                                 line := p nextLine.

   318                                 (line notNil and:[line notEmpty]) ifTrue:[

   319                                     commandTraceView showCR:(('  ' , line) asText emphasizeAllWith:(#color->Color red)).

   320                                     commandTraceView endEntry.

   321                                 ]

   322                             ]

   323                         ].

   324                         p close.

   325                     ].

   326                     doneSemaphore signal.

   327                 ] forkAt:4.

   328 

   329                 doneSemaphore wait.

   338     "Created: 17.7.1996 / 15:16:20 / cg"

   361     "

   339     "Modified: 22.5.1997 / 15:06:33 / cg"

   362      STXInstaller open

   363     "

   364 

   365     "Created: / 17.7.1996 / 15:16:20 / cg"

   366     "Modified: / 25.2.1998 / 18:30:53 / cg"

   411     OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').

   438     fullInstallation ifTrue:[

   439         OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').

   440     ] ifFalse:[

   441         OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').

   442     ].

   414     "Created: 17.7.1996 / 15:24:19 / cg"

   445     "Created: / 17.7.1996 / 15:24:19 / cg"

   415     "Modified: 22.5.1997 / 15:06:48 / cg"

   446     "Modified: / 25.2.1998 / 19:20:59 / cg"

   447 !

   448 

   449 executeCommandAndShowOutput:cmd

   450     |doneSemaphore line p|

   451 

   452     doneSemaphore := Semaphore new.

   453 

   454     copyProcess := [   

   455 

   456         p := PipeStream readingFrom:cmd.

   457         p isNil ifTrue:[

   458             self warn:('command error. Could not execute:\\' , cmd) withCRs.

   459         ] ifFalse:[

   460             [

   461                 [p atEnd] whileFalse:[

   462                     (p readWaitWithTimeout:0.1) ifFalse:[

   463                         line := p nextLine.

   464                         (line notNil and:[line notEmpty]) ifTrue:[

   465                             commandTraceView showCR:(('  ' , line) asText emphasizeAllWith:(#color->Color red)).

   466                             commandTraceView endEntry.

   467                         ]

   468                     ]

   469                 ].

   470                 p close.

   471             ] valueOnUnwindDo:[

   472                 p shutDown

   473             ]

   474         ].

   475         doneSemaphore signal.

   476         copyProcess := nil.

   477     ] forkAt:4.

   478 

   479     doneSemaphore wait.

   480 

   481     "Created: / 25.2.1998 / 17:46:06 / cg"

   482     "Modified: / 25.2.1998 / 18:36:50 / cg"

   489     "Modified: 2.3.1997 / 13:46:23 / cg"

   561     "Modified: / 25.2.1998 / 16:54:51 / cg"

   496      stxLibDirHolder stxLibBinDirHolder stxBinDirHolder

   584      fullDirHolder|

   497      installDocHolder installSourceHolder installSTCHolder installGoodiesHolder

   585 

   498      binMegabytes libMegabytes docMegabytes stcMegabytes srcMegabytes

   586     LastFullDir isNil ifTrue:[

   499     |

   587         LastFullDir := (Filename homeDirectory 

   500 

   588                             construct:'stx')

   501     binMegabytes := 10.

   589                             constructString:'develop'

   502     libMegabytes := 30.

   590     ].

   503     docMegabytes := 11.

   591 

   504     stcMegabytes := 1.

   592     fullDirHolder := LastFullDir asValue.

   505     srcMegabytes := 15.

   506 

   507     LastLibDir isNil ifTrue:[

   508         LastLibDir := '/usr/local/lib/smalltalk'

   509     ].

   510     LastLibBinDir isNil ifTrue:[

   511         LastLibBinDir := '/usr/local/lib'

   512     ].

   513     LastBinDir isNil ifTrue:[

   514         LastBinDir := '/usr/local/bin'

   515     ].

   516 

   517     stxLibDirHolder := LastLibDir asValue.

   518     stxLibBinDirHolder := LastLibBinDir asValue.

   519     stxBinDirHolder := LastBinDir asValue.

   520 

   521     installDocHolder := true asValue.

   522     installSourceHolder := true asValue.

   523     installSTCHolder := true asValue.

   524     installGoodiesHolder := true asValue.

   536     d label:(resources string:'ST/X CD Installation').

   604     d label:(resources string:'ST/X Full Installation').

   542     l := d addTextLabel:(resources string:'Smalltalk/X CD installation.').

   610     l := d addTextLabel:(resources string:'Smalltalk/X CD installation (full).').

   611     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.

   612     d addVerticalSpace.

   613     d addVerticalSpace.

   614 

   615     d addHorizontalLine.

   616 

   617     l := d addTextLabel:(resources string:'ST/X development directory:').

   618     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.

   619 

   620     cm := ComboBoxView on:fullDirHolder.

   621     cm list:self defaultFullDirs.

   622     d 

   623         addLabelledField:cm 

   624         label:(resources string:'stx develop')

   625         adjust:#left 

   626         tabable:true 

   627         from:0.0 to:1.0 separateAtX:0.25

   628         nameAs:'fullBox'.

   629 

   630     (d componentAt:'fullBox.label') backgroundColor:dark; foregroundColor:Color white.

   631 

   632     d addVerticalSpace.

   633     d addHorizontalLine.

   634 

   635     d addHelpButtonFor:'STXInstaller/installHelp.html';

   636       addAbortButton; 

   637       addOkButtonLabelled:(resources string:'install').

   638     d extent:500@400.

   639 

   640     d allViewBackground:dark.

   641 

   642     d openAtCenter.

   643     d accepted ifTrue:[

   644         fullDir := LastFullDir := fullDirHolder value.

   645         d destroy.

   646         ^ true

   647     ].

   648     d destroy.

   649     ^ false

   650 

   651     "

   652      STXInstaller open

   653     "

   654 

   655     "Created: / 25.2.1998 / 17:11:37 / cg"

   656     "Modified: / 25.2.1998 / 17:29:07 / cg"

   657 !

   658 

   659 askForDestinationForPartialInstallation

   660     "open a dialog to enter destination directories"

   661 

   662     |d cm l green dark img

   663      stxLibDirHolder stxLibBinDirHolder stxBinDirHolder

   664      installDocHolder installSourceHolder installSTCHolder installGoodiesHolder

   665      binMegabytes libMegabytes docMegabytes stcMegabytes srcMegabytes

   666     |

   667 

   668     binMegabytes := 12.

   669     libMegabytes := 30.

   670     docMegabytes := 15.

   671     stcMegabytes := 1.

   672     srcMegabytes := 20.

   673 

   674     LastLibDir isNil ifTrue:[

   675         LastLibDir := '/usr/local/lib/smalltalk'

   676     ].

   677     LastLibBinDir isNil ifTrue:[

   678         LastLibBinDir := '/usr/local/lib'

   679     ].

   680     LastBinDir isNil ifTrue:[

   681         LastBinDir := '/usr/local/bin'

   682     ].

   683 

   684     stxLibDirHolder := LastLibDir asValue.

   685     stxLibBinDirHolder := LastLibBinDir asValue.

   686     stxBinDirHolder := LastBinDir asValue.

   687 

   688     installDocHolder := true asValue.

   689     installSourceHolder := true asValue.

   690     installSTCHolder := true asValue.

   691     installGoodiesHolder := true asValue.

   692 

   693     Screen current hasColors ifTrue:[

   694         green := (Color red:0 green:80 blue:20) "darkened".

   695         dark := Color grey:10.

   696     ] ifFalse:[

   697         green := Color white.

   698         dark := Color black.

   699     ].

   700 

   701     d := DialogBox new.

   702 

   703     d label:(resources string:'ST/X Partial Installation').

   704     img := Image fromFile:'SmalltalkX.xbm'.

   705 

   706     l := d addTextLabel:img.

   707     l adjust:#left; foregroundColor:green backgroundColor:dark.

   708 

   709     l := d addTextLabel:(resources string:'Smalltalk/X CD installation (partial).').

   651     "Modified: 22.5.1997 / 15:04:29 / cg"

   821     "

   822      STXInstaller open

   823     "

   824 

   825     "Created: / 25.2.1998 / 17:11:26 / cg"

   826     "Modified: / 25.2.1998 / 19:43:30 / cg"

   827 !

   828 

   829 askForFullInstallation

   830     "open a dialog to enter destination directories"

   831 

   832     |d cm l green dark img|

   833 

   834     Screen current hasColors ifTrue:[

   835         green := (Color red:0 green:80 blue:20) "darkened".

   836         dark := Color grey:10.

   837     ] ifFalse:[

   838         green := Color white.

   839         dark := Color black.

   840     ].

   841 

   842     d := DialogBox new.

   843 

   844     d label:(resources string:'ST/X CD Installation').

   845     img := Image fromFile:'SmalltalkX.xbm'.

   846 

   847     l := d addTextLabel:img.

   848     l adjust:#left; foregroundColor:green backgroundColor:dark.

   849 

   850     l := d addTextLabel:(resources string:'Smalltalk/X CD installation.').

   851     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.

   852     d addVerticalSpace.

   853     d addVerticalSpace.

   854 

   855     d addHorizontalLine.

   856 

   857     l := d addTextLabel:(resources string:

   858 'You can either perform a ' , 'full' asText allBold , ' installation, or a ' , 'partial' asText allBold ,' installation.').

   859     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.

   860 

   861     d addVerticalSpace.

   862     d addHorizontalLine.

   863 

   864     d leftIndent:20.

   865     l := d addTextLabel:(resources string:

   866 'The full installation is required if you want to build your own

   867 customized smalltalk executable. It allows you to include additional 

   868 precompiled classes or classLibraries. 

   869 This is also required if you want to link your own standalone executables.

   870 

   871 It consists of a directory hierachy, including makefiles for a customizeable 

   872 rebuild of the whole smalltalk system.

   873 (Actually, it simply copies the whole CD contents onto your disk).

   874 This requires roughly 120-200Mb of hard disk space.').

   875     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.

   876 

   877     d addVerticalSpace.

   878     d addHorizontalLine.

   879 

   880     l := d addTextLabel:(resources string:

   881 'The partial installation requires less disk space and only copies the

   882 smalltalk executable, shared libraries and support files onto your hard disk.

   883 This requires roughly 70-90Mb of hard disk space.

   884 

   885 

   886  ').

   887     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.

   888 

   889 

   890     d leftIndent:0.

   891     d addVerticalSpace.

   892     d addHorizontalLine.

   893 

   894 

   895     d addHelpButtonFor:'STXInstaller/installHelp.html';

   896       addAbortButton; 

   897       addOkButton:(Button label:(resources string:'install full') action:[fullInstallation:=true]);

   898       addOkButtonLabelled:(resources string:'install partial').

   899     d extent:500@400.

   900 

   901     d allViewBackground:dark.

   902 

   903     fullInstallation := false.

   904     d openAtCenter.

   905     d accepted ifTrue:[

   906         d destroy.

   907         ^ true

   908     ].

   909     d destroy.

   910     ^ false

   911 

   912     "

   913      STXInstaller open

   914     "

   915 

   916     "Created: / 25.2.1998 / 16:50:16 / cg"

   917     "Modified: / 25.2.1998 / 19:42:31 / cg"

   658     |whatToDo|

   924     |whichDir canOverWrite whatToDo box|

   659 

   925 

   660     stxLibDir asFilename exists ifTrue:[

   926     fullInstallation ifTrue:[

   661         whatToDo := Dialog 

   927         whichDir := fullDir.

   662                         choose:(resources 

   928         canOverWrite := false.

   663                                     string:'detected existing ST/X installation in %1' 

   929     ] ifFalse:[

   664                                       with:stxLibDir asText allBold)

   930         whichDir := stxLibDir.

   665                         label:(resources string:'Attention')

   931         canOverWrite := true.

   666                         labels:(resources array:#('remove first' 'overwrite' 'cancel')) 

   932     ].

   667                         values:#(remove over nil) 

   933 

   668                         default:nil.     

   934     whichDir asFilename exists ifTrue:[

   669 

   935             whatToDo := Dialog 

   670         whatToDo isNil ifTrue:[^false].

   936                             choose:(resources 

   671         whatToDo == #remove ifTrue:[

   937                                         string:'detected existing ST/X installation in %1' 

   672             ((stxLibDir findString:'stx') == 0

   938                                           with:whichDir asText allBold)

   673             and:[(stxLibDir findString:'smalltalk') == 0]) ifTrue:[

   939                             label:(resources string:'Attention')

   674                 "/ confirm again

   940                             labels:(resources array:(canOverWrite 

   675                 (self confirm:(resources 

   941                                                     ifFalse:[#('remove first' 'cancel')] 

   676                                 string:'are you certain that the directory to remove

   942                                                     ifTrue:[#('remove first' 'overwrite' 'cancel')] )) 

   677 (' , stxLibDir , ') is really a smalltalk directory ?

   943                             values:(canOverWrite ifFalse:[#(remove nil)] ifTrue:[#(remove over nil)])

   944                             default:nil.     

   945 

   946             whatToDo isNil ifTrue:[^false].

   947             whatToDo == #remove ifTrue:[

   948                 ((whichDir findString:'stx') == 0

   949                 and:[(whichDir findString:'smalltalk') == 0]) ifTrue:[

   950                     "/ confirm again

   951                     (self confirm:(resources 

   952                                     string:'are you certain that the directory to remove

   953 (' , whichDir , ') is really a smalltalk directory ?

   680                     (self confirm:(resources 

   956                         ^ false

   681                                      string:'overwrite ?')) ifTrue:[^ true].

   957                     ]

   958                 ].

   959 

   960                 [

   961                     box := DialogBox new label:'please wait'.

   962                     box addTextLabel:'removing ' , whichDir , ' ...'.

   963                     box showAtPointer.

   964                 ] forkAt:(Processor activePriority+1).

   965                 box waitUntilVisible.

   966 

   967                 (OperatingSystem recursiveRemoveDirectory:whichDir)

   968                 ifFalse:[

   969                     self warn:(resources string:'mhmh - could not remove old installation.

   970 

   971 Please remove it manually (using root privileges if required) 

   972 and try again.').

   973                     box destroy.

   683                 ]

   975                 ].

   976 

   977                 box destroy

   685 

   979     ].

   686             (OperatingSystem recursiveRemoveDirectory:stxLibDir)

   980 

   687             ifFalse:[

   688                 self warn:(resources string:'mhmh - could not remove old installation.')

   689             ].

   690         ].

   691         ^ true

   692     ].

   695     "Modified: 2.3.1997 / 13:45:13 / cg"

   983     "

   984      STXInstaller open

   985     "

   986 

   987     "Modified: / 25.2.1998 / 19:35:12 / cg"

   701     |progressView ok textView|

   993     |progressView ok v textView p l 

   702 

   994      dirToMonitor doDfMonitoring dfMonitorProcess|

   703     textView := HVScrollableView for:TextCollector.

   995 

   704     textView preferredExtent:(200 @ 300).

   996     doDfMonitoring := false.

   997 

   998     v := View new preferredExtent:(250 @ 350).

   999 

  1000     textView := HVScrollableView for:TextCollector in:v.

  1001     textView origin:0.0@0.0 corner:1.0@1.0.

  1002     textView bottomInset:30.

   711                         view:textView

  1076                         view:v

   724                   self outputInitialMessage.

  1089                   fullInstallation ifFalse:[

  1090                         self outputInitialMessage.

  1091                   ].

   745     "Created: 17.7.1996 / 15:11:27 / cg"

  1120     "

   746     "Modified: 2.3.1997 / 12:59:47 / cg"

  1121      STXInstaller open

  1122     "

  1123 

  1124     "Created: / 17.7.1996 / 15:11:27 / cg"

  1125     "Modified: / 25.2.1998 / 19:36:08 / cg"

   766     havePath := true.

  1149     fullInstallation ifTrue:[

   767     (((OperatingSystem getEnvironment:'PATH')

  1150         msg := msg , 'You will now find a development directory hierarchy

   768         asCollectionOfSubstringsSeparatedBy:$:)

  1151 in ''' , fullDir asText allBold , '''.

   769             includes:stxBinDir) ifFalse:[

  1152 

   770 

  1153 To try it, ''cd'' to ''' , fullDir , '/projects/smalltalk''

   771         havePath := false.

  1154 and start smalltalk with the command: ''./smalltalk''.

   772         shInfo  := 'PATH=$PATH:' , stxBinDir , ' ; export PATH\'.

  1155 

   773         cshInfo := 'set path=($path ' , stxBinDir , ')\'.

  1156 To perform a partial installation of your customized smalltalk later,

   774         msg := msg , (resources string:'%1 is not in your PATH.\You should change your ".login" and/or ".profile" files to include it.\\'

  1157 use the INSTALL script found in ''' , fullDir , ''''.

   775                                   with:stxBinDir asText allBold) withCRs.

  1158 

   776     ].

  1159     ] ifFalse:[

   777 

  1160         havePath := true.

   778     (stxLibDir ~= '/usr/local/lib/smalltalk'

  1161         (((OperatingSystem getEnvironment:'PATH')

   779     and:[stxLibDir ~= '/usr/lib/smalltalk']) ifTrue:[

  1162             asCollectionOfSubstringsSeparatedBy:$:)

   780         msg := msg , (resources string:'The library directory is not a standard ST/X library directory\("/usr/local/lib/smalltalk" or "/usr/lib/smalltalk").\You have to define the %1 environment variable\as %2 before ST/X can be started.\'

  1163                 includes:stxBinDir) ifFalse:[

   781                                   with:'STX_LIBDIR' asText allBold 

  1164 

   782                                   with:stxLibDir asText allBold) withCRs.

  1165             havePath := false.

   783         havePath ifFalse:[

  1166             shInfo  := 'PATH=$PATH:' , stxBinDir , ' ; export PATH\'.

   784             msg := msg , (resources string:'The above mentioned files are also a good place to do this.\') withCRs.

  1167             cshInfo := 'set path=($path ' , stxBinDir , ')\'.

   785         ] ifTrue:[

  1168             msg := msg , (resources string:'%1 is not in your PATH.\You should change your ".login" and/or ".profile" files to include it.\\'

   786             msg := msg , (resources string:'The ".login" and/or ".profile" files are a good place to do this.\') withCRs.

  1169                                       with:stxBinDir asText allBold) withCRs.

   789         shInfo := shInfo , 'STX_LIBDIR=' , stxLibDir , ' ; export STX_LIBDIR\'.

  1172         (stxLibDir ~= '/usr/local/lib/smalltalk'

   790         cshInfo := cshInfo , 'setenv STX_LIBDIR ' , stxLibDir , '\'.

  1173         and:[stxLibDir ~= '/usr/lib/smalltalk']) ifTrue:[

   791     ].

  1174             msg := msg , (resources string:'The library directory is not a standard ST/X library directory\("/usr/local/lib/smalltalk" or "/usr/lib/smalltalk").\You have to define the %1 environment variable\as %2 before ST/X can be started.\'

   792 

  1175                                       with:'STX_LIBDIR' asText allBold 

   793     shInfo notEmpty ifTrue:[

  1176                                       with:stxLibDir asText allBold) withCRs.

   794         '*********************************************************' errorPrintCR.

  1177             havePath ifFalse:[

   795         (resources string:'Message from the ST/X Installer:\\') withCRs errorPrintCR.

  1178                 msg := msg , (resources string:'The above mentioned files are also a good place to do this.\') withCRs.

   796         (resources string:'Please add the following to your ".profile" file:') withCRs errorPrintCR.

  1179             ] ifTrue:[

   797         '' errorPrintCR.

  1180                 msg := msg , (resources string:'The ".login" and/or ".profile" files are a good place to do this.\') withCRs.

   798         shInfo withCRs errorPrintCR.

  1181             ].

   799         '' errorPrintCR.

  1182 

   800         (resources string:'or (if you use csh/tcsh), add to your ".login" file:') withCRs errorPrintCR.

  1183             shInfo := shInfo , 'STX_LIBDIR=' , stxLibDir , ' ; export STX_LIBDIR\'.

   801         '' errorPrintCR.

  1184             cshInfo := cshInfo , 'setenv STX_LIBDIR ' , stxLibDir , '\'.

   802         cshInfo withCRs errorPrintCR.

  1185         ].

   803         '' errorPrintCR.

  1186 

   804         '*********************************************************' errorPrintCR.

  1187         shInfo notEmpty ifTrue:[

  1188             '*********************************************************' errorPrintCR.

  1189             (resources string:'Message from the ST/X Installer:\\') withCRs errorPrintCR.

  1190             (resources string:'Please add the following to your ".profile" file:') withCRs errorPrintCR.

  1191             '' errorPrintCR.

  1192             shInfo withCRs errorPrintCR.

  1193             '' errorPrintCR.

  1194             (resources string:'or (if you use csh/tcsh), add to your ".login" file:') withCRs errorPrintCR.

  1195             '' errorPrintCR.

  1196             cshInfo withCRs errorPrintCR.

  1197             '' errorPrintCR.

  1198             '*********************************************************' errorPrintCR.

  1199         ].

   811     "

  1206     "Modified: / 25.2.1998 / 19:29:04 / cg"

   812      STXInstaller new postInstall

   813     "

   814 

   815     "Modified: 2.3.1997 / 13:28:18 / cg"

   819     "clobber the doc directory, to avoid copying cyclic symbolic links"

  1210     "clobber the doc directory, to avoid copying cyclic symbolic links.

  1211      Notice, the CD does not contain symlinks, but checking for them

  1212      allows installing from a development dir."

   834     "Modified: 18.7.1996 / 22:10:42 / cg"

  1227     "Modified: / 25.2.1998 / 17:39:55 / cg"