--- a/Structure.st Tue Dec 05 15:55:55 2000 +0100
+++ b/Structure.st Sun Dec 10 14:08:48 2000 +0100
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
Object subclass:#Structure
instanceVariableNames:'superclass flags methodDictionary otherSupers instSize i1 i2 i3
i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20 i21
@@ -868,7 +870,8 @@
i40
"return the value of the instance variable 'i40' (automatically generated)"
- ^ i40!
+ ^ i40
+!
i40:something
"prototype method"
@@ -1230,6 +1233,17 @@
^ nil
].
+ (sel == #'perform:') ifTrue:[
+ ^ super perform:(args at:1)
+ ].
+
+ (sel == #'=') ifTrue:[
+ ^ super = (args at:1)
+ ].
+ (sel == #'~=') ifTrue:[
+ ^ super ~= (args at:1)
+ ].
+
(sel == #size
or:[sel == #basicSize]) ifTrue:[
^ super basicSize
@@ -1353,6 +1367,6 @@
!Structure class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.11 2000-02-23 10:21:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.12 2000-12-10 13:08:48 cg Exp $'
! !
Structure initialize!