Mercurial Mercurial > hg > stx-libbasic / 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.
search backward when asking for an instVarOffset
authorClaus Gittinger <cg@exept.de>
Mon, 07 Apr 1997 19:33:25 +0200
changeset 2533 ef63067451fa
parent 2532 e555281237f1
child 2534 6ac73e757c70
search backward when asking for an instVarOffset (in case of redefines)
ClassDescr.st file | annotate | diff | comparison | revisions
ClassDescription.st file | annotate | diff | comparison | revisions 
--- a/ClassDescr.st	Mon Apr 07 19:29:49 1997 +0200
+++ b/ClassDescr.st	Mon Apr 07 19:33:25 1997 +0200
@@ -142,7 +142,9 @@
      variable. The returned number is 1..instSize for valid variable names, nil for
      illegal names."
 
-    ^ self allInstVarNames indexOf:aVariableName ifAbsent:nil
+    ^ self allInstVarNames lastIndexOf:aVariableName ifAbsent:nil
+
+    "Modified: 7.4.1997 / 16:59:39 / cg"
 !
 
 instanceVariableOffsets
@@ -1104,5 +1106,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.43 1997-04-01 16:04:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.44 1997-04-07 17:33:25 cg Exp $'
 ! !
--- a/ClassDescription.st	Mon Apr 07 19:29:49 1997 +0200
+++ b/ClassDescription.st	Mon Apr 07 19:33:25 1997 +0200
@@ -142,7 +142,9 @@
      variable. The returned number is 1..instSize for valid variable names, nil for
      illegal names."
 
-    ^ self allInstVarNames indexOf:aVariableName ifAbsent:nil
+    ^ self allInstVarNames lastIndexOf:aVariableName ifAbsent:nil
+
+    "Modified: 7.4.1997 / 16:59:39 / cg"
 !
 
 instanceVariableOffsets
@@ -1104,5 +1106,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.43 1997-04-01 16:04:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.44 1997-04-07 17:33:25 cg Exp $'
 ! !
hg/stx-libbasic