equal
deleted
inserted
replaced
39 "/ Make certain that all relevant files are found along your path - you may see |
39 "/ Make certain that all relevant files are found along your path - you may see |
40 "/ funny viewStyles, colors and stupid strings if wrong. |
40 "/ funny viewStyles, colors and stupid strings if wrong. |
41 "/ |
41 "/ |
42 |
42 |
43 |path| |
43 |path| |
|
44 |
44 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[ |
45 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[ |
45 Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:) |
46 Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:) |
|
47 ] ifFalse:[ |
|
48 "/ look for gnu-smalltalk class files along my PATH. |
|
49 "/ if found, remove that directory from the PATH to avoid |
|
50 "/ autoloading wrong classes. |
|
51 (path := Smalltalk getSystemFileName:'initialize.st') notNil ifTrue:[ |
|
52 path := path asFilename directoryName. |
|
53 ('smalltalk.rc [info]: found gnu-smalltalk sources in ' , path , '; removed from systemPath.') infoPrintCR. |
|
54 Smalltalk systemPath:(Smalltalk systemPath remove:path; yourself). |
|
55 ] |
46 ]. |
56 ]. |
47 ! |
57 ! |
48 |
58 |
49 |args| |
59 |args| |
50 |
60 |