--- a/UserPreferences.st Wed Apr 13 09:20:17 2016 +0100
+++ b/UserPreferences.st Thu Apr 14 06:38:20 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
@@ -842,6 +840,8 @@
"Modified: / 15-01-2012 / 14:26:53 / cg"
! !
+
+
!UserPreferences methodsFor:'accessing-locale'!
dateInputFormat
@@ -1138,18 +1138,17 @@
className := self at: #changeSetBrowserClassName ifAbsent:[nil].
className notNil ifTrue:[
- class := Smalltalk at: className asSymbol.
- class notNil ifTrue:[ ^ class ].
+ class := Smalltalk at: className asSymbol.
+ class notNil ifTrue:[ ^ class ].
].
"Original code"
^ ChangeSetBrowser.
- "/^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
-
- self useNewChangeSetBrowser ifTrue:[
- ^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
- ].
- ^ ChangeSetBrowser ? Tools::ChangeSetBrowser2
+
+"/ self useNewChangeSetBrowser ifTrue:[
+"/ ^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
+"/ ].
+"/ ^ ChangeSetBrowser ? Tools::ChangeSetBrowser2
"
self current changeSetBrowserClass