--- a/InspectorView.st	Wed May 01 18:25:23 1996 +0200
+++ b/InspectorView.st	Fri May 03 13:46:26 1996 +0200
@@ -378,49 +378,60 @@
 !InspectorView methodsFor:'menu actions'!
 
 browse
-    |objectToBrowseClass|
+    |objectToBrowseClass cls|
+
+    selectedLine notNil ifTrue:[
+        objectToBrowseClass := self valueAtLine:selectedLine.
+    ] ifFalse:[
+        objectToBrowseClass := inspectedObject
+    ].
+    cls := objectToBrowseClass class.
+    cls browserClass openInClass:cls selector:nil
+
+    "Created: 14.12.1995 / 19:15:50 / cg"
+    "Modified: 3.5.1996 / 12:39:51 / cg"
+!
+
+browseClass
+    |objectToBrowseClass cls|
 
     selectedLine notNil ifTrue:[
         objectToBrowseClass := self valueAtLine:selectedLine.
     ] ifFalse:[
         objectToBrowseClass := inspectedObject
     ].
-    SystemBrowser openInClass:objectToBrowseClass class selector:nil
-
-    "Created: 14.12.1995 / 19:15:50 / cg"
-!
+    cls := objectToBrowseClass class.
+    cls browserClass browseClass:cls
 
-browseClass
-    |objectToBrowseClass|
-
-    selectedLine notNil ifTrue:[
-	objectToBrowseClass := self valueAtLine:selectedLine.
-    ] ifFalse:[
-	objectToBrowseClass := inspectedObject
-    ].
-    SystemBrowser browseClass:objectToBrowseClass class
+    "Modified: 3.5.1996 / 12:39:32 / cg"
 !
 
 browseClassHierarchy
-    |objectToBrowseClass|
+    |objectToBrowseClass cls|
 
     selectedLine notNil ifTrue:[
-	objectToBrowseClass := self valueAtLine:selectedLine.
+        objectToBrowseClass := self valueAtLine:selectedLine.
     ] ifFalse:[
-	objectToBrowseClass := inspectedObject
+        objectToBrowseClass := inspectedObject
     ].
-    SystemBrowser browseClassHierarchy:objectToBrowseClass class
+    cls := objectToBrowseClass class.
+    cls browserClass browseClassHierarchy:cls
+
+    "Modified: 3.5.1996 / 12:40:04 / cg"
 !
 
 browseFullClassProtocol
-    |objectToBrowseClass|
+    |objectToBrowseClass cls|
 
     selectedLine notNil ifTrue:[
-	objectToBrowseClass := self valueAtLine:selectedLine.
+        objectToBrowseClass := self valueAtLine:selectedLine.
     ] ifFalse:[
-	objectToBrowseClass := inspectedObject
+        objectToBrowseClass := inspectedObject
     ].
-    SystemBrowser browseFullClassProtocol:objectToBrowseClass class
+    cls := objectToBrowseClass class.
+    cls browserClass browseFullClassProtocol:cls
+
+    "Modified: 3.5.1996 / 12:40:17 / cg"
 !
 
 doBasicInspect
@@ -766,5 +777,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.44 1996-04-25 16:32:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.45 1996-05-03 11:46:26 cg Exp $'
 ! !