ProtoObjectObjectWAPresenterWAComponentWAInputDialog
| label | value |
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| label |
|---|
| value |
|---|
| as yet unclassified |
|---|
| default: aString |
value _ aString |
| label |
^ label ifNil: [label _ 'OK'] |
| label: aString |
label _ aString |
| renderContentOn: html |
html form: [ html defaultAction: [self answer: value]. html textInputWithValue: value callback: [:v | value _ v]. html space. html submitButtonWithText: self label. ] |