*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 13 Nov 2000 12:19:08 +0100
changeset 2838 141a4b203b92
parent 2837 c63db8796990
child 2839 a9e69d353cb8
*** empty log message ***
AbstractLauncherApplication.st
ChangesBrowser.st
--- a/AbstractLauncherApplication.st	Sat Nov 11 18:24:50 2000 +0100
+++ b/AbstractLauncherApplication.st	Mon Nov 13 12:19:08 2000 +0100
@@ -2897,7 +2897,7 @@
                 Transcript showCR:'change language to ' , newLanguage , ' ...'.
                 Smalltalk language:language asSymbol.
                 Smalltalk languageTerritory:territory asSymbol.
-                ResourcePack flushCachedResourcePacks
+                "/ ResourcePack flushCachedResourcePacks - already done by language-change
             ].
         ].
         switch ifTrue:[
@@ -3779,7 +3779,8 @@
      Transcript topView application saveSettings
     "
 
-    "Modified: / 6.1.1999 / 14:24:16 / cg"!
+    "Modified: / 6.1.1999 / 14:24:16 / cg"
+!
 
 sourceAndDebuggerSettingsFor:requestor
     "open a dialog on source&debugger other settings"
@@ -5393,7 +5394,8 @@
             maxLengthForSingleLineBlocks:maxLengthForSingleLineBlocks value.
     ] ifFalse: [
         (UserPreferences reset; current) declareAllFrom: oldUserPreferences
-    ].!
+    ].
+!
 
 syntaxColorConfigurationDialogFor:requestor
     |box frame exampleView y
@@ -5776,5 +5778,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.132 2000-11-08 16:05:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.133 2000-11-13 11:19:08 cg Exp $'
 ! !
--- a/ChangesBrowser.st	Sat Nov 11 18:24:50 2000 +0100
+++ b/ChangesBrowser.st	Mon Nov 13 12:19:08 2000 +0100
@@ -330,30 +330,30 @@
         "/ findNext/prev will search for the same thing again.
         lastSearchType == #selector ifTrue:[
             items := #(
-                              ('search class'                 findClass             #Find         )
+                              ('search class...'              findClass             #Find         )
                               ('next for this class'          findNextForClass                    )
                               ('previous for this class'      findPreviousForClass                )
                               ('-'                                                                )
-                              ('search selector'              findSelector                        )
+                              ('search selector...'           findSelector                        )
                               ('next with this selector'      findNextForSelector     #FindNext   )
                               ('previous with this selector'  findPreviousForSelector #FindPrev   )
                               ('-'                                                                )
-                              ('search string'                findString                        )
+                              ('search string...'             findString                        )
                               ('-'                                                                )
                               ('next snapshot'                findNextSnapshot                    )
                               ('previous snapshot'            findPreviousSnapshot                )
                      ).
         ] ifFalse:[
             items := #(
-                              ('search class'                 findClass             #Find         )
+                              ('search class...'              findClass             #Find         )
                               ('next for this class'          findNextForClass      #FindNext     )
                               ('previous for this class'      findPreviousForClass  #FindPrev     )
                               ('-'                                                                )
-                              ('search selector'              findSelector                        )
+                              ('search selector...'           findSelector                        )
                               ('next with this selector'      findNextForSelector                 )
                               ('previous with this selector'  findPreviousForSelector             )
                               ('-'                                                                )
-                              ('search string'                findString                        )
+                              ('search string...'             findString                        )
                               ('-'                                                                )
                               ('next snapshot'                findNextSnapshot                    )
                               ('previous snapshot'            findPreviousSnapshot                )
@@ -3599,5 +3599,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.205 2000-11-09 22:35:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.206 2000-11-13 11:18:28 cg Exp $'
 ! !