equal
deleted
inserted
replaced
327 ]. |
327 ]. |
328 HeadlessOperation isNil ifTrue:[ |
328 HeadlessOperation isNil ifTrue:[ |
329 HeadlessOperation := false. |
329 HeadlessOperation := false. |
330 ]. |
330 ]. |
331 |
331 |
332 Language := OperatingSystem getLanguage. |
|
333 LanguageTerritory := OperatingSystem getLanguageTerritory. |
|
334 |
|
335 |
|
336 |
|
337 |
|
338 " |
332 " |
339 Smalltalk initGlobalsFromEnvironment |
333 Smalltalk initGlobalsFromEnvironment |
340 " |
334 " |
341 |
335 |
342 "Modified: / 14-02-2012 / 15:25:08 / cg" |
336 "Modified: / 14-02-2012 / 15:25:08 / cg" |
343 "Modified: / 21-11-2017 / 12:15:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
337 "Modified: / 21-11-2017 / 21:29:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
344 ! |
338 ! |
345 |
339 |
346 initInterrupts |
340 initInterrupts |
347 "initialize interrupts" |
341 "initialize interrupts" |
348 |
342 |
5435 |
5429 |
5436 "Modified: / 20-11-2017 / 14:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5430 "Modified: / 20-11-2017 / 14:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5437 ! |
5431 ! |
5438 |
5432 |
5439 setLanguage:aLanguageSymbol territory:aTerritorySymbol |
5433 setLanguage:aLanguageSymbol territory:aTerritorySymbol |
5440 "set the language & territory - no change notification" |
5434 <resource: #obsolete> |
5441 |
5435 self obsoleteFeatureWarning. |
5442 Language := aLanguageSymbol asSymbol. |
5436 |
5443 LanguageTerritory := aTerritorySymbol asSymbol. |
5437 "Modified (format): / 28-11-2017 / 00:03:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5444 ! ! |
5438 ! ! |
5445 |
5439 |
5446 !Smalltalk class methodsFor:'system management'! |
5440 !Smalltalk class methodsFor:'system management'! |
5447 |
5441 |
5448 compressSources |
5442 compressSources |