--- a/BrowserView.st	Thu Aug 31 15:26:53 1995 +0200
+++ b/BrowserView.st	Thu Sep 07 14:53:52 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.26 1995-08-31 13:26:34 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.27 1995-09-07 12:52:56 claus Exp $
 '!
 
 !BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.26 1995-08-31 13:26:34 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.27 1995-09-07 12:52:56 claus Exp $
 "
 !
 
@@ -135,7 +135,11 @@
 	s := 'HELP_VAR_LIST'
     ].
     aComponent == codeView ifTrue:[
-	s := 'HELP_CODE_VIEW'
+	fullClass ifTrue:[
+	    s := 'HELP_FULLCODE_VIEW'
+	] ifFalse:[
+	    s := 'HELP_CODE_VIEW'
+	]
     ].
     (aComponent == instanceToggle 
     or:[aComponent == classToggle]) ifTrue:[
@@ -149,7 +153,7 @@
     ].
     ^ nil
 
-    "Modified: 29.8.1995 / 23:11:45 / claus"
+    "Modified: 31.8.1995 / 19:11:39 / claus"
 ! !
 
 !BrowserView methodsFor:'misc'!
@@ -1255,7 +1259,7 @@
     self methodCategorySelectionChanged
 ! !
 
-!BrowserView methodsFor:'dependencies'!
+!BrowserView methodsFor:'change & update'!
 
 update:something with:someArgument from:changedObject
     |list|
@@ -1995,6 +1999,9 @@
 !BrowserView methodsFor:'class stuff'!
 
 switchToClass:newClass
+    "switch to some other class;
+     keep instance protocol as it was ..."
+
     |cls meta|
 
     fullProtocol ifTrue:[^ self].
@@ -2007,15 +2014,18 @@
 	currentClass removeDependent:self
     ].
     currentClass := cls.
-    actualClass := acceptClass := newClass.
+    showInstance ifTrue:[
+       actualClass := acceptClass := cls.
+    ] ifFalse:[
+       actualClass := acceptClass := cls class.
+    ].
 
     currentClass notNil ifTrue:[
 	currentClass addDependent:self.
     ].
     self normalLabel.
-    self instanceProtocol:meta not
-
-    "Modified: 31.8.1995 / 11:57:28 / claus"
+
+    "Modified: 1.9.1995 / 01:04:05 / claus"
 !
 
 classSelectionChanged
@@ -2294,10 +2304,11 @@
     |meta str classSymbol theClass newCat element|
 
     meta := false.
+    str := aString.
     classSymbol := aString asSymbolIfInterned.
     classSymbol isNil ifTrue:[
-	(aString endsWith:' class') ifTrue:[
-	    str := aString copyWithoutLast:6.
+	(aString endsWith:'class') ifTrue:[
+	    str := aString copyWithoutLast:5.
 	    classSymbol := str asSymbolIfInterned.
 	    classSymbol isNil ifTrue:[
 		^ self
@@ -2307,6 +2318,16 @@
     ].
 
     theClass := Smalltalk at:classSymbol.
+    (theClass isNil and:[str endsWith:'class']) ifTrue:[
+	str := str copyWithoutLast:5.
+	classSymbol := str asSymbolIfInterned.
+	classSymbol isNil ifTrue:[
+	    ^ self
+	].
+	meta := true.
+	theClass := Smalltalk at:classSymbol.
+    ].
+
     theClass == currentClass ifTrue:[^ self].
 
     theClass isBehavior ifTrue:[
@@ -2326,10 +2347,13 @@
 	].
 	self updateClassList.
 	self switchToClass:theClass.
-	classListView selectElement:aString.
+
+	classListView selectElement:str.
 	self instanceProtocol:meta not.
 	self classSelectionChanged
     ]
+
+    "Modified: 1.9.1995 / 01:41:35 / claus"
 !
 
 classClassDefinitionTemplateFor:name in:cat
@@ -3423,7 +3447,7 @@
 	self switchToMethodNamed:aSelectorString.
     ].
 
-    "Modified: 31.8.1995 / 12:02:14 / claus"
+    "Modified: 1.9.1995 / 01:39:58 / claus"
 !
 
 listOfAllClassCategories