6 lines
80 B
Smalltalk
6 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
|