equal
deleted
inserted
replaced
62 |
62 |
63 defaultFullDirs |
63 defaultFullDirs |
64 |dirs| |
64 |dirs| |
65 |
65 |
66 dirs := OrderedCollection new. |
66 dirs := OrderedCollection new. |
67 dirs add:(Filename homeDirectory constructString:'stxDevelop'). |
67 |
68 dirs add:((Filename homeDirectory construct:'stx') constructString:'develop'). |
68 dirs add:((Filename homeDirectory constructString:'stxDevelop')). |
69 ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[ |
69 dirs add:((Filename homeDirectory constructString:'develop')). |
70 dirs add:'/home/stx/develop'. |
70 dirs add:((Filename homeDirectory constructString:'work')). |
71 ]. |
71 |
|
72 "/ ('/home' asFilename exists |
|
73 "/ and:['/home' asFilename isDirectory]) ifTrue:[ |
|
74 "/ dirs add:'/home/work'. |
|
75 "/ ]. |
72 |
76 |
73 ^ dirs "sort" |
77 ^ dirs "sort" |
74 |
78 |
75 "Modified: / 18.7.1996 / 19:45:08 / cg" |
79 "Modified: / 18.7.1996 / 19:45:08 / cg" |
76 "Created: / 25.2.1998 / 17:14:43 / cg" |
80 "Created: / 25.2.1998 / 17:14:43 / cg" |
434 topDir := '..\..'. |
438 topDir := '..\..'. |
435 topDirPrefix := '..\..\'. |
439 topDirPrefix := '..\..\'. |
436 ]. |
440 ]. |
437 |
441 |
438 installWhat == #full ifTrue:[ |
442 installWhat == #full ifTrue:[ |
|
443 "/ MUST be under stx (for packagePath stuff) |
|
444 fullDir := fullDir asFilename constructString:'stx'. |
|
445 |
439 msg at:4 put:(' all from CD' asText allBold). |
446 msg at:4 put:(' all from CD' asText allBold). |
440 msg at:6 put:' ' , (fullDir asText allBold). |
447 msg at:6 put:' ' , (fullDir asText allBold). |
441 actionTextHolder value:nil. |
448 actionTextHolder value:nil. |
442 actionTextHolder value:msg. |
449 actionTextHolder value:msg. |
443 |
450 |
1009 |
1016 |
1010 |d cm l green dark img |
1017 |d cm l green dark img |
1011 fullDirHolder| |
1018 fullDirHolder| |
1012 |
1019 |
1013 LastFullDir isNil ifTrue:[ |
1020 LastFullDir isNil ifTrue:[ |
1014 LastFullDir := (Filename homeDirectory |
1021 LastFullDir := (Filename homeDirectory construct:'work') constructString:'stx' |
1015 construct:'stx') |
|
1016 constructString:'develop' |
|
1017 ]. |
1022 ]. |
1018 |
1023 |
1019 fullDirHolder := LastFullDir asValue. |
1024 fullDirHolder := LastFullDir asValue. |
1020 |
1025 |
1021 Screen current hasColors ifTrue:[ |
1026 Screen current hasColors ifTrue:[ |