1 Object subclass:#STXInstaller |
1 Object subclass:#STXInstaller |
2 instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir installDocFiles |
2 instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir installDocFiles |
3 installSourceFiles installSTCFiles installGoodyFiles fullDir |
3 installSourceFiles installSTCFiles installGoodyFiles fullDir |
4 actionPercentageHolder actionTextHolder commandTraceView |
4 actionPercentageHolder actionTextHolder commandTraceView |
5 resources dfHolder copyProcess installWhat' |
5 resources dfHolder copyProcess installWhat' |
6 classVariableNames:'LastPartialDir LastBinDir LastLibBinDir LastLibDir LastFullDir' |
6 classVariableNames:'LastPartialDir LastFullDir' |
7 poolDictionaries:'' |
7 poolDictionaries:'' |
8 category:'eXept-tools' |
8 category:'eXept-tools' |
9 ! |
9 ! |
10 |
10 |
11 |
11 |
74 |
74 |
75 ^ dirs "sort" |
75 ^ dirs "sort" |
76 |
76 |
77 "Modified: / 18.7.1996 / 19:45:08 / cg" |
77 "Modified: / 18.7.1996 / 19:45:08 / cg" |
78 "Created: / 25.2.1998 / 17:14:43 / cg" |
78 "Created: / 25.2.1998 / 17:14:43 / cg" |
|
79 ! |
|
80 |
|
81 defaultInstDirs |
|
82 |dirs d stxRel| |
|
83 |
|
84 stxRel := self smalltalkRelease. |
|
85 dirs := OrderedCollection new. |
|
86 |
|
87 OperatingSystem isMSWINDOWSlike ifTrue:[ |
|
88 dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel. |
|
89 dirs add:'c:\Programme\SmalltalkX\' , stxRel. |
|
90 dirs add:'c:\SmalltalkX\' , stxRel. |
|
91 ] ifFalse:[ |
|
92 dirs add:'/opt/smalltalk/' , stxRel. |
|
93 dirs add:'/usr/local/smalltalkX'. |
|
94 |
|
95 d := (Filename homeDirectory constructString:'smalltalkX'). |
|
96 (dirs includes:d) ifFalse:[dirs add:d]. |
|
97 d := (Filename homeDirectory constructString:'stx'). |
|
98 (dirs includes:d) ifFalse:[dirs add:d]. |
|
99 d := '/tmp/stx'. |
|
100 (dirs includes:d) ifFalse:[dirs add:d]. |
|
101 ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[ |
|
102 d := '/home/stx'. |
|
103 (dirs includes:d) ifFalse:[dirs add:d]. |
|
104 ]. |
|
105 ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[ |
|
106 d := '/home2/stx'. |
|
107 (dirs includes:d) ifFalse:[dirs add:d]. |
|
108 ]. |
|
109 ]. |
|
110 |
|
111 "/ dirs := dirs select:[:path | |
|
112 "/ |f| |
|
113 "/ |
|
114 "/ f := path asFilename. |
|
115 "/ f exists and:[f isDirectory]]. |
|
116 ^ dirs "sort" |
|
117 |
|
118 "Created: / 18.7.1996 / 19:43:00 / cg" |
|
119 "Modified: / 31.5.1999 / 18:32:17 / cg" |
79 ! |
120 ! |
80 |
121 |
81 defaultLibBinDirs |
122 defaultLibBinDirs |
82 |dirs stxRel| |
123 |dirs stxRel| |
83 |
124 |
976 installDocHolder installSourceHolder installSTCHolder installGoodiesHolder |
1017 installDocHolder installSourceHolder installSTCHolder installGoodiesHolder |
977 binMegabytes libMegabytes docMegabytes stcMegabytes srcMegabytes |
1018 binMegabytes libMegabytes docMegabytes stcMegabytes srcMegabytes |
978 goodyMegabytes stxRel list stxInstDir |
1019 goodyMegabytes stxRel list stxInstDir |
979 | |
1020 | |
980 |
1021 |
981 binMegabytes := 12. |
1022 binMegabytes := 20. |
982 libMegabytes := 30. |
1023 libMegabytes := 30. |
983 docMegabytes := 15. |
1024 docMegabytes := 12. |
984 stcMegabytes := 2. |
1025 stcMegabytes := 2. |
985 srcMegabytes := 25. |
1026 srcMegabytes := 20. |
986 goodyMegabytes := 2. |
1027 goodyMegabytes := 10. |
987 |
1028 |
988 stxRel := self smalltalkRelease. |
1029 stxRel := self smalltalkRelease. |
989 |
1030 |
990 OperatingSystem isMSWINDOWSlike ifTrue:[ |
1031 OperatingSystem isMSWINDOWSlike ifTrue:[ |
991 LastPartialDir isNil ifTrue:[ |
1032 LastPartialDir isNil ifTrue:[ |
992 LastPartialDir := 'c:\Programme\SmalltalkX\' , stxRel |
1033 LastPartialDir := 'c:\Programme\eXept\SmalltalkX\' , stxRel |
993 ]. |
1034 ]. |
994 "/ LastLibDir isNil ifTrue:[ |
1035 "/ LastLibDir isNil ifTrue:[ |
995 "/ LastLibDir := 'c:\Programme\SmalltalkX\' , stxRel , '\lib' |
1036 "/ LastLibDir := 'c:\Programme\SmalltalkX\' , stxRel , '\lib' |
996 "/ ]. |
1037 "/ ]. |
997 "/ LastLibBinDir isNil ifTrue:[ |
1038 "/ LastLibBinDir isNil ifTrue:[ |
1053 |
1094 |
1054 l := d addTextLabel:(resources string:'(the default below is recommended)'). |
1095 l := d addTextLabel:(resources string:'(the default below is recommended)'). |
1055 l adjust:#right; backgroundColor:dark; foregroundColor:Color white. |
1096 l adjust:#right; backgroundColor:dark; foregroundColor:Color white. |
1056 |
1097 |
1057 cm := ComboBoxView on:stxInstDirHolder. |
1098 cm := ComboBoxView on:stxInstDirHolder. |
1058 list := self defaultBinDirs collect:[:line | |
1099 list := self defaultInstDirs collect:[:line | |
1059 line replChar:$\ withString:'\\' |
1100 line replChar:$\ withString:'\\' |
1060 ]. |
1101 ]. |
1061 cm list:list. |
1102 cm list:list. |
1062 d |
1103 d |
1063 addLabelledField:cm |
1104 addLabelledField:cm |