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

Diff of /mcclim/frames.lisp

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

revision 1.127 by ahefner, Sun Mar 4 22:30:19 2007 UTC revision 1.128 by ahefner, Tue Jan 1 00:27:34 2008 UTC
# Line 364  documentation produced by presentations. Line 364  documentation produced by presentations.
364  (defmethod frame-exit ((frame standard-application-frame))  (defmethod frame-exit ((frame standard-application-frame))
365    (if (eq *application-frame* frame)    (if (eq *application-frame* frame)
366        (signal 'frame-exit :frame frame)        (signal 'frame-exit :frame frame)
367      (disown-frame (frame-manager frame) frame)))        (disown-frame (frame-manager frame) frame)))
368    
369  (defmethod frame-exit-frame ((c frame-exit))  (defmethod frame-exit-frame ((c frame-exit))
370    (%frame-exit-frame c))    (%frame-exit-frame c))
# Line 447  documentation produced by presentations. Line 447  documentation produced by presentations.
447                                 (call-next-method)))                                 (call-next-method)))
448                   (frame-layout-changed () nil)))                   (frame-layout-changed () nil)))
449        (let ((fm (frame-manager frame)))        (let ((fm (frame-manager frame)))
450          (case original-state          (case original-state
451            (:disabled            (:disabled
452             (disable-frame frame))             (disable-frame frame))
453            (:disowned            (:disowned
454             (disown-frame fm frame)))))))             (disown-frame fm frame)))))))
455    
456  (defparameter +default-prompt-style+ (make-text-style :fix :italic :normal))  (defparameter +default-prompt-style+ (make-text-style :fix :italic :normal))
457    
# Line 643  documentation produced by presentations. Line 643  documentation produced by presentations.
643    (note-frame-enabled (frame-manager frame) frame))    (note-frame-enabled (frame-manager frame) frame))
644    
645  (defmethod disable-frame ((frame application-frame))  (defmethod disable-frame ((frame application-frame))
646    (setf (sheet-enabled-p (frame-top-level-sheet frame)) nil)    (let ((t-l-s (frame-top-level-sheet frame)))
647        (setf (sheet-enabled-p t-l-s) nil)
648        (when (port t-l-s)
649          (port-force-output (port t-l-s))))
650    (setf (slot-value frame 'state) :disabled)    (setf (slot-value frame 'state) :disabled)
651    (note-frame-disabled (frame-manager frame) frame))    (note-frame-disabled (frame-manager frame) frame))
652    

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

  ViewVC Help
Powered by ViewVC 1.1.5