ContextInspectorView.st
changeset 948 ef10b395d9aa
parent 947 b9625d9b0881
child 976 95a817dc94a2
--- 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 $'
 ! !