Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UserPreferences.st
changeset 3360 3ca08e2afd68
parent 3359 a474d509302f
child 3361 daabd9bf9c3b 
--- a/UserPreferences.st	Wed Apr 01 13:19:02 1998 +0200
+++ b/UserPreferences.st	Wed Apr 01 13:26:49 1998 +0200
@@ -57,216 +57,23 @@
     "Created: / 31.3.1998 / 13:43:03 / cg"
 ! !
 
-!UserPreferences methodsFor:'accessing'!
-
-argumentIdentifierColor
-    ^ self at:#argumentIdentifierColor ifAbsentPut:[self identifierColor]
-
-    "Created: / 31.3.1998 / 15:08:20 / cg"
-    "Modified: / 31.3.1998 / 19:52:13 / cg"
-!
-
-argumentIdentifierEmphasis
-    ^ self at:#argumentIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
-
-    "Created: / 31.3.1998 / 15:16:40 / cg"
-    "Modified: / 31.3.1998 / 19:52:16 / cg"
-!
-
-booleanConstantColor
-    ^ self at:#booleanConstantColor ifAbsentPut:[self constantColor]
-
-    "Created: / 31.3.1998 / 18:12:06 / cg"
-    "Modified: / 31.3.1998 / 19:52:19 / cg"
-!
-
-booleanConstantEmphasis
-    ^ self at:#booleanConstantEmphasis ifAbsentPut:[self constantEmphasis]
-
-    "Created: / 31.3.1998 / 18:12:46 / cg"
-    "Modified: / 31.3.1998 / 19:52:22 / cg"
-!
-
-commentColor
-    ^ self at:#commentColor ifAbsentPut:[Color blue darkened]
-
-    "Created: / 31.3.1998 / 15:10:23 / cg"
-    "Modified: / 31.3.1998 / 19:51:29 / cg"
-!
-
-commentEmphasis
-    ^ self at:#commentEmphasis ifAbsentPut:#italic
-
-    "Created: / 31.3.1998 / 15:09:59 / cg"
-    "Modified: / 31.3.1998 / 19:52:26 / cg"
-!
-
-constantColor
-    ^ self at:#constantColor ifAbsentPut:[Color red darkened darkened "
-self identifierColor "]
-
-    "Created: / 31.3.1998 / 18:13:15 / cg"
-    "Modified: / 31.3.1998 / 19:51:42 / cg"
-!
-
-constantEmphasis
-    ^ self at:#constantEmphasis ifAbsentPut:[self identifierEmphasis]
-
-    "Created: / 31.3.1998 / 18:13:23 / cg"
-    "Modified: / 31.3.1998 / 19:52:31 / cg"
-!
-
-globalIdentifierColor
-    ^ self at:#globalIdentifierColor ifAbsentPut:[self identifierColor]
-
-    "Created: / 31.3.1998 / 15:18:49 / cg"
-    "Modified: / 31.3.1998 / 19:52:34 / cg"
-!
-
-globalIdentifierEmphasis
-    ^ self at:#globalIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
-
-    "Created: / 31.3.1998 / 15:18:29 / cg"
-    "Modified: / 31.3.1998 / 19:52:36 / cg"
-!
-
-hereColor
-    ^ self at:#hereColor ifAbsentPut:[self identifierColor]
-
-    "Created: / 31.3.1998 / 17:38:09 / cg"
-    "Modified: / 31.3.1998 / 19:52:38 / cg"
-!
-
-hereEmphasis
-    ^ self at:#hereEmphasis ifAbsentPut:[self identifierEmphasis]
-
-    "Created: / 31.3.1998 / 17:35:13 / cg"
-    "Modified: / 31.3.1998 / 19:52:40 / cg"
-!
-
-identifierColor
-    ^ self at:#identifierColor ifAbsentPut:[Color black "green darkened darkened"]
-
-    "Created: / 31.3.1998 / 17:35:55 / cg"
-    "Modified: / 31.3.1998 / 19:51:50 / cg"
-!
-
-identifierEmphasis
-    ^ self at:#identifierEmphasis ifAbsentPut:#normal
-
-    "Created: / 31.3.1998 / 15:09:41 / cg"
-    "Modified: / 31.3.1998 / 19:52:45 / cg"
-!
-
-localIdentifierColor
-    ^ self at:#localIdentifierColor ifAbsentPut:[self identifierColor]
-
-    "Created: / 31.3.1998 / 15:18:07 / cg"
-    "Modified: / 31.3.1998 / 19:52:48 / cg"
-!
-
-localIdentifierEmphasis
-    ^ self at:#localIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
-
-    "Created: / 31.3.1998 / 15:16:56 / cg"
-    "Modified: / 31.3.1998 / 19:52:50 / cg"
-!
-
-methodSelectorColor
-    ^ self at:#methodSelectorColor ifAbsentPut:[Color black]
-
-    "Created: / 31.3.1998 / 15:11:24 / cg"
-    "Modified: / 31.3.1998 / 19:51:57 / cg"
-!
-
-methodSelectorEmphasis
-    ^ self at:#methodSelectorEmphasis ifAbsentPut:#bold
-
-    "Created: / 31.3.1998 / 15:11:16 / cg"
-    "Modified: / 31.3.1998 / 19:52:54 / cg"
-!
-
-selectorColor
-    ^ self at:#selectorColor ifAbsentPut:[Color black]
-
-    "Created: / 31.3.1998 / 15:19:19 / cg"
-    "Modified: / 31.3.1998 / 19:52:02 / cg"
-!
-
-selectorEmphasis
-    ^ self at:#selectorEmphasis ifAbsentPut:#bold
-
-    "Created: / 31.3.1998 / 15:19:09 / cg"
-    "Modified: / 31.3.1998 / 19:52:57 / cg"
-!
-
-selfColor
-    ^ self at:#selfColor ifAbsentPut:[self identifierColor]
-
-    "Created: / 31.3.1998 / 17:35:45 / cg"
-    "Modified: / 31.3.1998 / 19:52:59 / cg"
-!
-
-selfEmphasis
-    ^ self at:#selfEmphasis ifAbsentPut:[self identifierEmphasis]
-
-    "Created: / 31.3.1998 / 17:34:57 / cg"
-    "Modified: / 31.3.1998 / 19:53:03 / cg"
-!
-
-stringColor
-    ^ self at:#stringColor ifAbsentPut:[self constantColor]
-
-    "Created: / 31.3.1998 / 15:19:50 / cg"
-    "Modified: / 31.3.1998 / 19:52:09 / cg"
-!
-
-stringEmphasis
-    ^ self at:#stringEmphasis ifAbsentPut:[self constantEmphasis]
-
-    "Created: / 31.3.1998 / 15:19:09 / cg"
-    "Modified: / 31.3.1998 / 19:53:07 / cg"
-!
-
-superColor
-    ^ self at:#superColor ifAbsentPut:[self identifierColor]
-
-    "Created: / 31.3.1998 / 17:37:56 / cg"
-    "Modified: / 31.3.1998 / 19:53:09 / cg"
-!
-
-superEmphasis
-    ^ self at:#superEmphasis ifAbsentPut:[self identifierEmphasis]
-
-    "Created: / 31.3.1998 / 17:35:08 / cg"
-    "Modified: / 31.3.1998 / 19:53:11 / cg"
-!
-
-symbolColor
-    ^ self at:#symbolColor ifAbsentPut:[self constantColor]
-
-    "Modified: / 31.3.1998 / 19:52:09 / cg"
-    "Created: / 1.4.1998 / 12:57:35 / cg"
-!
-
-symbolEmphasis
-    ^ self at:#symbolEmphasis ifAbsentPut:[self constantEmphasis]
-
-    "Modified: / 31.3.1998 / 19:53:07 / cg"
-    "Created: / 1.4.1998 / 12:57:43 / cg"
-!
+!UserPreferences methodsFor:'accessing - prefs'!
 
 syntaxColoring
+    "return the flag which controls syntax coloring (in the browsers)"
+
     ^ self at:#syntaxColoring ifAbsentPut:false
 
     "
      UserPreferences current syntaxColoring
     "
 
-    "Modified: / 31.3.1998 / 19:53:13 / cg"
+    "Modified: / 1.4.1998 / 13:23:29 / cg"
 !
 
 syntaxColoring:aBoolean
+    "turn on/off syntaxColoring (in the browsers)."
+
     ^ self at:#syntaxColoring put:aBoolean
 
     "
@@ -275,39 +82,333 @@
     "
 
     "Created: / 31.3.1998 / 13:44:00 / cg"
-    "Modified: / 1.4.1998 / 12:18:44 / cg"
+    "Modified: / 1.4.1998 / 13:23:03 / cg"
+! !
+
+!UserPreferences methodsFor:'accessing - syntaxColoring prefs'!
+
+argumentIdentifierColor
+    "the color used for argument identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#argumentIdentifierColor ifAbsentPut:[self identifierColor]
+
+    "Created: / 31.3.1998 / 15:08:20 / cg"
+    "Modified: / 1.4.1998 / 13:19:58 / cg"
+!
+
+argumentIdentifierEmphasis
+    "the emphasis used for argument identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#argumentIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
+
+    "Created: / 31.3.1998 / 15:16:40 / cg"
+    "Modified: / 1.4.1998 / 13:19:55 / cg"
+!
+
+booleanConstantColor
+    "the color used for boolean constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#booleanConstantColor ifAbsentPut:[self constantColor]
+
+    "Created: / 31.3.1998 / 18:12:06 / cg"
+    "Modified: / 1.4.1998 / 13:20:07 / cg"
+!
+
+booleanConstantEmphasis
+    "the emphasis used for boolean constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#booleanConstantEmphasis ifAbsentPut:[self constantEmphasis]
+
+    "Created: / 31.3.1998 / 18:12:46 / cg"
+    "Modified: / 1.4.1998 / 13:26:01 / cg"
+!
+
+commentColor
+    "the color used for comments;
+     If syntaxColoring is turned on."
+
+    ^ self at:#commentColor ifAbsentPut:[Color blue darkened]
+
+    "Created: / 31.3.1998 / 15:10:23 / cg"
+    "Modified: / 1.4.1998 / 13:20:15 / cg"
+!
+
+commentEmphasis
+    "the emphasis used for comments;
+     If syntaxColoring is turned on."
+
+    ^ self at:#commentEmphasis ifAbsentPut:#italic
+
+    "Created: / 31.3.1998 / 15:09:59 / cg"
+    "Modified: / 1.4.1998 / 13:25:53 / cg"
+!
+
+constantColor
+    "the color used for constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#constantColor ifAbsentPut:[Color red darkened darkened]
+
+    "Created: / 31.3.1998 / 18:13:15 / cg"
+    "Modified: / 1.4.1998 / 13:20:37 / cg"
+!
+
+constantEmphasis
+    "the emphasis used for constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#constantEmphasis ifAbsentPut:[self identifierEmphasis]
+
+    "Created: / 31.3.1998 / 18:13:23 / cg"
+    "Modified: / 1.4.1998 / 13:25:43 / cg"
+!
+
+globalIdentifierColor
+    "the color used for global identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#globalIdentifierColor ifAbsentPut:[self identifierColor]
+
+    "Created: / 31.3.1998 / 15:18:49 / cg"
+    "Modified: / 1.4.1998 / 13:20:47 / cg"
+!
+
+globalIdentifierEmphasis
+    "the emphasis used for global variable identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#globalIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
+
+    "Created: / 31.3.1998 / 15:18:29 / cg"
+    "Modified: / 1.4.1998 / 13:25:31 / cg"
+!
+
+hereColor
+    "the color used for the here pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ self at:#hereColor ifAbsentPut:[self identifierColor]
+
+    "Created: / 31.3.1998 / 17:38:09 / cg"
+    "Modified: / 1.4.1998 / 13:20:57 / cg"
+!
+
+hereEmphasis
+    "the emphasis used for the hre special variable;
+     If syntaxColoring is turned on."
+
+    ^ self at:#hereEmphasis ifAbsentPut:[self identifierEmphasis]
+
+    "Created: / 31.3.1998 / 17:35:13 / cg"
+    "Modified: / 1.4.1998 / 13:25:17 / cg"
+!
+
+identifierColor
+    "the color used for other identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#identifierColor ifAbsentPut:[Color black "green darkened darkened"]
+
+    "Created: / 31.3.1998 / 17:35:55 / cg"
+    "Modified: / 1.4.1998 / 13:24:59 / cg"
+!
+
+identifierEmphasis
+    "the emphasis used for other identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#identifierEmphasis ifAbsentPut:#normal
+
+    "Created: / 31.3.1998 / 15:09:41 / cg"
+    "Modified: / 1.4.1998 / 13:25:06 / cg"
+!
+
+localIdentifierColor
+    "the color used for local variable identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#localIdentifierColor ifAbsentPut:[self identifierColor]
+
+    "Created: / 31.3.1998 / 15:18:07 / cg"
+    "Modified: / 1.4.1998 / 13:24:48 / cg"
+!
+
+localIdentifierEmphasis
+    "the emphais used for local variable identifiers;
+     If syntaxColoring is turned on."
+
+    ^ self at:#localIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
+
+    "Created: / 31.3.1998 / 15:16:56 / cg"
+    "Modified: / 1.4.1998 / 13:24:42 / cg"
+!
+
+methodSelectorColor
+    "the color used for a methods selector pattern;
+     If syntaxColoring is turned on."
+
+    ^ self at:#methodSelectorColor ifAbsentPut:[Color black]
+
+    "Created: / 31.3.1998 / 15:11:24 / cg"
+    "Modified: / 1.4.1998 / 13:24:26 / cg"
+!
+
+methodSelectorEmphasis
+    "the emphasis used for a methods selector pattern;
+     If syntaxColoring is turned on."
+
+    ^ self at:#methodSelectorEmphasis ifAbsentPut:#bold
+
+    "Created: / 31.3.1998 / 15:11:16 / cg"
+    "Modified: / 1.4.1998 / 13:24:20 / cg"
+!
+
+selectorColor
+    "the color used for message selectors;
+     If syntaxColoring is turned on."
+
+    ^ self at:#selectorColor ifAbsentPut:[Color black]
+
+    "Created: / 31.3.1998 / 15:19:19 / cg"
+    "Modified: / 1.4.1998 / 13:24:04 / cg"
+!
+
+selectorEmphasis
+    "the emphasis used for message selectors;
+     If syntaxColoring is turned on."
+
+    ^ self at:#selectorEmphasis ifAbsentPut:#bold
+
+    "Created: / 31.3.1998 / 15:19:09 / cg"
+    "Modified: / 1.4.1998 / 13:23:59 / cg"
+!
+
+selfColor
+    "the color used for the self pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ self at:#selfColor ifAbsentPut:[self identifierColor]
+
+    "Created: / 31.3.1998 / 17:35:45 / cg"
+    "Modified: / 1.4.1998 / 13:21:07 / cg"
+!
+
+selfEmphasis
+    "the emphasis used for the self pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ self at:#selfEmphasis ifAbsentPut:[self identifierEmphasis]
+
+    "Created: / 31.3.1998 / 17:34:57 / cg"
+    "Modified: / 1.4.1998 / 13:21:51 / cg"
+!
+
+stringColor
+    "the color used for string constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#stringColor ifAbsentPut:[self constantColor]
+
+    "Created: / 31.3.1998 / 15:19:50 / cg"
+    "Modified: / 1.4.1998 / 13:22:06 / cg"
+!
+
+stringEmphasis
+    "the emphasis used for string constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#stringEmphasis ifAbsentPut:[self constantEmphasis]
+
+    "Created: / 31.3.1998 / 15:19:09 / cg"
+    "Modified: / 1.4.1998 / 13:22:00 / cg"
+!
+
+superColor
+    "the color used for the super pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ self at:#superColor ifAbsentPut:[self identifierColor]
+
+    "Created: / 31.3.1998 / 17:37:56 / cg"
+    "Modified: / 1.4.1998 / 13:21:15 / cg"
+!
+
+superEmphasis
+    "the emphasis used for the super pseudoVariable;
+     If syntaxColoring is turned on."
+
+    ^ self at:#superEmphasis ifAbsentPut:[self identifierEmphasis]
+
+    "Created: / 31.3.1998 / 17:35:08 / cg"
+    "Modified: / 1.4.1998 / 13:21:41 / cg"
+!
+
+symbolColor
+    "the color used for symbol constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#symbolColor ifAbsentPut:[self constantColor]
+
+    "Created: / 1.4.1998 / 12:57:35 / cg"
+    "Modified: / 1.4.1998 / 13:22:16 / cg"
+!
+
+symbolEmphasis
+    "the emphasis used for symbol constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#symbolEmphasis ifAbsentPut:[self constantEmphasis]
+
+    "Created: / 1.4.1998 / 12:57:43 / cg"
+    "Modified: / 1.4.1998 / 13:23:43 / cg"
 !
 
 thisContextColor
+    "the color used for the thisContext pseudoVariable;
+     If syntaxColoring is turned on."
+
     ^ self at:#thisContextColor ifAbsentPut:[self identifierColor]
 
     "Created: / 31.3.1998 / 17:37:49 / cg"
-    "Modified: / 31.3.1998 / 19:53:21 / cg"
+    "Modified: / 1.4.1998 / 13:21:24 / cg"
 !
 
 thisContextEmphasis
+    "the emphasis used for the thisContext pseudoVariable;
+     If syntaxColoring is turned on."
+
     ^ self at:#thisContextEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 17:35:27 / cg"
-    "Modified: / 31.3.1998 / 19:53:24 / cg"
+    "Modified: / 1.4.1998 / 13:21:30 / cg"
 !
 
 unknownIdentifierColor
+    "the color used for unknown identifiers;
+     If syntaxColoring is turned on."
+
     ^ self at:#unknownIdentifierColor ifAbsentPut:[Color red darkened]
 
     "Created: / 31.3.1998 / 19:11:38 / cg"
-    "Modified: / 31.3.1998 / 19:53:26 / cg"
+    "Modified: / 1.4.1998 / 13:22:33 / cg"
 !
 
 unknownIdentifierEmphasis
+    "the emphasis used for unknown identifiers;
+     If syntaxColoring is turned on."
+
     ^ self at:#unknownIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 19:11:55 / cg"
-    "Modified: / 31.3.1998 / 19:53:28 / cg"
+    "Modified: / 1.4.1998 / 13:22:45 / cg"
 ! !
 
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.10 1998-04-01 11:19:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.11 1998-04-01 11:26:49 cg Exp $'
 ! !
hg/stx-libbasic