syntax coloring stuff
authorClaus Gittinger <cg@exept.de>
Fri, 09 Nov 2001 13:33:36 +0100
changeset 3385 0f41b06f2366
parent 3384 2be2f7e2a417
child 3386 dd6c25e8adb8
syntax coloring stuff
AbstractLauncherApplication.st
--- 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 $'
 ! !