--- a/Tools__ChangeSetBrowser2.st	Sun Aug 21 16:06:47 2011 +0200
+++ b/Tools__ChangeSetBrowser2.st	Sun Aug 21 16:48:23 2011 +0200
@@ -1465,11 +1465,21 @@
 !
 
 changeMenuBrowse: changeList
+    |changes methods classes|
 
-    self breakPoint: #jv.
-    Dialog warn: 'Not yet implemented'
+    changes := changeList listHolder value collect:[:c | c change].
+    (changes conform:[:c | c isClassDefinitionChange]) ifTrue:[
+        classes := (changes collect:[:c | c changeClass]).
+        UserPreferences current systemBrowserClass 
+            browseClasses:classes title:'selected monticello classes'.
+    ] ifFalse:[
+        methods := (changes collect:[:c | c changeMethod]).
+        UserPreferences current systemBrowserClass 
+            browseMethods:methods title:'selected monticello methods' sort:false.
+    ].
 
     "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-08-2011 / 16:48:13 / cg"
 !
 
 changeMenuDeleteSelection: changeList
@@ -1760,11 +1770,11 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.11 2011-08-04 20:18:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.12 2011-08-21 14:48:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.11 2011-08-04 20:18:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.12 2011-08-21 14:48:23 cg Exp $'
 !
 
 version_SVN