diff -r 80c8f8e6bd15 -r 5009a2a7d0d0 BrowserView.st
--- a/BrowserView.st	Thu Jan 31 21:04:45 2002 +0100
+++ b/BrowserView.st	Fri Feb 01 13:09:49 2002 +0100
@@ -14493,72 +14493,72 @@
     |items m|
 
     currentClass isNil ifTrue:[
-	variableListView flash.
-	^ nil
+        variableListView flash.
+        ^ nil
     ].
 
     showInstance ifFalse:[
-	items := #(
-		    ('class instvar refs...'      classInstVarRefs    )
-		    ('class instvar mods...'      classInstVarMods    )
-		    ('classvar refs...'           classVarRefs        )
-		    ('classvar mods...'           classVarMods        )
-		    ('-'                           nil                 )
-		    ('all class instvar refs...'  allClassInstVarRefs )
-		    ('all class instvar mods...'  allClassInstVarMods )
-		    ('all classvar refs...'       allClassVarRefs     )
-		    ('all classvar mods...'       allClassVarMods     )
-		   ).
+        items := #(
+                    ('Class instvar refs...'      classInstVarRefs    )
+                    ('Class instvar mods...'      classInstVarMods    )
+                    ('Classvar refs...'           classVarRefs        )
+                    ('Classvar mods...'           classVarMods        )
+                    ('-'                           nil                 )
+                    ('All class instvar refs...'  allClassInstVarRefs )
+                    ('All class instvar mods...'  allClassInstVarMods )
+                    ('All classvar refs...'       allClassVarRefs     )
+                    ('All classvar mods...'       allClassVarMods     )
+                   ).
     ] ifTrue:[
-	items := #(
-		    ('instvar refs...'            instVarRefs         )
-		    ('instvar mods...'            instVarMods         )
-		    ('classvar refs...'           classVarRefs        )
-		    ('classvar mods...'           classVarMods        )
-		    ('-'                           nil                 )
-		    ('all instvar refs...'        allInstVarRefs      )
-		    ('all classvar refs...'       allClassVarRefs     )
-		    ('all instvar mods...'        allInstVarMods      )
-		    ('all classvar mods...'       allClassVarMods     )
-		   ).
+        items := #(
+                    ('Instvar refs...'            instVarRefs         )
+                    ('Instvar mods...'            instVarMods         )
+                    ('Classvar refs...'           classVarRefs        )
+                    ('Classvar mods...'           classVarMods        )
+                    ('-'                           nil                 )
+                    ('All instvar refs...'        allInstVarRefs      )
+                    ('All classvar refs...'       allClassVarRefs     )
+                    ('All instvar mods...'        allInstVarMods      )
+                    ('All classvar mods...'       allClassVarMods     )
+                   ).
     ].
 
     showInstance ifFalse:[
-	classInstVarsInVarList == true ifTrue:[
-	    items := items , #(('-') ('show classVars' showClassVars)).
-	] ifFalse:[
-	    items := items , #(('-') ('show classInstVars' showClassInstVars)).
-	].
+        classInstVarsInVarList == true ifTrue:[
+            items := items , #(('-') ('Show classVars' showClassVars)).
+        ] ifFalse:[
+            items := items , #(('-') ('Show classInstVars' showClassInstVars)).
+        ].
     ].
 
     ("showInstance and:[" variableListView hasSelection "]" ) ifTrue:[
-	items := items , #(
-				('-'                           )
-				('type information' varTypeInfo)
-			   ).
+        items := items , #(
+                                ('-'                           )
+                                ('Type information' varTypeInfo)
+                           ).
     ].
 
     ("showInstance not and:["variableListView hasSelection"]") ifTrue:[
-	items := items , #(
-				('inspect' varInspect)
-			   ).
+        items := items , #(
+                                ('Inspect' varInspect)
+                           ).
     ].
 
     m := PopUpMenu itemList:items resources:resources.
 
     currentClass instSize == 0 ifTrue:[
-	m disableAll:#(instVarRefs instVarMods).
-	currentClass subclasses size == 0 ifTrue:[
-	    m disableAll:#(allInstVarRefs allInstVarMods).
-	]
+        m disableAll:#(instVarRefs instVarMods).
+        currentClass subclasses size == 0 ifTrue:[
+            m disableAll:#(allInstVarRefs allInstVarMods).
+        ]
     ].
 
     currentClass isLoaded ifFalse:[
-	m disableAll
+        m disableAll
     ].
     ^ m
 
-    "Modified: / 15.10.1998 / 10:51:17 / cg"
+    "Modified: / 1.2.2002 / 13:02:36 / cg"
 !
 
 variableSelection:lineNr
@@ -14908,6 +14908,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.707 2002-01-24 18:29:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.708 2002-02-01 12:09:49 cg Exp $'
 ! !
 BrowserView initialize!