/[mcclim]/mcclim/frames.lisp
ViewVC logotype

Diff of /mcclim/frames.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by adejneka, Fri Jul 12 06:30:51 2002 UTC revision 1.44 by adejneka, Mon Jul 15 13:22:54 2002 UTC
# Line 301  FRAME-EXIT condition.")) Line 301  FRAME-EXIT condition."))
301  (defmethod frame-exit-frame ((c frame-exit))  (defmethod frame-exit-frame ((c frame-exit))
302    (%frame-exit-frame c))    (%frame-exit-frame c))
303    
304  (defmethod run-frame-top-level ((frame application-frame))  (defmethod run-frame-top-level ((frame application-frame) &key &allow-other-keys)
305    (handler-bind ((frame-exit #'(lambda (condition)    (handler-bind ((frame-exit #'(lambda (condition)
306                                   (declare (ignore condition))                                   (declare (ignore condition))
307                                   (return-from run-frame-top-level nil))))                                   (return-from run-frame-top-level nil))))
308      (apply (first (frame-top-level frame)) frame (rest (frame-top-level frame)))))      (apply (first (frame-top-level frame)) frame (rest (frame-top-level frame)))))
309    
310  (defmethod run-frame-top-level :around ((frame application-frame))  (defmethod run-frame-top-level :around ((frame application-frame) &key)
311    (let ((*application-frame* frame)    (let ((*application-frame* frame)
312          (*input-context* nil)          (*input-context* nil)
313          (*input-wait-test* nil)          (*input-wait-test* nil)

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

  ViewVC Help
Powered by ViewVC 1.1.5