equal
deleted
inserted
replaced
4094 languageList := translatedLanguages with:flags collect:[:lang :flag | LabelAndIcon icon:flag string:lang.]. |
4094 languageList := translatedLanguages with:flags collect:[:lang :flag | LabelAndIcon icon:flag string:lang.]. |
4095 |
4095 |
4096 box := ListSelectionBox title:(resources at:'LANG_MSG' default:'Select a Language') withCRs. |
4096 box := ListSelectionBox title:(resources at:'LANG_MSG' default:'Select a Language') withCRs. |
4097 box label:(resources string:'Language Selection'). |
4097 box label:(resources string:'Language Selection'). |
4098 box list:languageList. |
4098 box list:languageList. |
4099 box initialText:(Language , '-' , LanguageTerritory). |
4099 box initialText:(Smalltalk language , '-' , Smalltalk languageTerritory). |
4100 box action:[:newLanguage | |
4100 box action:[:newLanguage | |
4101 WindowGroup activeGroup withWaitCursorDo:[ |
4101 WindowGroup activeGroup withWaitCursorDo:[ |
4102 |fontPref idx language oldLanguage territory enc |
4102 |fontPref idx language oldLanguage territory enc |
4103 answer matchingFonts l screen| |
4103 answer matchingFonts l screen| |
4104 |
4104 |