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

Legend:
Removed from v.1.1.1.2  
changed lines
  Added in v.1.1.1.3

  ViewVC Help
Powered by ViewVC 1.1.5