equal
deleted
inserted
replaced
94 |
94 |
95 "Created: 19.6.1997 / 16:14:35 / cg" |
95 "Created: 19.6.1997 / 16:14:35 / cg" |
96 "Modified: 19.6.1997 / 16:15:44 / cg" |
96 "Modified: 19.6.1997 / 16:15:44 / cg" |
97 ! |
97 ! |
98 |
98 |
99 method |
|
100 "return the receiver's home method. |
|
101 That's the method where the block was created. |
|
102 Obsolete: use #homeMethod for ST80 compatibility." |
|
103 |
|
104 ^ method |
|
105 |
|
106 "Modified: 19.6.1997 / 16:15:58 / cg" |
|
107 ! |
|
108 |
|
109 selfValue |
99 selfValue |
110 "return the copied self" |
100 "return the copied self" |
111 |
101 |
112 ^ selfValue |
102 ^ selfValue |
113 ! |
103 ! |