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

Diff of /mcclim/frames.lisp

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

revision 1.25 by mikemac, Mon Mar 18 19:57:50 2002 UTC revision 1.26 by moore, Wed Apr 3 01:08:30 2002 UTC
# Line 294  FRAME-EXIT condition.")) Line 294  FRAME-EXIT condition."))
294  ;;; Command loop interface  ;;; Command loop interface
295    
296  (define-condition frame-exit (condition)  (define-condition frame-exit (condition)
297    ((frame :initarg :frame :reader frame-exit-frame)))    ((frame :initarg :frame :reader %frame-exit-frame)))
298    
299  (defmethod frame-exit ((frame standard-application-frame))  (defmethod frame-exit ((frame standard-application-frame))
300    (signal 'frame-exit :frame frame))    (signal 'frame-exit :frame frame))
301    
302    (defmethod frame-exit-frame ((c frame-exit))
303      (%frame-exit-frame c))
304    
305  (defmethod run-frame-top-level ((frame application-frame))  (defmethod run-frame-top-level ((frame application-frame))
306    (handler-bind ((frame-exit #'(lambda (condition)    (handler-bind ((frame-exit #'(lambda (condition)
307                                   (return-from run-frame-top-level nil))))                                   (return-from run-frame-top-level nil))))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5