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>
Fri, 07 Jun 1996 20:06:03 +0200
changeset 613 048942111c7b
parent 612 986e371232a2
child 614 561229d704f5
checkin from browser
InspView.st file | annotate | diff | comparison | revisions
InspectorView.st file | annotate | diff | comparison | revisions 
--- a/InspView.st	Wed Jun 05 17:02:55 1996 +0200
+++ b/InspView.st	Fri Jun 07 20:06:03 1996 +0200
@@ -781,22 +781,24 @@
 
     |index instSize|
 
-    lineNr == 1 ifTrue:[
-	^ inspectedObject
+    (lineNr isNil or:[lineNr == 1]) ifTrue:[
+        ^ inspectedObject
     ].
     index := lineNr - 1.   "/ skip self
     instSize := inspectedObject class instSize.
 
     (inspectedObject class isVariable not
     or:[index <= instSize]) ifTrue:[
-	^ inspectedObject instVarAt:index
+        ^ inspectedObject instVarAt:index
     ].
     index := index - instSize.
     ^ inspectedObject basicAt:index
+
+    "Modified: 7.6.1996 / 20:05:40 / cg"
 ! !
 
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.50 1996-05-31 07:03:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.51 1996-06-07 18:06:03 cg Exp $'
 ! !
--- a/InspectorView.st	Wed Jun 05 17:02:55 1996 +0200
+++ b/InspectorView.st	Fri Jun 07 20:06:03 1996 +0200
@@ -781,22 +781,24 @@
 
     |index instSize|
 
-    lineNr == 1 ifTrue:[
-	^ inspectedObject
+    (lineNr isNil or:[lineNr == 1]) ifTrue:[
+        ^ inspectedObject
     ].
     index := lineNr - 1.   "/ skip self
     instSize := inspectedObject class instSize.
 
     (inspectedObject class isVariable not
     or:[index <= instSize]) ifTrue:[
-	^ inspectedObject instVarAt:index
+        ^ inspectedObject instVarAt:index
     ].
     index := index - instSize.
     ^ inspectedObject basicAt:index
+
+    "Modified: 7.6.1996 / 20:05:40 / cg"
 ! !
 
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.50 1996-05-31 07:03:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.51 1996-06-07 18:06:03 cg Exp $'
 ! !
hg/stx-libtool