equal
deleted
inserted
replaced
97 "/ funny viewStyles, colors and stupid strings if wrong. |
97 "/ funny viewStyles, colors and stupid strings if wrong. |
98 "/ |
98 "/ |
99 |
99 |
100 |path pathOfSTXExecutable| |
100 |path pathOfSTXExecutable| |
101 |
101 |
102 'systemPath before: ' print. Smalltalk systemPath printCR. |
102 'systemPath before: ' infoPrint. Smalltalk systemPath infoPrintCR. |
|
103 'exec: ' infoPrint. OperatingSystem nameOfSTXExecutable infoPrintCR. |
|
104 'execPath: ' infoPrint. OperatingSystem pathOfSTXExecutable infoPrintCR. |
|
105 |
103 pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable asFilename directory. |
106 pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable asFilename directory. |
104 |
107 |
105 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[ |
108 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[ |
106 Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:) |
109 Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:) |
107 ] ifFalse:[ |
110 ] ifFalse:[ |
128 Smalltalk systemPath addFirst:'.' asFilename pathName. |
131 Smalltalk systemPath addFirst:'.' asFilename pathName. |
129 ]. |
132 ]. |
130 |
133 |
131 (path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[ |
134 (path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[ |
132 Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:). |
135 Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:). |
133 'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' printCR. |
136 'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' infoPrintCR. |
134 ] ifFalse:[ |
137 ] ifFalse:[ |
135 "/ |
138 "/ |
136 "/ if running in the development environment, |
139 "/ if running in the development environment, |
137 "/ only use the local packages. |
140 "/ only use the local packages. |
138 "/ |
141 "/ |
139 (pathOfSTXExecutable construct:'../../../stx/projects/smalltalk') exists ifTrue:[ |
142 (pathOfSTXExecutable construct:'../../../stx/projects/smalltalk') exists ifTrue:[ |
140 Smalltalk packagePath removeAll; add:(pathOfSTXExecutable construct:'../../..') pathName. |
143 Smalltalk packagePath removeAll; add:(pathOfSTXExecutable construct:'../../..') pathName. |
141 'smalltalk.rc [info]: setting packagePath for local operation' printCR. |
144 'smalltalk.rc [info]: setting packagePath for local operation' infoPrintCR. |
142 ]. |
145 ]. |
143 |
146 |
144 "/ |
147 "/ |
145 "/ any additional local packages ?. |
148 "/ any additional local packages ?. |
146 "/ |
149 "/ |