"Edit an instance, possibly a newly created one"
(call 'crud-editor :instance instance))
"Edit an instance, possibly a newly created one"
(call 'crud-editor :instance instance))
(when (call 'option-dialog
:message (format nil "Really Delete ~A" (display-as-string instance))
:options '((t "Yes, really delete it,")
(when (call 'option-dialog
:message (format nil "Really Delete ~A" (display-as-string instance))
:options '((t "Yes, really delete it,")
"This one does a little magic, see SYNC-INSTANCE"
(meta-model::sync-instance (instance self)))
"This one does a little magic, see SYNC-INSTANCE"
(meta-model::sync-instance (instance self)))
:action (create-instance object (db-class object))
(<:as-html "(Create New " (db-class object) ")"))))
:action (create-instance object (db-class object))
(<:as-html "(Create New " (db-class object) ")"))))