[Openmcl-cvs-notifications] r9751 - /trunk/source/cocoa-ide/cocoa-utils.lisp

[mikel at clozure.com]

Author: mikel
Date: Fri Jun 13 19:33:10 2008
New Revision: 9751

Log:
added TODO to alert-window

Modified:
    trunk/source/cocoa-ide/cocoa-utils.lisp

Modified: trunk/source/cocoa-ide/cocoa-utils.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-utils.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-utils.lisp Fri Jun 13 19:33:10 2008
@@ -300,7 +300,7 @@
 ;;; -----------------------------------------------------------------
 ;;; utility to display a Cocoa alert window
 ;;; -----------------------------------------------------------------
-
+;;; TODO: Currently this form gives no indication which button was clicked=
. Probably it should do so.
 (defun alert-window (&key =

                      (title "Alert")
                      (message "Something happened.")