changed: #version_CVS
authorvrany
Tue, 28 Jun 2011 12:40:08 +0200
changeset 13399 eb68067907e1
parent 13398 5c6fd278f26b
child 13400 8dcdfacd2f34
changed: #version_CVS
UserPreferences.st
--- 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  '
 ! !