/[cmucl]/src/hemlock/struct.lisp
ViewVC logotype

Diff of /src/hemlock/struct.lisp

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

revision 1.2 by ram, Fri Jul 13 15:14:53 1990 UTC revision 1.3 by ram, Mon Dec 10 18:15:39 1990 UTC
# Line 462  Line 462 
462    
463    
464    
465  ;;;; Device screen hunks.  ;;;; Device screen hunks and window-group.
466    
467    ;;; Window groups are used to keep track of the old width and height of a group
468    ;;; so that when a configure-notify event is sent, we can determine if the size
469    ;;; of the window actually changed or not.
470    ;;;
471    (defstruct (window-group (:print-function %print-window-group)
472                             (:constructor
473                              make-window-group (xparent width height)))
474      xparent
475      width
476      height)
477    
478    (defun %print-window-group (object stream depth)
479      (declare (ignore object depth))
480      (format stream "#<Hemlock Window Group>"))
481    
482  ;;; Device-hunks are used to claim a piece of the screen and for ordering  ;;; Device-hunks are used to claim a piece of the screen and for ordering
483  ;;; pieces of the screen.  Window motion primitives and splitting/merging  ;;; pieces of the screen.  Window motion primitives and splitting/merging
# Line 503  Line 518 
518    char-height                 ; Height of text body in characters.    char-height                 ; Height of text body in characters.
519    char-width                  ; Width in characters.    char-width                  ; Width in characters.
520    xwindow                     ; X window for this hunk.    xwindow                     ; X window for this hunk.
521    gcontext                    ; X gcontext for xwindow.    gcontext                    ; X gcontext for xwindow.
522    start                       ; Head of dis-line list (no dummy).    start                       ; Head of dis-line list (no dummy).
523    end                         ; Exclusive end, i.e. nil if nil-terminated.    end                         ; Exclusive end, i.e. nil if nil-terminated.
524    modeline-dis-line           ; Dis-line for modeline, or NIL if none.    modeline-dis-line           ; Dis-line for modeline, or NIL if none.
# Line 513  Line 528 
528    font-family                 ; Font-family used in this window.    font-family                 ; Font-family used in this window.
529    input-handler               ; Gets hunk, char, x, y when char read.    input-handler               ; Gets hunk, char, x, y when char read.
530    changed-handler             ; Gets hunk when size changed.    changed-handler             ; Gets hunk when size changed.
531    (thumb-bar-p nil))          ; True if we draw a thumb bar in the top border.    (thumb-bar-p nil)           ; True if we draw a thumb bar in the top border.
532      window-group)               ; The window-group to which this hunk belongs.
533    
534    
535  ;;; Terminal hunks.  ;;; Terminal hunks.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5