--- a/Launcher.st Wed Feb 28 15:43:10 1996 +0100
+++ b/Launcher.st Wed Feb 28 20:30:32 1996 +0100
@@ -916,11 +916,9 @@
|listOfLanguages translatedLanguages idx language box|
"
- hardwiring here is stupid - need a resource file
- which lists languagenames which have all texts available
- in resource files ...
+ get list of supported languages from the launchers resources ...
"
- listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES'.
+ listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
translatedLanguages := resources array:listOfLanguages.
box := ListSelectionBox title:(resources string:'LANG_MSG') withCRs.
@@ -928,24 +926,24 @@
box list:translatedLanguages.
box initialText:(Language).
box action:[:newLanguage |
- self withWaitCursorDo:[
- Transcript showCr:'change language to ' , newLanguage , ' ...'.
- idx := translatedLanguages indexOf:newLanguage withoutSeparators.
- idx ~~ 0 ifTrue:[
- language := listOfLanguages at:idx
- ] ifFalse:[
- language := newLanguage
- ].
- Smalltalk at:#Language put:language asSymbol.
- Smalltalk changed:#Language.
- ResourcePack flushCachedResourcePacks
- ].
- self reopenLauncher.
+ self withWaitCursorDo:[
+ Transcript showCr:'change language to ' , newLanguage , ' ...'.
+ idx := translatedLanguages indexOf:newLanguage withoutSeparators.
+ idx ~~ 0 ifTrue:[
+ language := listOfLanguages at:idx
+ ] ifFalse:[
+ language := newLanguage
+ ].
+ Smalltalk at:#Language put:language asSymbol.
+ Smalltalk changed:#Language.
+ ResourcePack flushCachedResourcePacks
+ ].
+ self reopenLauncher.
].
box showAtPointer.
box destroy
- "Modified: 12.12.1995 / 17:53:52 / cg"
+ "Modified: 28.2.1996 / 20:08:33 / cg"
!
memorySettings
@@ -2341,5 +2339,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.93 1996-02-27 01:08:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.94 1996-02-28 19:30:32 cg Exp $'
! !