Author: junrue Date: Thu Jun 8 17:16:12 2006 New Revision: 155 Modified: trunk/src/uitoolkit/widgets/dialog.lisp Log: got rid of default event-close method for dialogs, applications must explicitly decide when dialogs are to be closed Modified: trunk/src/uitoolkit/widgets/dialog.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/dialog.lisp (original) +++ trunk/src/uitoolkit/widgets/dialog.lisp Thu Jun 8 17:16:12 2006 @@ -174,9 +174,11 @@ ;; (init-window self +dialog-classname+ #'register-dialog-class owner text)) +#| (defmethod event-close ((self event-dispatcher) (dlg dialog) time) (declare (ignore time)) (show dlg nil)) +|# (defmethod show ((self dialog) flag) (let ((app-modal (find :application-modal (style-of self)))