*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 10 Feb 2004 18:09:54 +0100
changeset 1481 c6804dfaf78a
parent 1480 9a68e871b2ec
child 1482 d80c83f1167a
*** empty log message ***
Structure.st
--- a/Structure.st	Fri Feb 06 11:49:04 2004 +0100
+++ b/Structure.st	Tue Feb 10 18:09:54 2004 +0100
@@ -1255,6 +1255,14 @@
         nr == 4 ifTrue:[^ i4].
         nr == 5 ifTrue:[^ i5].
         nr == 6 ifTrue:[^ i6].
+        nr == 7 ifTrue:[^ i7].
+        nr == 8 ifTrue:[^ i8].
+        nr == 9 ifTrue:[^ i9].
+        nr == 10 ifTrue:[^ i10].
+        nr == 11 ifTrue:[^ i11].
+        nr == 12 ifTrue:[^ i12].
+        nr == 13 ifTrue:[^ i13].
+        nr == 14 ifTrue:[^ i14].
         ^ nil
     ].
 
@@ -1408,7 +1416,7 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.17 2003-06-05 18:39:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.18 2004-02-10 17:09:54 cg Exp $'
 ! !
 
 Structure initialize!