9 lines
416 B
Smalltalk
9 lines
416 B
Smalltalk
accessing
|
|
ifEmpty: aBlock
|
|
"Evaluate the given block, answering its value if the receiver is empty, otherwise answer the receiver."
|
|
|
|
"Note that the fact that this method returns its receiver in case the receiver is not empty allows one to write expressions like the following ones: self classifyMethodAs: (myProtocol ifEmpty: ['As yet unclassified'])"
|
|
|
|
^ self isEmpty
|
|
ifTrue: [ aBlock value ]
|
|
ifFalse: [ self ] |