diff --git a/hemlock/bit-screen.lisp b/hemlock/bit-screen.lisp index c6fa137d4580b50a51b1baf4b11f1af737868bf0..343724885423641e2dd58a5a92db44e086babce7 100644 --- a/hemlock/bit-screen.lisp +++ b/hemlock/bit-screen.lisp @@ -650,9 +650,13 @@ (defconstant minimum-window-columns 8 "Windows must be at least this many characters wide.") +(eval-when (compile load eval) + (defconstant xwindow-border-width 2 "X border around X windows") (defconstant xwindow-border-width*2 (* xwindow-border-width 2)) +); eval-when + ;;; We must name windows (set the "name" property) to get around a bug in ;;; awm and twm. They will not handle menu clicks without a window having ;;; a name. We set the name to this silly thing.