ProtoObjectObjectWAPresenterWAComponentWAFormDialogWAChoiceDialog
| options | selection |
| instance | class |
|---|---|
| as yet unclassified | as yet unclassified |
| options |
|---|
| selection |
|---|
| as yet unclassified |
|---|
| buttons |
^ #(ok cancel) |
| cancel |
self answer: nil |
| ok |
self answer: selection |
| options |
^ options |
| options: aCollection |
options _ aCollection |
| renderContentOn: html |
html selectFromList: options selected: nil callback: [:v | selection _ v] |
| as yet unclassified |
|---|
| options: aCollection |
^ self new options: aCollection |