--- a/ConInspV.st Tue Jan 21 22:29:34 1997 +0100
+++ b/ConInspV.st Wed Jan 22 02:25:31 1997 +0100
@@ -159,11 +159,17 @@
"/ the methods source does not correctly reflect
"/ the number of args&vars in the context.
"/ either outDated, or somehow strange.
+ "/ (happens with wrapped methods, which are not
+ "/ what they look)
numVarsInSource > numVarsInContext ifTrue:[
homeNames := homeNames copyTo:numVarsInContext.
] ifFalse:[
- homeNames := nil
+ numVarsInContext >= homeContext numArgs ifTrue:[
+ homeNames := homeNames copyTo:homeContext numArgs
+ ] ifFalse:[
+ homeNames := nil
+ ]
]
]
]
@@ -274,7 +280,7 @@
workspace contents:nil.
self setDoitActionIn:workspace for:aContext.
- "Modified: 12.1.1997 / 00:00:21 / cg"
+ "Modified: 22.1.1997 / 02:25:12 / cg"
!
release
@@ -438,5 +444,5 @@
!ContextInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.31 1997-01-11 23:00:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.32 1997-01-22 01:25:31 cg Exp $'
! !
--- a/ContextInspectorView.st Tue Jan 21 22:29:34 1997 +0100
+++ b/ContextInspectorView.st Wed Jan 22 02:25:31 1997 +0100
@@ -159,11 +159,17 @@
"/ the methods source does not correctly reflect
"/ the number of args&vars in the context.
"/ either outDated, or somehow strange.
+ "/ (happens with wrapped methods, which are not
+ "/ what they look)
numVarsInSource > numVarsInContext ifTrue:[
homeNames := homeNames copyTo:numVarsInContext.
] ifFalse:[
- homeNames := nil
+ numVarsInContext >= homeContext numArgs ifTrue:[
+ homeNames := homeNames copyTo:homeContext numArgs
+ ] ifFalse:[
+ homeNames := nil
+ ]
]
]
]
@@ -274,7 +280,7 @@
workspace contents:nil.
self setDoitActionIn:workspace for:aContext.
- "Modified: 12.1.1997 / 00:00:21 / cg"
+ "Modified: 22.1.1997 / 02:25:12 / cg"
!
release
@@ -438,5 +444,5 @@
!ContextInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.31 1997-01-11 23:00:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.32 1997-01-22 01:25:31 cg Exp $'
! !