equal
deleted
inserted
replaced
86 dirsToMake add:(stxLibDir asFilename constructString:'lib/configurations'). |
86 dirsToMake add:(stxLibDir asFilename constructString:'lib/configurations'). |
87 dirsToMake add:(stxLibDir asFilename constructString:'doc'). |
87 dirsToMake add:(stxLibDir asFilename constructString:'doc'). |
88 dirsToMake add:(stxLibDir asFilename constructString:'doc/online'). |
88 dirsToMake add:(stxLibDir asFilename constructString:'doc/online'). |
89 dirsToMake add:(stxLibDir asFilename constructString:'doc/online/english'). |
89 dirsToMake add:(stxLibDir asFilename constructString:'doc/online/english'). |
90 dirsToMake add:(stxLibDir asFilename constructString:'doc/online/german'). |
90 dirsToMake add:(stxLibDir asFilename constructString:'doc/online/german'). |
|
91 dirsToMake add:(stxLibDir asFilename constructString:'doc/online/french'). |
|
92 dirsToMake add:(stxLibDir asFilename constructString:'doc/online/italian'). |
91 dirsToMake add:(stxLibDir asFilename constructString:'include'). |
93 dirsToMake add:(stxLibDir asFilename constructString:'include'). |
92 dirsToMake add:(stxLibDir asFilename constructString:'resources'). |
94 dirsToMake add:(stxLibDir asFilename constructString:'resources'). |
93 dirsToMake add:(stxLibDir asFilename constructString:'binary'). |
95 dirsToMake add:(stxLibDir asFilename constructString:'binary'). |
94 dirsToMake add:(stxLibDir asFilename constructString:'bitmaps'). |
96 dirsToMake add:(stxLibDir asFilename constructString:'bitmaps'). |
95 dirsToMake add:(stxLibDir asFilename constructString:'goodies'). |
97 dirsToMake add:(stxLibDir asFilename constructString:'goodies'). |
108 ( 'projects/smalltalk/patches' #lib nil true '644' ) |
110 ( 'projects/smalltalk/patches' #lib nil true '644' ) |
109 ( 'projects/smalltalk/bitmaps' #lib nil true '644' ) |
111 ( 'projects/smalltalk/bitmaps' #lib nil true '644' ) |
110 ( 'projects/smalltalk/resources' #lib nil true '644' ) |
112 ( 'projects/smalltalk/resources' #lib nil true '644' ) |
111 ( 'projects/smalltalk/lib' #lib nil true '644' ) |
113 ( 'projects/smalltalk/lib' #lib nil true '644' ) |
112 ( 'doc/online/german/LICENCE.STX.html' #lib 'doc/online/german' true '644' ) |
114 ( 'doc/online/german/LICENCE.STX.html' #lib 'doc/online/german' true '644' ) |
113 ( 'doc/online/english/LICENCE.STX.html' #lib 'doc/online/english' true '644' ) |
115 "/ ( 'doc/online/english/LICENCE.STX.html' #lib 'doc/online/english' true '644' ) |
114 ). |
116 ). |
115 |
117 |
116 installDocFiles ifTrue:[ |
118 installDocFiles ifTrue:[ |
117 fileSpec := fileSpec , #( |
119 fileSpec := fileSpec , #( |
118 ( 'doc' #lib nil false '644' ) |
120 ( 'doc' #lib nil false '644' ) |
321 ]. |
323 ]. |
322 ^ true |
324 ^ true |
323 |
325 |
324 "Created: 17.7.1996 / 15:24:19 / cg" |
326 "Created: 17.7.1996 / 15:24:19 / cg" |
325 "Modified: 18.7.1996 / 22:18:38 / cg" |
327 "Modified: 18.7.1996 / 22:18:38 / cg" |
|
328 ! |
|
329 |
|
330 createSymbolicLinks |
|
331 |msg dirsToMake numDirs nDone| |
|
332 |
|
333 msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection. |
|
334 |
|
335 OperatingSystem executeCommand:('cd stxLibDir/doc/online ; make links'). |
|
336 ^ true |
|
337 |
|
338 "Created: 17.7.1996 / 15:24:19 / cg" |
|
339 "Modified: 18.7.1996 / 22:18:38 / cg" |
326 ! ! |
340 ! ! |
327 |
341 |
328 !STXInstaller methodsFor:'startup'! |
342 !STXInstaller methodsFor:'startup'! |
329 |
343 |
330 askAndInstall |
344 askAndInstall |
555 actionTextHolder := currentAction. |
569 actionTextHolder := currentAction. |
556 |
570 |
557 (self createDirectories) ifTrue:[ |
571 (self createDirectories) ifTrue:[ |
558 ok := self copyFiles |
572 ok := self copyFiles |
559 ]. |
573 ]. |
|
574 self createSymbolicLinks. |
|
575 |
560 progressValue value:100. |
576 progressValue value:100. |
561 |
577 |
562 progressView topView abortButton label:(resources string:'continue'). |
578 progressView topView abortButton label:(resources string:'continue'). |
563 progressView topView abortButton action:[progressView topView hide]. |
579 progressView topView abortButton action:[progressView topView hide]. |
564 msg := (resources |
580 msg := (resources |