/[cmucl]/src/hemlock/bit-screen.lisp
ViewVC logotype

Diff of /src/hemlock/bit-screen.lisp

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

revision 1.16 by ram, Mon Oct 31 04:50:12 1994 UTC revision 1.16.2.1 by pw, Sat Mar 23 18:50:41 2002 UTC
# Line 22  Line 22 
22            *random-typeout-hook* *create-initial-windows-hook*))            *random-typeout-hook* *create-initial-windows-hook*))
23    
24    
25  (proclaim '(special *echo-area-window*))  (declaim (special *echo-area-window*))
26    
27  ;;; We have an internal notion of window groups on bitmap devices.  Every  ;;; We have an internal notion of window groups on bitmap devices.  Every
28  ;;; Hemlock window has a hunk slot which holds a structure with information  ;;; Hemlock window has a hunk slot which holds a structure with information
# Line 652  Line 652 
652  ;;; The width must be that of a tab for the screen image builder, and the  ;;; The width must be that of a tab for the screen image builder, and the
653  ;;; height must be one line (two with a modeline).  ;;; height must be one line (two with a modeline).
654  ;;;  ;;;
655  (defconstant minimum-window-lines 1  (defconstant minimum-window-lines 2
656    "Windows must have at least this many lines.")    "Windows must have at least this many lines.")
657  (defconstant minimum-window-columns 8  (defconstant minimum-window-columns 10
658    "Windows must be at least this many characters wide.")    "Windows must be at least this many characters wide.")
659    
660  (eval-when (compile eval load)  (eval-when (compile eval load)
# Line 672  Line 672 
672    (let ((*print-base* 10))    (let ((*print-base* 10))
673      (format nil "Hemlock ~S" (incf *hemlock-window-count*))))      (format nil "Hemlock ~S" (incf *hemlock-window-count*))))
674    
675  (proclaim '(inline surplus-window-height surplus-window-height-w/-modeline))  (declaim (inline surplus-window-height surplus-window-height-w/-modeline))
676  ;;;  ;;;
677  (defun surplus-window-height (thumb-bar-p)  (defun surplus-window-height (thumb-bar-p)
678    (+ hunk-top-border (if thumb-bar-p    (+ hunk-top-border (if thumb-bar-p

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.16.2.1

  ViewVC Help
Powered by ViewVC 1.1.5