[graphic-forms-cvs] r155 - trunk/src/uitoolkit/widgets

[junrue at common-lisp.net]

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)))