Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 01 Dec 1997 19:14:36 +0100
changeset 1377 0b4eb8d544b4
parent 1376 30f8625be34b
child 1378 f7cf4cf1baf2
checkin from browser
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions 
--- a/ConInspV.st	Wed Nov 26 19:59:36 1997 +0100
+++ b/ConInspV.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/Attic/ConInspV.st,v 1.37 1997-11-11 14:04:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.38 1997-12-01 18:14:36 cg Exp $'
 ! !
--- 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 $'
 ! !
hg/stx-libtool