8 lines
174 B
Smalltalk
8 lines
174 B
Smalltalk
|
accessing
|
||
|
|
pinned
|
||
|
|
| first second |
|
||
|
|
first := self messages first.
|
||
|
|
(first metadata at: 'pinned') = 1
|
||
|
|
ifFalse: [ ^ first ].
|
||
|
|
second := self messages second.
|
||
|
|
^ first created
|