Tools__ChangeSetBrowser2.st
changeset 13018 65d449c405b2
parent 12757 7ce7a0cab142
child 13178 c9bf900fe729
child 13886 8d5e6dbdeea0
--- a/Tools__ChangeSetBrowser2.st	Tue Jun 25 19:12:36 2013 +0200
+++ b/Tools__ChangeSetBrowser2.st	Tue Jun 25 19:12:44 2013 +0200
@@ -2120,7 +2120,7 @@
 
     (changes conform:[:c | c isClassDefinitionChange]) ifTrue:[
         classes := (changes collect:[:c | c changeClass]).
-        UserPreferences current systemBrowserClass 
+        UserPreferences systemBrowserClass 
             browseClasses:classes title:'selected monticello classes'.
     ] ifFalse:[
         methods := OrderedCollection new.
@@ -2138,7 +2138,7 @@
             methods := methods reject:[:m | m isNil].
             methods isEmpty ifTrue:[^ self].
         ].
-        UserPreferences current systemBrowserClass 
+        UserPreferences systemBrowserClass 
             browseMethods:methods title:'selected monticello methods' sort:false.
     ].
 
@@ -2171,7 +2171,7 @@
         ].
     changes do:addThemChanges.
 
-    UserPreferences current systemBrowserClass 
+    UserPreferences systemBrowserClass 
         browseClasses:classes title:'selected monticello classes'.
 
     "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -2896,14 +2896,14 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.52 2013-05-15 17:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.53 2013-06-25 17:12:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.52 2013-05-15 17:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.53 2013-06-25 17:12:44 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetBrowser2.st,v 1.52 2013-05-15 17:03:46 cg Exp $'
+    ^ '$Id: Tools__ChangeSetBrowser2.st,v 1.53 2013-06-25 17:12:44 cg Exp $'
 ! !