--- a/ContextInspectorView.st Wed Nov 26 19:59:36 1997 +0100
+++ b/ContextInspectorView.st Mon Dec 01 19:14:36 1997 +0100
@@ -244,7 +244,9 @@
].
blockNode := blockNode home.
].
- tempNames replaceFrom:1 to:tempNames size with:realTempNames.
+ tempNames
+ replaceFrom:1 to:(tempNames size min:realTempNames size)
+ with:realTempNames.
].
homeNames := homeNames asOrderedCollection.
@@ -335,7 +337,7 @@
workspace contents:nil.
self setDoitActionIn:workspace for:aContext.
- "Modified: / 8.11.1997 / 19:39:53 / cg"
+ "Modified: / 29.11.1997 / 20:12:58 / cg"
!
release
@@ -503,5 +505,5 @@
!ContextInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.37 1997-11-11 14:04:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.38 1997-12-01 18:14:36 cg Exp $'
! !