"

 COPYRIGHT (c) 1998 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

IdentityDictionary subclass:#UserPreferences

	instanceVariableNames:''

	classVariableNames:'CurrentPreferences'

	poolDictionaries:''

	category:'System-Support'

!

!UserPreferences class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    Not yet finished.

    This will eventually keep track of ALL user preferences.

    (which are currently spread over the system).

    For now, only a few preferences are found here - but this

    will change over time.

"

! !

!UserPreferences class methodsFor:'accessing'!

current

    CurrentPreferences isNil ifTrue:[

        CurrentPreferences := self new

    ].

    ^ CurrentPreferences.

    "Created: / 31.3.1998 / 13:43:03 / cg"

!

reset

    "resets the CurrentPreferences to its default values"

    CurrentPreferences := nil

!

syntaxColors

    "returns the syntax colors for the settings in the launcher"

^#(

'Argument Identifier Color'

'Boolean Constant Color'

'Bracket Color'

'Constant Color'

'Comment Color'

'Global Identifier Color'

'Here Color'

'Identifier Color'

'InstVar Identifier Color'

'Local Identifier Color'

'Method Selector Color'

'Selector Color'

'Self Color'

'String Color'

'Super Color'

'Symbol Color'

'This Context Color'

'Unknown Identifier Color'

)

    "Modified: / 16.4.1998 / 18:32:23 / cg"

! !

!UserPreferences methodsFor:'accessing - pref''d tools'!

changesBrowserClass

    self useNewChangesBrowser ifTrue:[

        ^ NewChangesBrowser

    ].

    ^ ChangesBrowser

    "Created: / 17.10.1998 / 14:37:46 / cg"

! !

!UserPreferences methodsFor:'accessing - prefs'!

syntaxColoring

    "return the flag which controls syntax coloring (in the browsers)"

    ^ self at:#syntaxColoring ifAbsentPut:true

    "

     UserPreferences current syntaxColoring

    "

    "Modified: / 11.9.1998 / 00:09:59 / cg"

!

syntaxColoring:aBoolean

    "turn on/off syntaxColoring (in the browsers)."

    ^ self at:#syntaxColoring put:aBoolean

    "

     UserPreferences current syntaxColoring:true

     UserPreferences current syntaxColoring:false

    "

    "Created: / 31.3.1998 / 13:44:00 / cg"

    "Modified: / 1.4.1998 / 13:23:03 / cg"

!

useNewChangesBrowser

    "using new or old change browser"

    ^ self at:#useNewChangesBrowser ifAbsentPut:false

    "Modified: / 13.10.1998 / 15:53:05 / cg"

!

useNewChangesBrowser:aBoolean

    "using new or old changeBrowser"

    ^ self at:#useNewChangesBrowser put:aBoolean

    "

     UserPreferences current useNewChangesBrowser

    "

    "Modified: / 13.10.1998 / 15:53:21 / cg"

!

useNewInspector

    "using new or old inspector"

    ^ self at:#useNewInspector ifAbsentPut:false

    "

     UserPreferences current useNewInspector

    "

    "Modified: / 17.10.1998 / 14:45:12 / cg"

!

useNewInspector:aBoolean

    "using new or old inspector"

    ^ self at:#useNewInspector put:aBoolean

    "

     UserPreferences current useNewInspector

    "

! !

!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"

!

bracketColor

    "the color used for brackets;

     If syntaxColoring is turned on."

    ^ self at:#bracketColor ifAbsentPut:[Color black]

    "

     self current at:#bracketColor  put:Color red.

     self current at:#bracketEmphasis  put:#bold

    "

    "Created: / 31.3.1998 / 19:11:38 / cg"

    "Modified: / 1.4.1998 / 13:22:33 / cg"

!

bracketEmphasis

    "the emphasis used for brackets;

     If syntaxColoring is turned on."

    ^ self at:#bracketEmphasis ifAbsentPut:#normal

    "

     self current at:#bracketEmphasis  put:#bold

    "

    "Created: / 31.3.1998 / 19:11:38 / cg"

    "Modified: / 1.4.1998 / 13:22:33 / cg"

!

commentColor

    "the color used for comments;

     If syntaxColoring is turned on."

    ^ self at:#commentColor 

        ifAbsentPut:[ "/ Color red:0 green:67 blue:0 

                      Color red:12.5 green:12.5 blue:100

                      "/ Color blue lightened

                      "/ Color blue darkened

                    ]

    "Created: / 31.3.1998 / 15:10:23 / cg"

    "Modified: / 11.9.1998 / 19:24:04 / 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"]

    "

     UserPreferences current at:#identifierColor put:Color green darkened darkened.

     UserPreferences current at:#identifierColor put:Color black.

    "

    "Created: / 31.3.1998 / 17:35:55 / cg"

    "Modified: / 2.4.1998 / 10:39:42 / 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"

!

instVarIdentifierColor

    "the color used for instance variable identifiers;

     If syntaxColoring is turned on."

    ^ self at:#instVarIdentifierColor ifAbsentPut:[self identifierColor]

    "

     UserPreferences current at:#instVarIdentifierColor put:Color green darkened.

     UserPreferences current at:#instVarIdentifierColor put:Color black.

     UserPreferences current instVarIdentifierColor 

    "

    "Created: / 16.4.1998 / 18:31:29 / cg"

    "Modified: / 16.4.1998 / 18:57:06 / cg"

!

instVarIdentifierEmphasis

    "the emphais used for instance variable identifiers;

     If syntaxColoring is turned on."

    ^ self at:#instVarIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]

    "Modified: / 1.4.1998 / 13:24:42 / cg"

    "Created: / 16.4.1998 / 18:40:05 / cg"

!

localIdentifierColor

    "the color used for local variable identifiers;

     If syntaxColoring is turned on."

    ^ self at:#localIdentifierColor ifAbsentPut:[self identifierColor]

    "

     UserPreferences current at:#localIdentifierColor put:Color green darkened.

     UserPreferences current at:#localIdentifierColor put:Color black.

    "

    "Created: / 31.3.1998 / 15:18:07 / cg"

    "Modified: / 2.4.1998 / 10:40:05 / 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