--- a/AbstractLauncherApplication.st Fri Nov 09 12:29:18 2001 +0100
+++ b/AbstractLauncherApplication.st Fri Nov 09 13:33:36 2001 +0100
@@ -5843,13 +5843,10 @@
b action:[
|resetSelector|
- resetSelector := #(
- #resetSyntaxColors
- #resetSyntaxColorsGreenComments
- #resetSyntaxColorsAllBlackExceptBadIDs
- ) at:resetList selectionIndex.
+ resetSelector := (currentUserPrefs listOfPredefinedSyntaxColoringSchemes
+ collect:[:eachEntry | eachEntry first])
+ at:resetList selectionIndex.
currentUserPrefs perform:resetSelector.
- syntaxColor value:(currentUserPrefs perform:syntaxColorSelector value).
recolorAction value.
].
syntaxColoringResetButton := box addComponent:b.
@@ -5858,12 +5855,8 @@
box yPosition:y.
resetList := SelectionInList
- with:#(
- 'default'
- 'default, but green comments'
- 'no colors, but highlight errors'
- "/ add more here ...
- )
+ with:(currentUserPrefs listOfPredefinedSyntaxColoringSchemes
+ collect:[:eachEntry | eachEntry second])
initialSelection:1.
resetListBox := box addComboListOn:resetList.
box makeTabable:resetListBox.
@@ -6303,5 +6296,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.173 2001-11-07 09:59:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.174 2001-11-09 12:33:36 cg Exp $'
! !