7 lines
80 B
Smalltalk
7 lines
80 B
Smalltalk
|
p := Point x:10 y:20.
|
||
|
|
addSlot value:p value:'z'.
|
||
|
|
p z:30.
|
||
|
|
p z.
|
||
|
|
p z:40.
|
||
|
|
p inspect
|