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

Diff of /mcclim/frames.lisp

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

revision 1.118 by tmoore, Wed Mar 29 10:43:37 2006 UTC revision 1.119 by crhodes, Fri May 5 10:24:02 2006 UTC
# Line 59  Line 59 
59  ;;; 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.
60  ;;; -- moore  ;;; -- moore
61    
 ;;; Generic operations  
 (defgeneric frame-name (frame))  
 (defgeneric frame-pretty-name (frame))  
 (defgeneric (setf frame-pretty-name) (name frame))  
 (defgeneric frame-command-table (frame))  
 (defgeneric (setf frame-command-table) (command-table frame))  
 (defgeneric frame-standard-output (frame)  
   (:documentation  
    "Returns the stream that will be used for *standard-output* for the FRAME."))  
 (defgeneric frame-standard-input (frame)  
   (:documentation  
    "Returns the stream that will be used for *standard-input* for the FRAME."))  
 (defgeneric frame-query-io (frame)  
   (:documentation  
    "Returns the stream that will be used for *query-io* for the FRAME."))  
 (defgeneric frame-error-output (frame)  
   (:documentation  
    "Returns the stream that will be used for *error-output* for the FRAME."))  
 (defgeneric frame-pointer-documentation-output (frame)  
   (:documentation  
    "Returns the stream that will be used for *pointer-documentation-output*  
 for the FRAME."))  
 (defgeneric frame-calling-frame (frame)  
   (:documentation  
    "Returns the application frame that invoked the FRAME."))  
 (defgeneric frame-parent (frame)  
   (:documentation  
    "Returns the object that acts as the parent for the FRAME."))  
 (defgeneric frame-panes (frame)  
   (:documentation  
    "Returns the pane that is the top-level pane in the current layout  
 of the FRAME's named panes."))  
 (defgeneric frame-top-level-sheet (frame)  
   (:documentation  
    "Returns the shhet that is the top-level sheet for the FRAME. This  
 is the sheet that has as its descendants all of the panes of the FRAME."))  
 (defgeneric frame-current-panes (frame)  
   (:documentation  
    "Returns a list of those named panes in the FRAME's current layout.  
 If there are no named panes, only the single, top level pane is returned."))  
 (defgeneric get-frame-pane (frame pane-name)  
   (:documentation  
    "Returns the named CLIM stream pane in the FRAME whose name is PANE-NAME."))  
 (defgeneric find-pane-named (frame pane-name)  
   (:documentation  
    "Returns the pane in the FRAME whose name is PANE-NAME."))  
 (defgeneric frame-current-layout (frame))  
 (defgeneric (setf frame-current-layout) (layout frame))  
 (defgeneric frame-all-layouts (frame))  
 (defgeneric layout-frame (frame &optional width height))  
 (defgeneric frame-exit-frame (condition)  
   (:documentation  
    "Returns the frame that is being exited from associated with the  
 FRAME-EXIT condition."))  
 (defgeneric frame-exit (frame)  
   (:documentation  
    "Exits from the FRAME."))  
 (defgeneric pane-needs-redisplay (pane))  
 (defgeneric (setf pane-needs-redisplay) (value pane))  
 (defgeneric redisplay-frame-pane (frame pane &key force-p))  
 (defgeneric redisplay-frame-panes (frame &key force-p))  
 (defgeneric frame-replay (frame stream &optional region))  
 (defgeneric notify-user (frame message &key associated-window title  
                          documentation exit-boxes name style text-style))  
 (defgeneric frame-properties (frame property))  
 (defgeneric (setf frame-properties) (value frame property))  
 (defgeneric (setf client-setting) (value frame setting))  
 (defgeneric reset-frame (frame &rest client-settings))  
 (defgeneric frame-maintain-presentation-histories (frame))  
   
62  ; extension  ; extension
63  (defgeneric frame-schedule-timer-event (frame sheet delay token))  (defgeneric frame-schedule-timer-event (frame sheet delay token))
64    
# Line 288  documentation produced by presentations. Line 218  documentation produced by presentations.
218      (sheet-adopt-child (graft frame) (frame-top-level-sheet frame)))      (sheet-adopt-child (graft frame) (frame-top-level-sheet frame)))
219    ;; Find the size of the new frame    ;; Find the size of the new frame
220    (multiple-value-bind (w h x y) (frame-geometry* frame)    (multiple-value-bind (w h x y) (frame-geometry* frame)
221        (declare (ignore x y))
222      ;; automatically generates a window-configuation-event      ;; automatically generates a window-configuation-event
223      ;; which then calls allocate-space      ;; which then calls allocate-space
224      ;;      ;;
225      ;; Not any longer, we turn of CONFIGURE-NOTIFY events until the      ;; Not any longer, we turn off CONFIGURE-NOTIFY events until the
226      ;; window is mapped and do the space allocation now, so that all      ;; window is mapped and do the space allocation now, so that all
227      ;; sheets will have their correct geometry at once. --GB      ;; sheets will have their correct geometry at once. --GB
228      (setf (sheet-region (frame-top-level-sheet frame))      (setf (sheet-region (frame-top-level-sheet frame))
# Line 677  documentation produced by presentations. Line 608  documentation produced by presentations.
608    (port-force-output (frame-manager-port fm))    (port-force-output (frame-manager-port fm))
609    frame)    frame)
610    
 (defgeneric enable-frame (frame))  
 (defgeneric disable-frame (frame))  
 (defgeneric destroy-frame (frame))  
 (defgeneric raise-frame (frame))  
 (defgeneric bury-frame (frame))  
   
 (defgeneric note-frame-enabled (frame-manager frame))  
 (defgeneric note-frame-disbled (frame-manager frame))  
   
611  (defmethod enable-frame ((frame application-frame))  (defmethod enable-frame ((frame application-frame))
612    (setf (sheet-enabled-p (frame-top-level-sheet frame)) t)    (setf (sheet-enabled-p (frame-top-level-sheet frame)) t)
613    (setf (slot-value frame 'state) :enabled)    (setf (slot-value frame 'state) :enabled)
# Line 1541  documentation produced by presentations. Line 1463  documentation produced by presentations.
1463              (null              (null
1464               ())))))))               ())))))))
1465    
 (defgeneric frame-drag-and-drop-feedback  
     (frame from-presentation stream initial-x initial-y x y state))  
   
1466  (defmethod frame-drag-and-drop-feedback  (defmethod frame-drag-and-drop-feedback
1467      ((frame standard-application-frame) from-presentation stream      ((frame standard-application-frame) from-presentation stream
1468       initial-x initial-y x y state)       initial-x initial-y x y state)
# Line 1568  documentation produced by presentations. Line 1487  documentation produced by presentations.
1487                  (buffer-rectangle))                  (buffer-rectangle))
1488               (stream-replay stream buffer-rectangle))))))))               (stream-replay stream buffer-rectangle))))))))
1489    
 (defgeneric frame-drag-and-drop-highlighting  
     (frame to-presentation stream state))  
   
1490  (defmethod frame-drag-and-drop-highlighting  (defmethod frame-drag-and-drop-highlighting
1491      ((frame standard-application-frame) to-presentation stream state)      ((frame standard-application-frame) to-presentation stream state)
1492    (highlight-presentation-1 to-presentation stream state))    (highlight-presentation-1 to-presentation stream state))

Legend:
Removed from v.1.118  
changed lines
  Added in v.1.119

  ViewVC Help
Powered by ViewVC 1.1.5