equal
deleted
inserted
replaced
88 |
88 |
89 selfValue |
89 selfValue |
90 "return the copied self" |
90 "return the copied self" |
91 |
91 |
92 ^ selfValue |
92 ^ selfValue |
|
93 ! |
|
94 |
|
95 setMethod:aMethod |
|
96 "set the receivers home method. |
|
97 This is a private entry for the compiler" |
|
98 |
|
99 method := aMethod |
|
100 |
|
101 "Created: 21.10.1996 / 13:58:29 / cg" |
93 ! ! |
102 ! ! |
94 |
103 |
95 !CheapBlock methodsFor:'printing & storing'! |
104 !CheapBlock methodsFor:'printing & storing'! |
96 |
105 |
97 printOn:aStream |
106 printOn:aStream |
125 ! ! |
134 ! ! |
126 |
135 |
127 !CheapBlock class methodsFor:'documentation'! |
136 !CheapBlock class methodsFor:'documentation'! |
128 |
137 |
129 version |
138 version |
130 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CheapBlk.st,v 1.14 1996-04-25 16:49:05 cg Exp $' |
139 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CheapBlk.st,v 1.15 1996-10-21 13:05:28 cg Exp $' |
131 ! ! |
140 ! ! |