;;; -*- Mode:Lisp; Readtable:ZL; Package:(QUOTE WINDOW-MAKER); Base:8; Patch-File:T -*-
;;; Patch file for Window-Maker version 2.3
;;; Reason:
;;;  Draw "WINDOW MAKER" in title pane correctly.
;;; Written 22-Jul-88 16:44:56 by saz (David M.J. Saslav) at site Gigamos Cambridge
;;; while running on Brahms' First from band 1
;;; with System 125.17, ZWEI 125.2, ZMail 73.0, Local-File 75.0, File-Server 24.0, Unix-Interface 13.0, Tape 24.1, Lambda-Diag 17.0, Experimental Window-Maker 2.2, microcode 1761, SDU Boot Tape 3.14, SDU ROM 103, 7/19.



; From modified file DJ: L.WINDOW.WINDOW-MAKER; NEW-WINDOW-MAKER.LISP#64 at 22-Jul-88 16:44:57
#8R WINDOW-MAKER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "WINDOW-MAKER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; WINDOW-MAKER; NEW-WINDOW-MAKER  "

(defun draw-wm-title(pane)
  (funcall pane :clear-screen)
  (funcall pane
	   :string-out-centered-explicit
	   "WINDOW MAKER"
	   0 (// (funcall *title-pane* :height) 4)
	   (funcall pane :width) (funcall pane :height)
	   wm-frame-title-font tv:alu-xor))

))