--- a/Structure.st Fri Sep 20 20:33:14 1996 +0200
+++ b/Structure.st Sat Sep 21 16:13:16 1996 +0200
@@ -12,7 +12,9 @@
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'
+ i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20 i21
+ i22 i23 i24 i25 i26 i27 i28 i29 i30 i31 i32 i33 i34 i35 i36 i37
+ i38 i39 i40 i41 i42 i43 i44 i45 i46 i47 i48 i49 i50'
classVariableNames:'OneInstance DummyClass ReadAccessMethods WriteAccessMethods
OtherMethods'
poolDictionaries:''
@@ -69,6 +71,9 @@
Another prove that smalltalk is a powerful & flexible programming language.
However, some smalltalk systems crash if your try this ;-)
+ CAVEAT:
+ a maximum of 50 instance variables is allowed.
+
[author:]
Claus Gittinger
@@ -118,11 +123,11 @@
DummyClass := Behavior shallowCopy.
DummyClass flags:(Behavior flagBehavior bitOr:Behavior flagPointers).
- ReadAccessMethods := (1 to:20)
+ ReadAccessMethods := (1 to:50)
collect:[:i |
(self compiledMethodAt:('i', i printString) asSymbol)
].
- WriteAccessMethods := (1 to:20)
+ WriteAccessMethods := (1 to:50)
collect:[:i |
(self compiledMethodAt:('i', i printString,':') asSymbol)
].
@@ -141,6 +146,7 @@
self initialize.
"
+ "Modified: 21.9.1996 / 16:01:48 / cg"
! !
!Structure class methodsFor:'instance creation'!
@@ -487,6 +493,150 @@
"Created: 13.5.1996 / 21:19:29 / cg"
!
+i21
+ "return i21"
+
+ ^ i21
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i21:something
+ "set i21"
+
+ i21 := something.
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i22
+ "return i22"
+
+ ^ i22
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i22:something
+ "set i22"
+
+ i22 := something.
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i23
+ "return i23"
+
+ ^ i23
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i23:something
+ "set i23"
+
+ i23 := something.
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i24
+ "return i24"
+
+ ^ i24
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i24:something
+ "set i24"
+
+ i24 := something.
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i25
+ "return i25"
+
+ ^ i25
+
+ "Created: 21.9.1996 / 16:06:21 / cg"
+!
+
+i25:something
+ "set i25"
+
+ i25 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i26
+ "return i26"
+
+ ^ i26
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i26:something
+ "set i26"
+
+ i26 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i27
+ "return i27"
+
+ ^ i27
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i27:something
+ "set i27"
+
+ i27 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i28
+ "return i28"
+
+ ^ i28
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i28:something
+ "set i28"
+
+ i28 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i29
+ "return i29"
+
+ ^ i29
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i29:something
+ "set i29"
+
+ i29 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
i2:something
"set i2"
@@ -503,6 +653,158 @@
"Created: 13.5.1996 / 21:19:25 / cg"
!
+i30:something
+ "set i30"
+
+ i30 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i31
+ "return i31"
+
+ ^ i31
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i31:something
+ "set i31"
+
+ i31 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i32
+ "return i32"
+
+ ^ i32
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i32:something
+ "set i32"
+
+ i32 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i33
+ "return i33"
+
+ ^ i33
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i33:something
+ "set i33"
+
+ i33 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i34
+ "return i34"
+
+ ^ i34
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i34:something
+ "set i34"
+
+ i34 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i35
+ "return i35"
+
+ ^ i35
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i35:something
+ "set i35"
+
+ i35 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i36
+ "return i36"
+
+ ^ i36
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i36:something
+ "set i36"
+
+ i36 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i37
+ "return i37"
+
+ ^ i37
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i37:something
+ "set i37"
+
+ i37 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i38
+ "return i38"
+
+ ^ i38
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i38:something
+ "set i38"
+
+ i38 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i39
+ "return i39"
+
+ ^ i39
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i39:something
+ "set i39"
+
+ i39 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
i3:something
"set i3"
@@ -519,6 +821,158 @@
"Created: 13.5.1996 / 21:19:25 / cg"
!
+i40:something
+ "set i40"
+
+ i40 := something.
+
+ "Created: 21.9.1996 / 16:06:22 / cg"
+!
+
+i41
+ "return i41"
+
+ ^ i41
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i41:something
+ "set i41"
+
+ i41 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i42
+ "return i42"
+
+ ^ i42
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i42:something
+ "set i42"
+
+ i42 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i43
+ "return i43"
+
+ ^ i43
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i43:something
+ "set i43"
+
+ i43 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i44
+ "return i44"
+
+ ^ i44
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i44:something
+ "set i44"
+
+ i44 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i45
+ "return i45"
+
+ ^ i45
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i45:something
+ "set i45"
+
+ i45 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i46
+ "return i46"
+
+ ^ i46
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i46:something
+ "set i46"
+
+ i46 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i47
+ "return i47"
+
+ ^ i47
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i47:something
+ "set i47"
+
+ i47 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i48
+ "return i48"
+
+ ^ i48
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i48:something
+ "set i48"
+
+ i48 := something.
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i49
+ "return i49"
+
+ ^ i49
+
+ "Created: 21.9.1996 / 16:06:23 / cg"
+!
+
+i49:something
+ "set i49"
+
+ i49 := something.
+
+ "Created: 21.9.1996 / 16:06:24 / cg"
+!
+
i4:something
"set i4"
@@ -535,6 +989,22 @@
"Created: 13.5.1996 / 21:19:26 / cg"
!
+i50
+ "return i50"
+
+ ^ i50
+
+ "Created: 21.9.1996 / 16:06:24 / cg"
+!
+
+i50:something
+ "set i50"
+
+ i50 := something.
+
+ "Created: 21.9.1996 / 16:06:24 / cg"
+!
+
i5:something
"set i5"
@@ -855,6 +1325,6 @@
!Structure class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.3 1996-07-03 09:01:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.4 1996-09-21 14:13:16 cg Exp $'
! !
Structure initialize!