"

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

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

initialize

    DefaultPreferences := self new.

    #(

        #errorColor                     (Color red)

        #useNewChangesBrowser           false

        #useNewInspector                false

        #syntaxColoring                 true

        #fullSelectorCheck              false

        #defaultSyntaxColor             (Color black)

        #defaultSyntaxEmphasis          normal

        #commentColor                   (Color 12.5 12.5 100)

        #commentEmphasis                italic

        #methodSelectorEmphasis         bold

        #selectorEmphasis               bold

        #unimplementedSelectorColor     (Color red)

        #unimplementedSelectorEmphasis  normal

"/ I prefer red-underwave over red identifier ...

"/        #badIdentifierColor             (Color red)

        #constantColor                  (Color 25 0 0)

        #showClockInLauncher            true

     ) pairWiseDo:[:k :v |

        DefaultPreferences at:k put:v decodeAsLiteralArray.

    ].

"/ I prefer red-underwave over red identifier ...

    DefaultPreferences at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).

    "

     self initialize

    "

    "Modified: / 7.7.1999 / 00:32:58 / cg"

! !

!UserPreferences class methodsFor:'accessing'!

current

    CurrentPreferences isNil ifTrue:[

        CurrentPreferences := self new.

        CurrentPreferences declareAllFrom:DefaultPreferences.

    ].

    ^ CurrentPreferences.

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

!

default

    ^ DefaultPreferences.

!

reset

    "resets the CurrentPreferences to its default values"

    CurrentPreferences := nil

!

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

"/ warning, the strings below are presented to the user

"/ as the syntax-color boxes comboList - however, they are

"/ also used (without separators) as key into myself.

"/ Therefore, do not change the strings below.

"/ I know - this is bad coding ....

^#(

'Argument Identifier Color'

'Boolean Constant Color'

'Bracket Color'

'Class Variable Identifier 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'

'Unimplemented Selector 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"

!

showClockInLauncher

    "return the flag which controls if a clock is shown in the launcher"

    ^ self at:#showClockInLauncher ifAbsentPut:false

    "

     UserPreferences current showClockInLauncher

    "

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

!

showClockInLauncher:aBooleanOrNil

    "set/clear the flag which controls if a clock is shown in the launcher"

    ^ self at:#showClockInLauncher put:aBooleanOrNil

    "

     UserPreferences current showClockInLauncher:false.

     NewLauncher open.   

     UserPreferences current showClockInLauncher:true.

     NewLauncher open.   

    "

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

!

badIdentifierColor

    "the color used for illegal identifiers;

     If syntaxColoring is turned on."

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

!

badIdentifierEmphasis

    "the emphasis used for illegal identifiers;

     If syntaxColoring is turned on."

    ^ self at:#badIdentifierEmphasis ifAbsentPut:[DefaultPreferences at:#badIdentifierEmphasis]

    "Modified: / 7.7.1999 / 00:30:00 / 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:[self defaultSyntaxColor]

    "

     self current at:#bracketColor  put:Color red.

     self current at:#bracketEmphasis  put:#bold

     self current bracketColor 

     self current bracketEmphasis 

    "

    "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:[self defaultSyntaxEmphasis]

    "

     self current at:#bracketEmphasis  put:#bold

     self current bracketEmphasis 

    "

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

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

!

classVariableIdentifierColor

    "the color used for classVar/classInstVar identifiers

     If syntaxColoring is turned on."

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

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

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

!

classVariableIdentifierEmphasis

    "the color used for classVar/classInstVar identifiers

     If syntaxColoring is turned on."

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

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

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

!

commentColor

    "the color used for comments;

     If syntaxColoring is turned on."

    ^ self at:#commentColor ifAbsentPut:[DefaultPreferences at:#commentColor]

    "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:[DefaultPreferences at:#commentEmphasis]

    "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:[DefaultPreferences at:#constantColor]

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

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

!

constantEmphasis