ProtoObjectObjectWAPresenterWAComponentWAFormDialogWALabelledFormDialogWAEditDialog
- BookReviewForm
- GuestbookEntryEditor
| model | snapshot |
| instance | class |
|---|---|
| as yet unclassified | as yet unclassified |
| model |
|---|
| snapshot |
|---|
| as yet unclassified |
|---|
| buttons |
^ #(save cancel) |
| cancel |
self rollback. self answer: false |
| model |
^ model |
| model: anObject |
model _ anObject. self snapshot. |
| rollback |
model copyFrom: snapshot |
| save |
self validate. self isValid ifTrue: [self answer: true] |
| snapshot |
snapshot _ model clone |
| validate |
| as yet unclassified |
|---|
| model: anObject |
^ self new model: anObject |