Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 31 Mar 1998 19:54:24 +0200
changeset 3355 d013e5affe18
parent 3354 9336b571ee90
child 3356 4e53e4d6a403
checkin from browser
UserPreferences.st file | annotate | diff | comparison | revisions 
--- a/UserPreferences.st	Tue Mar 31 19:45:29 1998 +0200
+++ b/UserPreferences.st	Tue Mar 31 19:54:24 1998 +0200
@@ -58,194 +58,196 @@
 !UserPreferences methodsFor:'accessing'!
 
 argumentIdentifierColor
-    ^ self at:#argumentIdentifierColor ifAbsent:[self identifierColor]
+    ^ self at:#argumentIdentifierColor ifAbsentPut:[self identifierColor]
 
     "Created: / 31.3.1998 / 15:08:20 / cg"
-    "Modified: / 31.3.1998 / 17:37:00 / cg"
+    "Modified: / 31.3.1998 / 19:52:13 / cg"
 !
 
 argumentIdentifierEmphasis
-    ^ self at:#argumentIdentifierEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#argumentIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 15:16:40 / cg"
-    "Modified: / 31.3.1998 / 17:36:53 / cg"
+    "Modified: / 31.3.1998 / 19:52:16 / cg"
 !
 
 booleanConstantColor
-    ^ self at:#booleanConstantColor ifAbsent:[self constantColor]
+    ^ self at:#booleanConstantColor ifAbsentPut:[self constantColor]
 
     "Created: / 31.3.1998 / 18:12:06 / cg"
-    "Modified: / 31.3.1998 / 19:32:06 / cg"
+    "Modified: / 31.3.1998 / 19:52:19 / cg"
 !
 
 booleanConstantEmphasis
-    ^ self at:#booleanConstantEmphasis ifAbsent:[self constantEmphasis]
+    ^ self at:#booleanConstantEmphasis ifAbsentPut:[self constantEmphasis]
 
     "Created: / 31.3.1998 / 18:12:46 / cg"
-    "Modified: / 31.3.1998 / 19:32:12 / cg"
+    "Modified: / 31.3.1998 / 19:52:22 / cg"
 !
 
 commentColor
-    ^ self at:#commentColor ifAbsent:[Color blue darkened]
+    ^ self at:#commentColor ifAbsentPut:[Color blue darkened]
 
-    "Modified: / 31.3.1998 / 15:08:38 / cg"
     "Created: / 31.3.1998 / 15:10:23 / cg"
+    "Modified: / 31.3.1998 / 19:51:29 / cg"
 !
 
 commentEmphasis
-    ^ self at:#commentEmphasis ifAbsent:#italic
+    ^ 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 ifAbsent:[Color red darkened darkened "
+    ^ self at:#constantColor ifAbsentPut:[Color red darkened darkened "
 self identifierColor "]
 
     "Created: / 31.3.1998 / 18:13:15 / cg"
-    "Modified: / 31.3.1998 / 19:32:43 / cg"
+    "Modified: / 31.3.1998 / 19:51:42 / cg"
 !
 
 constantEmphasis
-    ^ self at:#constantEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#constantEmphasis ifAbsentPut:[self identifierEmphasis]
 
-    "Modified: / 31.3.1998 / 17:37:35 / cg"
     "Created: / 31.3.1998 / 18:13:23 / cg"
+    "Modified: / 31.3.1998 / 19:52:31 / cg"
 !
 
 globalIdentifierColor
-    ^ self at:#globalIdentifierColor ifAbsent:[self identifierColor]
+    ^ self at:#globalIdentifierColor ifAbsentPut:[self identifierColor]
 
     "Created: / 31.3.1998 / 15:18:49 / cg"
-    "Modified: / 31.3.1998 / 17:37:07 / cg"
+    "Modified: / 31.3.1998 / 19:52:34 / cg"
 !
 
 globalIdentifierEmphasis
-    ^ self at:#globalIdentifierEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#globalIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 15:18:29 / cg"
-    "Modified: / 31.3.1998 / 17:37:15 / cg"
+    "Modified: / 31.3.1998 / 19:52:36 / cg"
 !
 
 hereColor
-    ^ self at:#hereColor ifAbsent:[self identifierColor]
+    ^ self at:#hereColor ifAbsentPut:[self identifierColor]
 
-    "Modified: / 31.3.1998 / 17:37:21 / cg"
     "Created: / 31.3.1998 / 17:38:09 / cg"
+    "Modified: / 31.3.1998 / 19:52:38 / cg"
 !
 
 hereEmphasis
-    ^ self at:#hereEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#hereEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 17:35:13 / cg"
-    "Modified: / 31.3.1998 / 17:37:21 / cg"
+    "Modified: / 31.3.1998 / 19:52:40 / cg"
 !
 
 identifierColor
-    ^ self at:#identifierColor ifAbsent:[Color black "green darkened darkened"]
+    ^ self at:#identifierColor ifAbsentPut:[Color black "green darkened darkened"]
 
     "Created: / 31.3.1998 / 17:35:55 / cg"
-    "Modified: / 31.3.1998 / 19:30:25 / cg"
+    "Modified: / 31.3.1998 / 19:51:50 / cg"
 !
 
 identifierEmphasis
-    ^ self at:#identifierEmphasis ifAbsent:#normal
+    ^ 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 ifAbsent:[self identifierColor]
+    ^ self at:#localIdentifierColor ifAbsentPut:[self identifierColor]
 
     "Created: / 31.3.1998 / 15:18:07 / cg"
-    "Modified: / 31.3.1998 / 17:36:40 / cg"
+    "Modified: / 31.3.1998 / 19:52:48 / cg"
 !
 
 localIdentifierEmphasis
-    ^ self at:#localIdentifierEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#localIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 15:16:56 / cg"
-    "Modified: / 31.3.1998 / 17:36:34 / cg"
+    "Modified: / 31.3.1998 / 19:52:50 / cg"
 !
 
 methodSelectorColor
-    ^ self at:#methodSelectorColor ifAbsent:[Color black]
+    ^ self at:#methodSelectorColor ifAbsentPut:[Color black]
 
-    "Modified: / 31.3.1998 / 15:08:38 / cg"
     "Created: / 31.3.1998 / 15:11:24 / cg"
+    "Modified: / 31.3.1998 / 19:51:57 / cg"
 !
 
 methodSelectorEmphasis
-    ^ self at:#methodSelectorEmphasis ifAbsent:#bold
+    ^ self at:#methodSelectorEmphasis ifAbsentPut:#bold
 
-    "Modified: / 31.3.1998 / 15:08:38 / cg"
     "Created: / 31.3.1998 / 15:11:16 / cg"
+    "Modified: / 31.3.1998 / 19:52:54 / cg"
 !
 
 selectorColor
-    ^ self at:#selectorColor ifAbsent:[Color black]
+    ^ self at:#selectorColor ifAbsentPut:[Color black]
 
-    "Modified: / 31.3.1998 / 15:08:38 / cg"
     "Created: / 31.3.1998 / 15:19:19 / cg"
+    "Modified: / 31.3.1998 / 19:52:02 / cg"
 !
 
 selectorEmphasis
-    ^ self at:#selectorEmphasis ifAbsent:#bold
+    ^ self at:#selectorEmphasis ifAbsentPut:#bold
 
-    "Modified: / 31.3.1998 / 15:08:38 / cg"
     "Created: / 31.3.1998 / 15:19:09 / cg"
+    "Modified: / 31.3.1998 / 19:52:57 / cg"
 !
 
 selfColor
-    ^ self at:#selfColor ifAbsent:[self identifierColor]
+    ^ self at:#selfColor ifAbsentPut:[self identifierColor]
 
-    "Modified: / 31.3.1998 / 17:29:56 / cg"
     "Created: / 31.3.1998 / 17:35:45 / cg"
+    "Modified: / 31.3.1998 / 19:52:59 / cg"
 !
 
 selfEmphasis
-    ^ self at:#selfEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#selfEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 17:34:57 / cg"
-    "Modified: / 31.3.1998 / 17:37:30 / cg"
+    "Modified: / 31.3.1998 / 19:53:03 / cg"
 !
 
 stringColor
-    ^ self at:#stringColor ifAbsent:[Color red darkened]
+    ^ self at:#stringColor ifAbsentPut:[Color red darkened]
 
     "Created: / 31.3.1998 / 15:19:50 / cg"
-    "Modified: / 31.3.1998 / 15:20:42 / cg"
+    "Modified: / 31.3.1998 / 19:52:09 / cg"
 !
 
 stringEmphasis
-    ^ self at:#stringEmphasis ifAbsent:#normal
+    ^ self at:#stringEmphasis ifAbsentPut:#normal
 
     "Created: / 31.3.1998 / 15:19:09 / cg"
-    "Modified: / 31.3.1998 / 15:20:08 / cg"
+    "Modified: / 31.3.1998 / 19:53:07 / cg"
 !
 
 superColor
-    ^ self at:#superColor ifAbsent:[self identifierColor]
+    ^ self at:#superColor ifAbsentPut:[self identifierColor]
 
-    "Modified: / 31.3.1998 / 17:37:35 / cg"
     "Created: / 31.3.1998 / 17:37:56 / cg"
+    "Modified: / 31.3.1998 / 19:53:09 / cg"
 !
 
 superEmphasis
-    ^ self at:#superEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#superEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 17:35:08 / cg"
-    "Modified: / 31.3.1998 / 17:37:35 / cg"
+    "Modified: / 31.3.1998 / 19:53:11 / cg"
 !
 
 syntaxColoring
-    ^ self at:#syntaxColoring ifAbsent:false
+    ^ self at:#syntaxColoring ifAbsentPut:false
 
     "
      UserPreferences current syntaxColoring
     "
 
-    "Modified: / 31.3.1998 / 13:43:45 / cg"
+    "Modified: / 31.3.1998 / 19:53:13 / cg"
 !
 
 syntaxColoring:aBoolean
@@ -255,34 +257,35 @@
 !
 
 thisContextColor
-    ^ self at:#thisContextColor ifAbsent:[self identifierColor]
+    ^ self at:#thisContextColor ifAbsentPut:[self identifierColor]
 
     "Created: / 31.3.1998 / 17:37:49 / cg"
+    "Modified: / 31.3.1998 / 19:53:21 / cg"
 !
 
 thisContextEmphasis
-    ^ self at:#thisContextEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#thisContextEmphasis ifAbsentPut:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 17:35:27 / cg"
-    "Modified: / 31.3.1998 / 17:37:40 / cg"
+    "Modified: / 31.3.1998 / 19:53:24 / cg"
 !
 
 unknownIdentifierColor
-    ^ self at:#unknownIdentifierColor ifAbsent:[Color red darkened]
+    ^ self at:#unknownIdentifierColor ifAbsentPut:[Color red darkened]
 
     "Created: / 31.3.1998 / 19:11:38 / cg"
-    "Modified: / 31.3.1998 / 19:12:03 / cg"
+    "Modified: / 31.3.1998 / 19:53:26 / cg"
 !
 
 unknownIdentifierEmphasis
-    ^ self at:#unknownIdentifierEmphasis ifAbsent:[self identifierEmphasis]
+    ^ self at:#unknownIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
 
-    "Modified: / 31.3.1998 / 17:37:15 / cg"
     "Created: / 31.3.1998 / 19:11:55 / cg"
+    "Modified: / 31.3.1998 / 19:53:28 / cg"
 ! !
 
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.5 1998-03-31 17:45:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.6 1998-03-31 17:54:24 cg Exp $'
 ! !
hg/stx-libbasic