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

Diff of /mcclim/frames.lisp

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

revision 1.21 by mikemac, Wed Feb 27 21:14:20 2002 UTC revision 1.22 by mikemac, Wed Feb 27 23:13:34 2002 UTC
# Line 158  If there are no named panes, only the si Line 158  If there are no named panes, only the si
158  ;(defgeneric frame-current-layout (frame))  ;(defgeneric frame-current-layout (frame))
159  ;(defgeneric frame-all-layouts (frame)) ; XXX Is it in Spec?  ;(defgeneric frame-all-layouts (frame)) ; XXX Is it in Spec?
160  (defgeneric layout-frame (frame &optional width height))  (defgeneric layout-frame (frame &optional width height))
161  ;(defgeneric frame-exit-frame (condition) ; XXX Is it in Spec?  (defgeneric frame-exit-frame (condition)
162  ;  (:documentation    (:documentation
163  ;   "Returns the frame that is being exited from associated with the     "Returns the frame that is being exited from associated with the
164  ;FRAME-EXIT condition."))  FRAME-EXIT condition."))
165  (defgeneric frame-exit (frame) ; XXX Is it in Spec?  (defgeneric frame-exit (frame) ; XXX Is it in Spec?
166    (:documentation    (:documentation
167     "Exits from the FRAME."))     "Exits from the FRAME."))
# Line 273  If there are no named panes, only the si Line 273  If there are no named panes, only the si
273    
274  ;;; Command loop interface  ;;; Command loop interface
275    
276    (define-condition frame-exit (condition)
277      ((frame :initarg :frame :reader frame-exit-frame)))
278    
279    (defmethod frame-exit ((frame standard-application-frame))
280      (signal 'frame-exit :frame frame))
281    
282  (defmethod run-frame-top-level ((frame application-frame))  (defmethod run-frame-top-level ((frame application-frame))
283    (apply (first (frame-top-level frame)) frame (rest (frame-top-level frame))))    (handler-bind ((frame-exit #'(lambda (condition)
284                                     (return-from run-frame-top-level nil))))
285        (apply (first (frame-top-level frame)) frame (rest (frame-top-level frame)))))
286    
287  (defmethod run-frame-top-level :around ((frame application-frame))  (defmethod run-frame-top-level :around ((frame application-frame))
288    (let ((*application-frame* frame)    (let ((*application-frame* frame)
# Line 585  If there are no named panes, only the si Line 593  If there are no named panes, only the si
593              (highlight-presentation-1 presentation              (highlight-presentation-1 presentation
594                                        stream                                        stream
595                                        :highlight)))))                                        :highlight)))))
   

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5