--- 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 $'
! !