--- a/ContextInspectorView.st Sat Jan 11 23:55:10 1997 +0100
+++ b/ContextInspectorView.st Sun Jan 12 00:00:33 1997 +0100
@@ -200,19 +200,19 @@
numVars := aContext numVars.
(numArgs > 0 or:[numVars > 0]) ifTrue:[
- "/ special for #doIt
- "/ my source is found in the method.
- isDoIt ifTrue:[
- blockNode := Compiler
- blockAtLine:(aContext lineNumber)
- in:nil
- orSource:('[' , method source , '\]') withCRs
- numArgs:numArgs
- numVars:numVars.
+ method notNil ifTrue:[
+ isDoIt ifTrue:[
+ "/ special for #doIt
+ "/ my source is found in the method.
+ blockNode := Compiler
+ blockAtLine:(aContext lineNumber)
+ in:nil
+ orSource:('[' , method source , '\]') withCRs
+ numArgs:numArgs
+ numVars:numVars.
- ] ifFalse:[
- method notNil ifTrue:[
+ ] ifFalse:[
blockNode := Compiler
blockAtLine:(aContext lineNumber)
in:method
@@ -274,7 +274,7 @@
workspace contents:nil.
self setDoitActionIn:workspace for:aContext.
- "Modified: 11.1.1997 / 23:51:59 / cg"
+ "Modified: 12.1.1997 / 00:00:21 / cg"
!
release
@@ -438,5 +438,5 @@
!ContextInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.30 1997-01-11 22:55:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.31 1997-01-11 23:00:33 cg Exp $'
! !