author | Jan Vrany <jan.vrany@labware.com> |
Thu, 06 Aug 2020 09:33:44 +0100 | |
branch | jv |
changeset 1626 | 62ac134d4f7f |
parent 1486 | f2eb1c4525e3 |
permissions | -rw-r--r-- |
4 | 1 |
"* |
609 | 2 |
* Encoding: iso8859-1 |
3 |
* |
|
4 | 4 |
* $Header$ |
5 |
* |
|
399 | 6 |
* MIMEType: application/x-smalltalk-source |
7 |
* |
|
209 | 8 |
* ST/X startup configuration & command file: |
9 |
* |
|
4 | 10 |
* sample private.rc - file |
11 |
* |
|
52 | 12 |
* a copy of this file can (should) reside in $home/.smalltalk/private.rc or |
13 |
* in the current directory - put all private preferences in here. |
|
41 | 14 |
* |
15 |
* |
|
25 | 16 |
* notice, you will find some things enclosed in |
464 | 17 |
* ... thisIsMySystem ifTrue:[ |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
18 |
* ... claus ifTrue:[ |
607 | 19 |
* |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
20 |
* these are my personal preferences which will be |
25 | 21 |
* ignored in your environment, but are taken in mine. |
22 |
* That way, I dont have to maintain two different 'private.rc' files. |
|
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
23 |
* (you may want to have a look into it - some is of general interest) |
4 | 24 |
*" |
25 |
||
25 | 26 |
"/ |
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
27 |
"/ define the language (you can also set the LANG-shell variable) |
1079 | 28 |
"/ (currently #en, #de, #es and some #fr and #it are supported). |
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
29 |
"/ some fragments for other languages (japanese ;-) exist. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
30 |
"/ Setting it here will override the LANG variable setting, |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
31 |
"/ if neither set here nor in LANG, #english is the default. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
32 |
"/ see (and enhance) the resource files |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
33 |
"/ |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
34 |
"/ Smalltalk language:#de. |
607 | 35 |
"/ Smalltalk language:#en. |
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
36 |
|
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
483
diff
changeset
|
37 |
"/ |
198
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
38 |
"/ you may limit the amount of memory allocated to |
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
39 |
"/ dynamic compiled code ... |
607 | 40 |
"/ The default is unlimited; |
204 | 41 |
"/ If you run in a multiuser environment, or |
42 |
"/ short on swapSpace, a good limit is some 0.5 to 1Mb. |
|
198
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
43 |
"/ |
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
44 |
|
318 | 45 |
"/ ObjectMemory dynamicCodeLimit:500000. |
167 | 46 |
|
47 |
"/ |
|
318 | 48 |
"/ If local sources should have preference over source code management |
49 |
"/ (only useful, if you have the full version (including sourceCode mgmnt), |
|
50 |
"/ and CVS access is slow. |
|
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
51 |
"/ |
318 | 52 |
"/ Class tryLocalSourceFirst:true. |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
53 |
|
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
54 |
"/ |
25 | 55 |
"/ this turns off error/fatal messages from the VM |
56 |
"/ (it does not really make sense to turn them off) |
|
57 |
"/ |
|
58 |
"/ Smalltalk debugPrinting:false. |
|
59 |
||
60 |
"/ |
|
61 |
"/ set the package for fileIns done below |
|
62 |
"/ |
|
24 | 63 |
Project notNil ifTrue:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
64 |
|p| |
445
63ae447a1510
project setting during initial fileIns
Claus Gittinger <cg@exept.de>
parents:
444
diff
changeset
|
65 |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
66 |
p := Project new. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
67 |
p package:#'goody-fileIn'. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
68 |
Project current:p. |
24 | 69 |
]. |
70 |
! |
|
71 |
||
331
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
326
diff
changeset
|
72 |
|whoAmI domain thisIsMySystem thisIsExeptsDomain conf systemType incDir includes| |
91 | 73 |
|
279
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
74 |
whoAmI := OperatingSystem getLoginName. |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
75 |
domain := OperatingSystem getDomainName. |
331
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
326
diff
changeset
|
76 |
thisIsExeptsDomain := (domain = 'exept.de'). |
464 | 77 |
thisIsMySystem := (whoAmI = 'cg') and:[thisIsExeptsDomain]. |
279
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
78 |
|
152 | 79 |
thisIsMySystem ifTrue:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
80 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
81 |
"/ I want the hostname to be prepended to a windows label |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
82 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
83 |
StandardSystemView includeHostNameInLabel:true. |
318 | 84 |
]. |
249 | 85 |
|
318 | 86 |
thisIsMySystem ifTrue:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
87 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
88 |
"/ I prefer a smaller menu font |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
89 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
90 |
"/ MenuView defaultFont:(MenuView defaultFont size:10). |
318 | 91 |
]. |
161 | 92 |
|
672 | 93 |
"/ add my private directories to the systemPath ... |
318 | 94 |
"/ This does not make sense in your environment. |
95 |
"/ However, I leave the code here to show how its done. |
|
96 |
"/ |
|
97 |
thisIsMySystem ifTrue:[ |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
98 |
#( |
660 | 99 |
"/ '../../not_delivered' |
100 |
"/ '../../private_classes' |
|
101 |
"/ '../../fileIn/not_delivered' |
|
102 |
"/ '../../libpro' |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
103 |
) do:[:p | |
318 | 104 |
p asFilename exists ifTrue:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
105 |
(Smalltalk systemPath includes:(p asFilename pathName)) ifFalse:[ |
670 | 106 |
Smalltalk systemPath addFirst:(p asFilename pathName). |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
107 |
] |
318 | 108 |
] |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
109 |
]. |
318 | 110 |
]. |
111 |
||
25 | 112 |
"/ since smalltalk keeps track of which directories exist |
113 |
"/ in the path, this cache has to be flushed whenever new directories |
|
217 | 114 |
"/ are added to the system path: |
25 | 115 |
"/ |
24 | 116 |
Smalltalk flushPathCaches. |
16 | 117 |
|
25 | 118 |
"/ |
119 |
"/ color allocation strategy: |
|
120 |
"/ |
|
121 |
"/ the default is to allocate from the colormap as required. |
|
122 |
"/ As long as the number of distinct colors used is less than the number |
|
123 |
"/ of available colors (which is usually the case) this leads to better looking |
|
124 |
"/ images. |
|
125 |
"/ However, if many images are to be displayed simulatiously, images displayed |
|
126 |
"/ first may steal too many colors required in images displayed later. |
|
127 |
"/ In this case, it is better to preallocate some colors, and dither all images |
|
128 |
"/ using theese. Of course, while making the worst case better, this makes |
|
129 |
"/ the best case worse. You can decide ... |
|
1074 | 130 |
"/ Display depth == 8 ifTrue:[ |
131 |
"/ Color getColors6x6x4. |
|
132 |
"/ ] |
|
10 | 133 |
|
25 | 134 |
"/ claus: |
26 | 135 |
"/ The history manager automatically adds a history line to changed |
136 |
"/ methods and optionally to a classes history method. |
|
217 | 137 |
"/ if you dont like this, comment the following lines. |
26 | 138 |
"/ |
331
a0be330a1f43
moved compiler setup into host-specific file.
Claus Gittinger <cg@exept.de>
parents:
326
diff
changeset
|
139 |
thisIsExeptsDomain ifTrue:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
140 |
HistoryManager notNil ifTrue:[ |
656 | 141 |
'private.rc [info]: activating HistoryManager...' infoPrintCR. |
26 | 142 |
HistoryManager activate. |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
143 |
] |
7 | 144 |
]. |
41 | 145 |
|
146 |
"/ claus: |
|
180 | 147 |
"/ I startup the rdoit server process; |
148 |
"/ (using rdoit to start ST/X views via window manager menus ...) |
|
217 | 149 |
"/ If you like (and want) this to be also started automatically, |
150 |
"/ replace the if- by 'true ifTrue:...' or remove the if. |
|
180 | 151 |
"/ |
204 | 152 |
" |
180 | 153 |
thisIsMySystem ifTrue:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
154 |
'private.rc [info]: starting RDoItServer...' infoPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
155 |
Autoload autoloadFailedSignal handle:[:ex | |
199 | 156 |
'private.rc [warning]: cannot load RDoItServer' errorPrintCR |
204 | 157 |
ex return |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
158 |
] do:[ |
204 | 159 |
RDoItServer autoload. |
160 |
RDoItServer start. |
|
161 |
RDoItServer allowHost:'localhost'. |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
162 |
] |
180 | 163 |
]. |
204 | 164 |
" |
180 | 165 |
|
166 |
"/ claus: |
|
41 | 167 |
"/ I dont want those warnings about stx features being non-portable ... |
168 |
"/ However, you should (at least when new to the system) see them. |
|
169 |
"/ Once you get bored about them, make the below unconditional. |
|
152 | 170 |
"/ (you can also turn them off in the Launchers settings menu ...) |
41 | 171 |
"/ |
607 | 172 |
Compiler warnPossibleIncompatibilities:false. |
236 | 173 |
Compiler warnSTXSpecials:false. |
607 | 174 |
Compiler allowUnderscoreInIdentifier:true. |
175 |
Compiler warnUnderscoreInIdentifier:false. |
|
25 | 176 |
|
166 | 177 |
|
25 | 178 |
"/ set the package back to some useful default for programming |
179 |
"/ this is the package token assigned (by default) to all new methods/classes |
|
180 |
"/ (so you can use a browser on package=#private to find all of your new |
|
181 |
"/ stuff easily. (the conditional on Project being nonNil is for stripped down |
|
182 |
"/ systems without a Project class) |
|
183 |
||
184 |
Project notNil ifTrue:[ |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
185 |
Project setDefaultProject. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
186 |
"/ Project current package:#'private'. |
25 | 187 |
]. |
8 | 188 |
! |
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
189 |
|
1082 | 190 |
'MyWorkspace.wsp' asFilename exists ifFalse:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
191 |
'MyWorkspaceSample.wsp' asFilename exists ifTrue:[ |
1082 | 192 |
'MyWorkspaceSample.wsp' asFilename copyTo:'MyWorkspace.wsp' |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
193 |
] |
1082 | 194 |
]. |
195 |
||
386
5be25f341b4f
use new version diff browser by default
Claus Gittinger <cg@exept.de>
parents:
361
diff
changeset
|
196 |
"/ |
5be25f341b4f
use new version diff browser by default
Claus Gittinger <cg@exept.de>
parents:
361
diff
changeset
|
197 |
"/ any personal file (p_<username>.rc) ? |
5be25f341b4f
use new version diff browser by default
Claus Gittinger <cg@exept.de>
parents:
361
diff
changeset
|
198 |
"/ |
307 | 199 |
Smalltalk fileIn:('p_' , OperatingSystem getLoginName , '.rc'). |
306 | 200 |
|
126 | 201 |
(Smalltalk commandLine includes:'-q') ifFalse:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
202 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
203 |
"/ Object infoPrinting: |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
204 |
"/ this turns off/on information messages from classes |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
205 |
"/ (such as 'D8IMAGE: allocating colors ...' |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
206 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
207 |
"/ ObjectMemory infoPrinting |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
208 |
"/ this turns off/on information messages from the VM |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
209 |
"/ (such as 'MEM: chitty chatty ...' |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
210 |
"/ |
1074 | 211 |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
212 |
"/ Object infoPrinting:false. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
213 |
"/ ObjectMemory infoPrinting:false. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
214 |
OperatingSystem hasConsole ifTrue:[ |
462 | 215 |
Object infoPrinting:true. |
216 |
ObjectMemory infoPrinting:true. |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
217 |
] |
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
218 |
]. |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
219 |
|
326 | 220 |
"/ |
221 |
"/ startBlocks will be evaluated after the thread-scheduler have been started |
|
222 |
"/ and the displays event dispatcher is running. |
|
223 |
"/ |
|
678 | 224 |
Smalltalk isPlugin ifFalse:[ |
1275 | 225 |
|idx file| |
226 |
||
672 | 227 |
Smalltalk addStartBlock:[ |
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
228 |
Display isNil ifTrue:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
229 |
'' errorPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
230 |
'Textmode (enter smalltalk expressions terminated by single exclamation mark;' errorPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
231 |
OperatingSystem isUNIXlike ifTrue:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
232 |
' CTRL-D to leave line-by-line interpreter.)' errorPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
233 |
] ifFalse:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
234 |
' CTRL-Z to leave line-by-line interpreter.)' errorPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
235 |
]. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
236 |
Smalltalk readEvalPrintLoop. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
237 |
Smalltalk exit. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
238 |
] ifFalse:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
239 |
|i fn| |
1485
bde224d85196
Cleanup: moved code to accept license to `SmalltalkStartup`
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1307
diff
changeset
|
240 |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
241 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
242 |
"/ start some views ... |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
243 |
"/ you can add all stuff you'd like to come up by default |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
244 |
"/ the first time. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
245 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
246 |
|
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
247 |
'private.rc [info]: starting Launcher...' infoPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
248 |
NewLauncher open. |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
249 |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
250 |
((Smalltalk commandLineArguments includes:'--quick') |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
251 |
or:[(Smalltalk commandLineArguments includes:'--faststart') |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
252 |
or:[(Smalltalk commandLineArguments includes:'--fastStart')]]) |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
253 |
ifFalse:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
254 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
255 |
"/ disable this if you don't like the other window to come up |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
256 |
"/ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
257 |
'private.rc [info]: starting SystemWorkspace...' infoPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
258 |
WorkspaceApplication openSystemWorkspace. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
259 |
]. |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
260 |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
261 |
UserPreferences current showTipOfTheDayAtStartup ifTrue:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
262 |
'private.rc [info]: starting DidYouKnow...' infoPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
263 |
DidYouKnowTipViewer open |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
264 |
]. |
672 | 265 |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
266 |
UserPreferences current flyByHelpActive ifTrue:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
267 |
FlyByHelp start |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
268 |
]. |
1224 | 269 |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
270 |
"/ an additional --run <file> argument... |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
271 |
(i := Smalltalk commandLineArguments indexOf:'--run') ~~ 0 ifTrue:[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
272 |
fn := Smalltalk commandLineArguments at:i+1. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
273 |
('private.rc [info]: executing "',fn,'"...') infoPrintCR. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
274 |
Smalltalk fileIn:fn. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
275 |
] |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
276 |
]. |
672 | 277 |
]. |
1275 | 278 |
|
279 |
idx := Smalltalk commandLineArguments indexOf:'--edit'. |
|
280 |
idx ~~ 0 ifTrue:[ |
|
1486
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
281 |
file := Smalltalk commandLineArguments at:idx+1. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
282 |
Smalltalk commandLineArguments removeAtIndex:idx+1; removeAtIndex:idx. |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
283 |
Smalltalk addStartBlock: |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
284 |
[ |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
285 |
(UserPreferences current changeSetBrowserClass) |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
286 |
openOnFile:file asFilename |
f2eb1c4525e3
Cleanup: start REPL after all other startup processing
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1485
diff
changeset
|
287 |
]. |
1275 | 288 |
]. |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
289 |
]. |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
290 |
|
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
291 |
! |
1306 | 292 |