--- a/Tools__ChangeSetDiffTool.st	Wed Nov 30 12:14:53 2011 +0100
+++ b/Tools__ChangeSetDiffTool.st	Wed Nov 30 12:15:03 2011 +0100
@@ -1057,6 +1057,34 @@
     "Modified: / 05-12-2009 / 12:37:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+listMenuBrowse
+
+    | items |
+    items := self selection collect:[:e|e]. "/must do collect as selection is an iterator..."
+    items size == 1 ifTrue:[
+        | item cls sel |
+        item:= items anElement.
+        cls := item changeClass.
+        sel := item changeSelector.
+        cls notNil ifTrue:[
+            sel notNil ifTrue:[
+                UserPreferences current systemBrowserClass
+                    openInClass:cls selector:sel
+
+            ] ifFalse:[
+                UserPreferences current systemBrowserClass
+                    browseClass: cls
+            ]
+        ] ifFalse:[
+            Dialog warn: (self class resources at: 'Oops, class is gone')
+        ]
+    ] ifFalse:[
+        Dialog error: 'Not yet implemented (Tools::ChangeSetDiffTool>>listMenuBrowse)'.                        
+    ]
+
+    "Created: / 30-11-2011 / 11:30:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 listMenuInspect
 
     (self selection collect:[:e|e]) inspect
@@ -1453,7 +1481,7 @@
 !ChangeSetDiffTool class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffTool.st,v 1.3 2011-11-18 14:06:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffTool.st,v 1.4 2011-11-30 11:15:03 vrany Exp $'
 !
 
 version_SVN