equal
deleted
inserted
replaced
23 dirs := OrderedCollection new. |
23 dirs := OrderedCollection new. |
24 dirs add:'/usr/local/bin'. |
24 dirs add:'/usr/local/bin'. |
25 dirs add:'/usr/bin'. |
25 dirs add:'/usr/bin'. |
26 dirs add:(Filename homeDirectory constructString:'bin'). |
26 dirs add:(Filename homeDirectory constructString:'bin'). |
27 dirs add:'/tmp/stxbin'. |
27 dirs add:'/tmp/stxbin'. |
28 dirs add:'/home/stx/bin'. |
28 ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[ |
29 dirs add:'/home2/stx/bin'. |
29 dirs add:'/home/stx/bin'. |
30 ^ dirs |
30 ]. |
|
31 ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[ |
|
32 dirs add:'/home2/stx/bin'. |
|
33 ]. |
|
34 |
|
35 "/ dirs := dirs select:[:path | |
|
36 "/ |f| |
|
37 "/ |
|
38 "/ f := path asFilename. |
|
39 "/ f exists and:[f isDirectory]]. |
|
40 ^ dirs sort |
31 |
41 |
32 "Created: 18.7.1996 / 19:43:00 / cg" |
42 "Created: 18.7.1996 / 19:43:00 / cg" |
33 "Modified: 18.7.1996 / 19:45:08 / cg" |
43 "Modified: 18.7.1996 / 19:45:08 / cg" |
34 ! |
44 ! |
35 |
45 |
43 construct:'lib') |
53 construct:'lib') |
44 constructString:'smalltalk'). |
54 constructString:'smalltalk'). |
45 dirs add:'/tmp/stxlib'. |
55 dirs add:'/tmp/stxlib'. |
46 dirs add:'/home/stx/lib'. |
56 dirs add:'/home/stx/lib'. |
47 dirs add:'/home2/stx/lib'. |
57 dirs add:'/home2/stx/lib'. |
48 ^ dirs |
58 |
|
59 "/ dirs := dirs select:[:path | |
|
60 "/ |f| |
|
61 "/ |
|
62 "/ f := path asFilename. |
|
63 "/ f exists and:[f isDirectory]]. |
|
64 ^ dirs sort |
49 |
65 |
50 "Created: 18.7.1996 / 19:43:21 / cg" |
66 "Created: 18.7.1996 / 19:43:21 / cg" |
51 "Modified: 18.7.1996 / 19:46:04 / cg" |
67 "Modified: 18.7.1996 / 19:46:04 / cg" |
52 ! ! |
68 ! ! |
53 |
69 |