Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv16322

Modified Files: dialog.lisp Log Message: FRAME-MANAGER-NOTIFY-USER Use :calling-frame, leave shareing the event queue to the calling frame to what ever magic does it correctly in that case.

--- /project/mcclim/cvsroot/mcclim/dialog.lisp 2008/12/07 03:22:54 1.31 +++ /project/mcclim/cvsroot/mcclim/dialog.lisp 2009/08/01 22:17:02 1.32 @@ -737,7 +737,7 @@ ;; Keywords from notify-user: ;; associated-window title documentation exit-boxes name style text-style (let ((frame (make-application-frame 'generic-notify-user-frame - :frame-event-queue (and frame (frame-event-queue frame)) + :calling-frame frame :pretty-name title :message-string message-string :frame-manager frame-manager