equal
deleted
inserted
replaced
228 "/ exit, if rejected. |
228 "/ exit, if rejected. |
229 "/ You may find this annoying - but lawers say: "this is a must ..." ;-) |
229 "/ You may find this annoying - but lawers say: "this is a must ..." ;-) |
230 "/ (it will not be shown when coming up via a snapshot image) |
230 "/ (it will not be shown when coming up via a snapshot image) |
231 "/ |
231 "/ |
232 Smalltalk addStartBlock:[ |
232 Smalltalk addStartBlock:[ |
233 |loader needToReactivate| |
|
234 |
|
235 needToReactivate := HistoryManager isActive. |
|
236 HistoryManager deactivate. |
|
237 |
|
238 LicenceBox autoload. |
233 LicenceBox autoload. |
239 |
|
240 "/ fetch autoloaded classes in the meanwhile ... |
|
241 loader := [ |
|
242 Class withoutUpdatingChangesDo:[ |
|
243 'installing autoloaded classes ...' printCR. |
|
244 Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'. |
|
245 ]. |
|
246 needToReactivate ifTrue:[HistoryManager activate]. |
|
247 ] forkAt:Processor userBackgroundPriority. |
|
248 |
234 |
249 LicenceBox licenceRejectSignal handle:[:ex| |
235 LicenceBox licenceRejectSignal handle:[:ex| |
250 Smalltalk exit |
236 Smalltalk exit |
251 ] do:[ |
237 ] do:[ |
252 LicenceBox open. |
238 LicenceBox open. |
253 Smalltalk at:#LicenceBox put:nil. |
239 Smalltalk at:#LicenceBox put:nil. |
254 ]. |
240 ]. |
255 |
|
256 "/ wait for loader |
|
257 loader waitUntilTerminated. |
|
258 ]. |
241 ]. |
259 |
242 |
260 "/ |
243 "/ |
261 "/ read private (per user) stuff |
244 "/ read private (per user) stuff |
262 "/ |
245 "/ |