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: ' infoPrint. Smalltalk systemPath infoPrintCR. |
102 "/ 'systemPath before: ' infoPrint. Smalltalk systemPath infoPrintCR. |
103 'exec: ' infoPrint. OperatingSystem nameOfSTXExecutable infoPrintCR. |
103 "/ 'exec: ' infoPrint. OperatingSystem nameOfSTXExecutable infoPrintCR. |
104 'execPath: ' infoPrint. OperatingSystem pathOfSTXExecutable infoPrintCR. |
104 "/ 'execPath: ' infoPrint. OperatingSystem pathOfSTXExecutable infoPrintCR. |
105 |
105 |
106 pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable asFilename directory. |
106 pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable asFilename directory. |
107 |
107 |
108 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[ |
108 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[ |
109 Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:) |
109 Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:) |