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

Diff of /mcclim/frames.lisp

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

revision 1.55 by gilbert, Sun Nov 10 14:56:09 2002 UTC revision 1.56 by gilbert, Sun Nov 10 15:48:56 2002 UTC
# Line 28  Line 28 
28    
29  ;;; Frame-Manager class  ;;; Frame-Manager class
30    
31  (defclass frame-manager ()  (define-protocol-class frame-manager ()
32    ((port :initarg :port    ((port :initarg :port
33           :reader frame-manager-port)           :reader frame-manager-port)
34     (frames :initform nil     (frames :initform nil
35             :reader frame-manager-frames)))             :reader frame-manager-frames)))
36    
 (defun frame-manager-p (x)  
   (typep x 'frame-manager))  
   
37  (defun find-frame-manager (&rest options &key port &allow-other-keys)  (defun find-frame-manager (&rest options &key port &allow-other-keys)
38    (declare (special *frame-manager*))    (declare (special *frame-manager*))
39    (if (boundp '*frame-manager*)    (if (boundp '*frame-manager*)
# Line 55  Line 52 
52  ;;; XXX All these slots should move to a mixin or to standard-application-frame.  ;;; XXX All these slots should move to a mixin or to standard-application-frame.
53  ;;; -- moore  ;;; -- moore
54    
55  (defclass application-frame ()  (define-protocol-class  application-frame ()
56    ((port :initform nil    ((port :initform nil
57           :initarg :port           :initarg :port
58           :accessor port)           :accessor port)
# Line 102  Line 99 
99                           :initarg :hilited-presentation                           :initarg :hilited-presentation
100                           :accessor frame-hilited-presentation)))                           :accessor frame-hilited-presentation)))
101    
 (defun application-frame-p (x)  
   (typep x 'application-frame))  
   
102  (defmethod initialize-instance :after ((frame application-frame) &rest args)  (defmethod initialize-instance :after ((frame application-frame) &rest args)
103    (declare (ignore args)))    (declare (ignore args)))
104    

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

  ViewVC Help
Powered by ViewVC 1.1.5