--- a/AbstractLauncherApplication.st	Wed Nov 15 13:36:09 2000 +0100
+++ b/AbstractLauncherApplication.st	Wed Nov 15 13:36:59 2000 +0100
@@ -121,7 +121,8 @@
 !AbstractLauncherApplication class methodsFor:'queries'!
 
 isVisualStartable
-    "return true, if this application can be started via #open"
+    "return true, if this application can be started via #open.
+     (to allow start of a change browser via double-click in the browser)"
 
     "/ assume all my subclasses can
     ^ self ~~ AbstractLauncherApplication
@@ -2795,6 +2796,7 @@
     "
      get list of supported languages from the launchers resources ...
     "
+
     listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
     listOfLanguages := listOfLanguages asOrderedCollection.
 
@@ -2814,11 +2816,18 @@
                                             nil
                                         ]
                                 ].
-    flags := flags collect:[:nm | nm notNil ifTrue:[Image fromFile:nm] ifFalse:[nil]].
-
-    languageList := translatedLanguages with:flags collect:[:lang :flag |
-                                LabelAndIcon icon:flag string:lang.
-                        ].
+    flags := flags collect:[:nm | |img d| nm notNil ifTrue:[
+                                            img := Image fromFile:nm.
+                                            img isNil ifTrue:[
+                                                d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
+                                                img := Image fromFile:(d construct:nm).
+                                            ].
+                                        ] ifFalse:[
+                                            nil
+                                        ]
+                           ].
+    listOfLanguages := listOfLanguages collect:[:nm | nm copyFrom:'LANG_' size + 1].
+    languageList := translatedLanguages with:flags collect:[:lang :flag | LabelAndIcon icon:flag string:lang.].
 
     box := ListSelectionBox title:(resources at:'LANG_MSG' default:'select a language') withCRs.
     box label:(resources string:'Language selection').
@@ -5778,5 +5787,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.133 2000-11-13 11:19:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.134 2000-11-15 12:36:59 cg Exp $'
 ! !