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.
basicInspect should really be a basicInspect
authorClaus Gittinger <cg@exept.de>
Thu, 13 Jun 1996 17:26:28 +0200
changeset 621 d056e865b17a
parent 620 3ce270dbff3b
child 622 9d02b3440252
basicInspect should really be a basicInspect
InspView.st file | annotate | diff | comparison | revisions
InspectorView.st file | annotate | diff | comparison | revisions 
--- a/InspView.st	Thu Jun 13 00:14:15 1996 +0200
+++ b/InspView.st	Thu Jun 13 17:26:28 1996 +0200
@@ -588,20 +588,20 @@
             n := nShown.
             hasMore := true.
         ].
-        (inspectedObject respondsTo:#keys) ifTrue:[
-            s := ReadStream on:(inspectedObject keys).
-            1 to:n do:[:index |
-                aList add:(s next printString)
-            ]
-        ] ifFalse:[
+"/        (inspectedObject respondsTo:#keys) ifTrue:[
+"/            s := ReadStream on:(inspectedObject keys).
+"/            1 to:n do:[:index |
+"/                aList add:(s next printString)
+"/            ]
+"/        ] ifFalse:[
             1 to:n do:[:index |
                 aList add:(index printString)
-            ]
-        ].
+            ].
+"/        ].
     ].
     ^ aList
 
-    "Modified: 7.5.1996 / 12:53:44 / cg"
+    "Modified: 13.6.1996 / 17:17:42 / cg"
 !
 
 hasSelfEntry
@@ -800,5 +800,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.51 1996-06-07 18:06:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.52 1996-06-13 15:26:28 cg Exp $'
 ! !
--- a/InspectorView.st	Thu Jun 13 00:14:15 1996 +0200
+++ b/InspectorView.st	Thu Jun 13 17:26:28 1996 +0200
@@ -588,20 +588,20 @@
             n := nShown.
             hasMore := true.
         ].
-        (inspectedObject respondsTo:#keys) ifTrue:[
-            s := ReadStream on:(inspectedObject keys).
-            1 to:n do:[:index |
-                aList add:(s next printString)
-            ]
-        ] ifFalse:[
+"/        (inspectedObject respondsTo:#keys) ifTrue:[
+"/            s := ReadStream on:(inspectedObject keys).
+"/            1 to:n do:[:index |
+"/                aList add:(s next printString)
+"/            ]
+"/        ] ifFalse:[
             1 to:n do:[:index |
                 aList add:(index printString)
-            ]
-        ].
+            ].
+"/        ].
     ].
     ^ aList
 
-    "Modified: 7.5.1996 / 12:53:44 / cg"
+    "Modified: 13.6.1996 / 17:17:42 / cg"
 !
 
 hasSelfEntry
@@ -800,5 +800,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.51 1996-06-07 18:06:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.52 1996-06-13 15:26:28 cg Exp $'
 ! !
hg/stx-libtool