BrowserView.st
changeset 441 fe36c7fece30
parent 439 4fadc7ad7a6c
child 442 30b20fd70dd5
--- a/BrowserView.st	Tue Mar 19 14:44:43 1996 +0100
+++ b/BrowserView.st	Thu Mar 21 17:35:20 1996 +0100
@@ -5706,6 +5706,7 @@
 updateCodeView
     |code|
 
+aspect printNL.
     aspect == #hierarchy ifTrue:[
         ^ self classHierarchy
     ].
@@ -5727,15 +5728,16 @@
     aspect == #revisionInfo ifTrue:[
         ^ self classRevisionInfo
     ].
-    aspect == #definition ifTrue:[
-        ^ self classDefinition
-    ].
 
     fullClass ifTrue:[
         currentClass notNil ifTrue:[
             code := currentClass source.
         ]
     ] ifFalse:[
+        aspect == #definition ifTrue:[
+            ^ self classDefinition
+        ].
+
         currentMethod notNil ifTrue:[
             (codeView acceptAction isNil
             and:[actualClass notNil 
@@ -5753,7 +5755,7 @@
     self normalLabel.
 
     "Created: 23.11.1995 / 14:16:43 / cg"
-    "Modified: 9.2.1996 / 02:25:03 / cg"
+    "Modified: 21.3.1996 / 17:33:49 / cg"
 ! !
 
 !BrowserView methodsFor:'private'!
@@ -6948,6 +6950,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.113 1996-03-18 12:00:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.114 1996-03-21 16:35:20 cg Exp $'
 ! !
 BrowserView initialize!