UserPreferences.st
changeset 10240 9b59aa4f7bd4
parent 10177 01b7ae1bb878
child 10310 89d972739353
equal deleted inserted replaced
10239:a4c894b1b8f1 10240:9b59aa4f7bd4
    53 !UserPreferences class methodsFor:'initialization'!
    53 !UserPreferences class methodsFor:'initialization'!
    54 
    54 
    55 initializeDefaultPreferences
    55 initializeDefaultPreferences
    56     DefaultPreferences := self new.
    56     DefaultPreferences := self new.
    57 
    57 
       
    58     Color isNil "Smalltalk isStandAloneApp" ifTrue:[
       
    59         ^ self.
       
    60     ].
       
    61 
    58     #(
    62     #(
    59         #useNewChangesBrowser           false
    63         #useNewChangesBrowser           false
    60         #useNewInspector                false
    64         #useNewInspector                false
    61 
    65 
    62         #autoFormatting                 false
    66         #autoFormatting                 false
    87 "/        #jsKeywordColor                 (Color black)  
    91 "/        #jsKeywordColor                 (Color black)  
    88         #jsKeywordEmphasis              bold
    92         #jsKeywordEmphasis              bold
    89         #jsKeywordColor                 (Color 33 33 0)  
    93         #jsKeywordColor                 (Color 33 33 0)  
    90 
    94 
    91      ) pairWiseDo:[:k :v |
    95      ) pairWiseDo:[:k :v |
    92         DefaultPreferences at:k put:v decodeAsLiteralArray.
    96         DefaultPreferences at:k put:(v decodeAsLiteralArray).
    93     ].
    97     ].
    94 
    98 
    95     "/ I prefer red-underwave over red identifier ...
    99     "/ I prefer red-underwave over red identifier ...
    96     DefaultPreferences at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
   100     DefaultPreferences at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
    97 
   101 
    98     "
   102     "
    99      self initializeDefaultPreferences
   103      self initializeDefaultPreferences
   100     "
   104     "
   101 
   105 
   102     "Modified: / 08-09-2006 / 16:12:21 / cg"
   106     "Modified: / 07-12-2006 / 17:08:38 / cg"
   103 ! !
   107 ! !
   104 
   108 
   105 !UserPreferences class methodsFor:'accessing'!
   109 !UserPreferences class methodsFor:'accessing'!
   106 
   110 
   107 current
   111 current
  2368 ! !
  2372 ! !
  2369 
  2373 
  2370 !UserPreferences class methodsFor:'documentation'!
  2374 !UserPreferences class methodsFor:'documentation'!
  2371 
  2375 
  2372 version
  2376 version
  2373     ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.183 2006-11-10 16:27:43 cg Exp $'
  2377     ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.184 2006-12-07 16:08:36 cg Exp $'
  2374 ! !
  2378 ! !