"

 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:''

	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'

'Global Class Identifier Color'

'Here Color'

'Identifier Color'

'InstVar Identifier Color'

'Local Identifier Color'

'Method Selector Color'

'Return Color'

'Selector Color'

'Self Color'

'String Color'

'Super Color'

'Symbol Color'

'This Context Color'

'Unknown Identifier Color'

)

    "Modified: / 5.1.1980 / 00:48:09 / 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'!

focusFollowsMouse

    "return the flag which controls if the keyboard focus should

     follow the mouse (as in X) - as opposed to click mode (as in MS-win).

     This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).

     The returned value has 3 states: true/false and nil, which means: as defined in styleSheet."

    ^ self at:#focusFollowsMouse ifAbsent:nil

    "

     UserPreferences current focusFollowsMouse

    "

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

!

focusFollowsMouse:aBooleanOrNil

    "set/clear the flag which controls if the keyboard focus should

     follow the mouse (as in X) - as opposed to click mode (as in MS-win).

     This only affects certain widgets (EditFields, EditTextViews and SelectionInListViews).

     Allowed are: true/false and nil, which means: as defined in styleSheet."

    ^ self at:#focusFollowsMouse put:aBooleanOrNil

    "

     UserPreferences current focusFollowsMouse:true

     UserPreferences current focusFollowsMouse:false

     UserPreferences current focusFollowsMouse

    "

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

!

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

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

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

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

!

fullSelectorCheck

    "with fullSelector check, selectors are searched immediately for

     being implemented in the system. This may not be useful on slow machines"

    "Created: / 31.3.1998 / 15:09:41 / cg"

    "Modified: / 1.4.1998 / 13:25:06 / cg"

!

globalClassIdentifierColor

    "the color used for global identifiers which are known to be classes;

     If syntaxColoring is turned on."

    ^ self at:#globalClassIdentifierColor ifAbsentPut:[self globalIdentifierColor]

    "Modified: / 1.4.1998 / 13:20:47 / cg"

    "Created: / 4.3.1999 / 12:50:31 / cg"

!

globalClassIdentifierEmphasis

    "the emphasis used for global variable identifiers which are known to be classes;

     If syntaxColoring is turned on."

    ^ self at:#globalClassIdentifierEmphasis ifAbsentPut:[self globalIdentifierEmphasis]

    "Modified: / 1.4.1998 / 13:25:31 / cg"

    "Created: / 4.3.1999 / 12:51:00 / 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."

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

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

    "

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

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