--- a/UserPreferences.st Tue Jun 28 12:33:35 2011 +0200
+++ b/UserPreferences.st Tue Jun 28 12:40:08 2011 +0200
@@ -242,6 +242,14 @@
"Modified: / 08-09-2006 / 16:07:36 / cg"
! !
+!UserPreferences class methodsFor:'accessing - defaults'!
+
+defaultUserSettingsFile
+ ^ (Filename homeDirectory construct:'.smalltalk') construct:'settings.rc'
+
+ "Created: / 06-10-2008 / 08:27:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
!UserPreferences class methodsFor:'accessing defaultPrefs'!
defaultSettingsFilename
@@ -626,6 +634,7 @@
"Modified: / 02-11-2010 / 00:00:10 / cg"
! !
+
!UserPreferences methodsFor:'accessing-misc-communication'!
dotNetBridgeRunsInIDE
@@ -736,6 +745,7 @@
^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3
! !
+
!UserPreferences methodsFor:'accessing-pref''d tools'!
changesBrowserClass
@@ -1493,13 +1503,14 @@
"set the time, tooltips are shown. Nil means: dont hide"
self at:#toolTipAutoHideDelay put:aTimeDuration.
- FlyByHelp showTime:aTimeDuration asSeconds.
+ FlyByHelp showTime: (aTimeDuration isInteger ifTrue:[aTimeDuration] ifFalse:[aTimeDuration asSeconds]).
"
UserPreferences current toolTipAutoHideDelay:10 seconds
"
"Created: / 10-11-2010 / 12:09:33 / cg"
+ "Modified: / 07-03-2011 / 23:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
waitCursorVisibleTime
@@ -1886,6 +1897,29 @@
"
!
+emphasisForNamespacedCode
+ "the emphasis for changed code (in changeSet) in the browser"
+
+ |emp|
+
+ emp := self at:#emphasisForNamespacedCode ifAbsent:nil.
+ emp isNil ifTrue:[
+ emp := #color->Color green darkened.
+ "/ emp := Array with:#bold with:emp.
+ "/ emp := #color->Color blue darkened.
+ self at:#emphasisForNamespacedCode put:emp.
+ ].
+ ^ emp
+
+ "
+ self allInstancesDo:[:pref |pref at:#emphasisForNamespacedCode put:nil].
+ UserPreferences current emphasisForNamespacedCode.
+ UserPreferences current at:#emphasisForNamespacedCode put:nil.
+ "
+
+ "Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
emphasisForObsoleteCode
|emp|
@@ -3255,6 +3289,7 @@
! !
+
!UserPreferences methodsFor:'default settings - syntax colors'!
listOfPredefinedSyntaxColoringSchemes
@@ -3474,10 +3509,10 @@
!UserPreferences class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.273 2011-06-22 15:36:46 stefan Exp $'
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.274 2011-06-28 10:40:08 vrany Exp $'
!
-version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.273 2011-06-22 15:36:46 stefan Exp $'
+version_SVN
+ ^ ' Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 '
! !