equal
deleted
inserted
replaced
25 |
25 |
26 dirs := OrderedCollection new. |
26 dirs := OrderedCollection new. |
27 dirs add:'/usr/local/bin'. |
27 dirs add:'/usr/local/bin'. |
28 dirs add:'/usr/bin'. |
28 dirs add:'/usr/bin'. |
29 dirs add:(Filename homeDirectory constructString:'bin'). |
29 dirs add:(Filename homeDirectory constructString:'bin'). |
|
30 dirs add:((Filename homeDirectory |
|
31 construct:'stx') |
|
32 constructString:'bin'). |
30 dirs add:'/tmp/stxbin'. |
33 dirs add:'/tmp/stxbin'. |
31 ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[ |
34 ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[ |
32 dirs add:'/home/stx/bin'. |
35 dirs add:'/home/stx/bin'. |
33 ]. |
36 ]. |
34 ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[ |
37 ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[ |
53 dirs add:'/usr/local/lib/smalltalk'. |
56 dirs add:'/usr/local/lib/smalltalk'. |
54 dirs add:'/usr/lib/smalltalk'. |
57 dirs add:'/usr/lib/smalltalk'. |
55 dirs add:((Filename homeDirectory |
58 dirs add:((Filename homeDirectory |
56 construct:'lib') |
59 construct:'lib') |
57 constructString:'smalltalk'). |
60 constructString:'smalltalk'). |
|
61 dirs add:(((Filename homeDirectory |
|
62 construct:'stx') |
|
63 construct:'lib') |
|
64 constructString:'smalltalk'). |
58 dirs add:'/tmp/stxlib'. |
65 dirs add:'/tmp/stxlib'. |
59 dirs add:'/home/stx/lib'. |
66 dirs add:'/home/stx/lib'. |
60 dirs add:'/home2/stx/lib'. |
67 dirs add:'/home2/stx/lib'. |
61 |
68 |
62 "/ dirs := dirs select:[:path | |
69 "/ dirs := dirs select:[:path | |