--- 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!