UserPreferences.st
branchjv
changeset 19577 8a1f19cdd5da
parent 19496 7613c0fb5f3c
parent 19576 e84a1ba22872
child 19610 a9a6940944a9
--- 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