ProtoObjectObjectWAPresenterWAComponentWASelection
| items | labelBlock |
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| items |
|---|
| labelBlock |
|---|
| as yet unclassified |
|---|
| initialize |
items _ #(). labelBlock _ [:ea | ea asString]. |
| items: aCollection |
items _ aCollection |
| labelBlock: aBlock |
labelBlock _ aBlock |
| renderContentOn: html |
html list: items do: [:ea | html anchorWithAction: [self answer: ea] text: (labelBlock value: ea)] |