--- a/UserPreferences.st Fri Jan 31 02:04:30 2014 +0000
+++ b/UserPreferences.st Sun Feb 02 14:16:24 2014 +0000
@@ -876,7 +876,7 @@
self useNewChangeSetBrowser ifTrue:[
^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
].
- ^ ChangeSetBrowser
+ ^ ChangeSetBrowser ? Tools::ChangeSetBrowser2
"
self current changeSetBrowserClass
@@ -2194,8 +2194,8 @@
clr := self at:#colorForInstrumentedFullyCoveredCode ifAbsent:nil.
clr isNil ifTrue:[
- clr := Color green slightlyDarkened.
- self at:#colorForInstrumentedFullyCoveredCode put:clr.
+ clr := Color green darkened. "/ slightlyDarkened.
+ "/ self at:#colorForInstrumentedFullyCoveredCode put:clr.
].
^ clr
@@ -2208,6 +2208,20 @@
"Created: / 28-04-2010 / 13:58:52 / cg"
!
+colorForInstrumentedFullyCoveredCode:aColor
+ "the color for code in the browser which is instrumented
+ and where all branches have been executed (also code, which has been executed)"
+
+ self at:#colorForInstrumentedFullyCoveredCode put:aColor.
+
+ "
+ UserPreferences current colorForInstrumentedFullyCoveredCode:(Color green slightlyDarkened).
+ UserPreferences current colorForInstrumentedFullyCoveredCode:nil.
+ "
+
+ "Created: / 28-04-2010 / 13:58:52 / cg"
+!
+
colorForInstrumentedNeverCalledCode
"the color for code in the browser which is instrumented but has never been called"
@@ -2215,8 +2229,8 @@
clr := self at:#colorForInstrumentedNeverCalledCode ifAbsent:nil.
clr isNil ifTrue:[
- clr := Color red slightlyDarkened.
- self at:#colorForInstrumentedNeverCalledCode put:clr.
+ clr := Color red darkened. "/ slightlyDarkened.
+ "/ self at:#colorForInstrumentedNeverCalledCode put:clr.
].
^ clr
@@ -2229,6 +2243,19 @@
"Created: / 28-04-2010 / 13:59:43 / cg"
!
+colorForInstrumentedNeverCalledCode:aColor
+ "the color for code in the browser which is instrumented but has never been called"
+
+ self at:#colorForInstrumentedNeverCalledCode put:aColor.
+
+ "
+ UserPreferences current colorForInstrumentedNeverCalledCode:(Color red slightlyDarkened).
+ UserPreferences current colorForInstrumentedNeverCalledCode:nil.
+ "
+
+ "Created: / 28-04-2010 / 13:59:43 / cg"
+!
+
colorForInstrumentedPartiallyCoveredCode
"color for code in the browser which is instrumented and where some branches have been
executed"
@@ -2237,8 +2264,8 @@
clr := self at:#colorForInstrumentedPartiallyCoveredCode ifAbsent:nil.
clr isNil ifTrue:[
- clr := Color orange.
- self at:#colorForInstrumentedPartiallyCoveredCode put:clr.
+ clr := Color orange slightlyDarkened.
+ "/ self at:#colorForInstrumentedPartiallyCoveredCode put:clr.
].
^ clr
@@ -2251,6 +2278,20 @@
"Created: / 28-04-2010 / 14:00:56 / cg"
!
+colorForInstrumentedPartiallyCoveredCode:aColor
+ "color for code in the browser which is instrumented and where some branches have been
+ executed"
+
+ self at:#colorForInstrumentedPartiallyCoveredCode put:aColor.
+
+ "
+ UserPreferences current colorForInstrumentedPartiallyCoveredCode:(Color orange slightlyLightened).
+ UserPreferences current colorForInstrumentedPartiallyCoveredCode:nil.
+ "
+
+ "Created: / 28-04-2010 / 14:00:56 / cg"
+!
+
colorForPseudoProtocolsInMethodListInBrowser
"eventually, make this also a settings value (for people with weak gray-visibility)"
@@ -2652,6 +2693,25 @@
"Modified: / 17-02-2011 / 14:20:41 / cg"
!
+commentFont
+ "the font used for comments; nil if no special font has been defined.
+ If syntaxColoring is turned on."
+
+ ^ self at:#commentFont ifAbsent:nil
+!
+
+commentFont:aFont
+ "the font used for comments; nil if no special font has been defined.
+ If syntaxColoring is turned on."
+
+ self at:#commentFont put:aFont
+
+ "
+ UserPreferences current commentFont:(XftFontDescription family: 'Comic Sans' size: 12)
+ UserPreferences current commentFont
+ "
+!
+
constantColor
"the color used for constants;
If syntaxColoring is turned on."
@@ -3556,6 +3616,30 @@
!UserPreferences methodsFor:'accessing-prefs-editor'!
+appendAbbreviationsToCompletionSuggestions
+ "show abbreviations in completion"
+
+ ^ self at:#appendAbbreviationsToCompletionSuggestions ifAbsent:false
+
+ "
+ UserPreferences current appendAbbreviationsToCompletionSuggestions
+ UserPreferences current appendAbbreviationsToCompletionSuggestions:true
+ UserPreferences current appendAbbreviationsToCompletionSuggestions:false
+ "
+!
+
+appendAbbreviationsToCompletionSuggestions:aBoolean
+ "show abbreviations in completion"
+
+ ^ self at:#appendAbbreviationsToCompletionSuggestions put:aBoolean
+
+ "
+ UserPreferences current appendAbbreviationsToCompletionSuggestions
+ UserPreferences current appendAbbreviationsToCompletionSuggestions:true
+ UserPreferences current appendAbbreviationsToCompletionSuggestions:false
+ "
+!
+
codeCompletionOnControlKey
"show completion with CTRL-key - experimental"
@@ -4232,6 +4316,27 @@
!UserPreferences methodsFor:'accessing-prefs-tools-building'!
+autoUnloadAutoloadedClassesInProjectDefinition
+ ^ self at:#autoUnloadAutoloadedClassesInProjectDefinition ifAbsent:false
+
+ "
+ UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
+ "
+
+ "Created: / 28-01-2014 / 21:42:59 / cg"
+!
+
+autoUnloadAutoloadedClassesInProjectDefinition:aBoolean
+ ^ self at:#autoUnloadAutoloadedClassesInProjectDefinition put:aBoolean
+
+ "
+ UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition
+ UserPreferences current autoUnloadAutoloadedClassesInProjectDefinition:false
+ "
+
+ "Created: / 28-01-2014 / 21:43:18 / cg"
+!
+
buildDirectory
^ self at:#buildDirectory ifAbsent:nil
@@ -4268,6 +4373,27 @@
"Created: / 20-09-2006 / 23:55:26 / cg"
!
+suppressProjectDefinitionWarnings
+ ^ self at:#suppressProjectDefinitionWarnings ifAbsent:true
+
+ "
+ UserPreferences current suppressProjectDefinitionWarnings
+ "
+
+ "Created: / 28-01-2014 / 21:41:01 / cg"
+!
+
+suppressProjectDefinitionWarnings:aBoolean
+ ^ self at:#suppressProjectDefinitionWarnings put:aBoolean
+
+ "
+ UserPreferences current suppressProjectDefinitionWarnings
+ UserPreferences current suppressProjectDefinitionWarnings:true
+ "
+
+ "Created: / 28-01-2014 / 21:41:12 / cg"
+!
+
usedCompilerForBuild
^ self at:#usedCompilerForBuild ifAbsent:nil
@@ -4577,11 +4703,11 @@
!UserPreferences class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.352 2013-12-13 09:15:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.357 2014-02-01 23:13:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.352 2013-12-13 09:15:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.357 2014-02-01 23:13:55 cg Exp $'
!
version_HG