--- a/UserPreferences.st	Mon Jan 23 20:41:24 2012 +0000
+++ b/UserPreferences.st	Wed Jan 25 17:53:18 2012 +0000
@@ -647,6 +647,8 @@
 ! !
 
 
+
+
 !UserPreferences methodsFor:'accessing-misc-communication'!
 
 dotNetBridgeRunsInIDE
@@ -784,20 +786,68 @@
 !UserPreferences methodsFor:'accessing-pref''d tools'!
 
 changeSetBrowserClass
+
+    | class className |
+
+    className := self at: #changeSetBrowserClassName ifAbsent:[nil].
+    className notNil ifTrue:[
+        class := Smalltalk at: className asSymbol.
+        class notNil ifTrue:[ ^ class ].
+    ].
+
+    "Original code"
     ^ ChangeSetBrowser.
-    ^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
+    "/^ Tools::ChangeSetBrowser2 ? ChangeSetBrowser
 
     "Created: / 01-07-2011 / 16:33:13 / cg"
     "Modified: / 25-07-2011 / 12:21:42 / sr"
+    "Modified: / 25-01-2012 / 17:11:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+changeSetBrowserClass: aClass
+
+    self at: #changeSetBrowserClassName put: aClass name.
+
+    "
+        UserPreferences current changeSetBrowserClass
+        UserPreferences current changeSetBrowserClass: Tools::ChangeSetBrowser2.
+        UserPreferences current changeSetBrowserClass: ChangeSetBrowser.
+    "
+
+    "Created: / 25-01-2012 / 17:08:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 changesBrowserClass
+
+    | class className |
+
+    className := self at: #changesBrowserClassName ifAbsent:[nil].
+    className notNil ifTrue:[
+        class := Smalltalk at: className asSymbol.
+        class notNil ifTrue:[ ^ class ].
+    ].
+
+    "/ Old code
     self useNewChangesBrowser ifTrue:[
-	^ (NewChangesBrowser ? ChangesBrowser)
+        ^ (NewChangesBrowser ? ChangesBrowser)
     ].
     ^ ChangesBrowser
 
-    "Created: / 17.10.1998 / 14:37:46 / cg"
+    "Created: / 17-10-1998 / 14:37:46 / cg"
+    "Modified: / 25-01-2012 / 17:11:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+changesBrowserClass: aClass
+
+    self at: #changesBrowserClassName put: aClass name.
+
+    "
+        UserPreferences current changesBrowserClass
+        UserPreferences current changesBrowserClass: Tools::ChangeSetBrowser2.
+        UserPreferences current changesBrowserClass: ChangeSetBrowser.
+    "
+
+    "Created: / 25-01-2012 / 17:12:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileBrowserClass
@@ -3551,6 +3601,8 @@
     "Created: / 19-08-2011 / 12:51:58 / cg"
 ! !
 
+
+
 !UserPreferences methodsFor:'default settings-syntax colors'!
 
 listOfPredefinedSyntaxColoringSchemes
@@ -3771,17 +3823,13 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.296 2012/01/22 10:07:42 cg Exp $'
+    ^ '$Id: UserPreferences.st 10766 2012-01-25 17:53:18Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.296 2012/01/22 10:07:42 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.296 2012/01/22 10:07:42 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: UserPreferences.st 10763 2012-01-22 23:07:15Z vranyj1 $'
+    ^ '$Id: UserPreferences.st 10766 2012-01-25 17:53:18Z vranyj1 $'
 ! !
-
-
-
-