[mcclim-cvs] CVS mcclim

[gbaumann]

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