655 msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection. |
655 msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection. |
656 actionTextHolder value:nil. |
656 actionTextHolder value:nil. |
657 actionTextHolder value:msg. |
657 actionTextHolder value:msg. |
658 |
658 |
659 installWhat == #full ifTrue:[ |
659 installWhat == #full ifTrue:[ |
660 commandTraceView showCR:(resources string:'setting up symbolic links in doc ...'); endEntry. |
660 commandTraceView showCR:(resources string:'setting up symbolic links in doc...'); endEntry. |
661 OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)'). |
661 OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)'). |
|
662 |
|
663 commandTraceView showCR:(resources string:'setting up symbolic links in projects/smalltalk...'); endEntry. |
|
664 OperatingSystem executeCommand:('(cd ' , fullDir , '/projects/smalltalk ; ln -s ../../lib*/*.so .)'). |
|
665 OperatingSystem executeCommand:('(cd ' , fullDir , '/projects/smalltalk ; ln -s ../../goodies/*/*.so .)'). |
662 ^ self. |
666 ^ self. |
663 ]. |
667 ]. |
664 "/ OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)'). |
668 "/ OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)'). |
665 |
669 |
666 commandTraceView showCR:(resources string:'setting up symbolic links in lib ...'); endEntry. |
670 commandTraceView showCR:(resources string:'setting up symbolic links in lib...'); endEntry. |
667 |
671 |
668 #( |
672 #( |
669 'libbasic/libbasic.so' |
673 'libbasic/libbasic.so' |
670 'libbasic2/libbasic2.so' |
674 'libbasic2/libbasic2.so' |
671 'libbasic3/libbasic3.so' |
675 'libbasic3/libbasic3.so' |