;;; -*- Mode:Lisp; Readtable:ZL; Package:(QUOTE WINDOW-MAKER); Base:8; Patch-File:T -*-
;;; Patch file for Window-Maker version 2.4
;;; Reason:
;;;  Replace unappealing FONTS:43VXMS font with more readable FONTS:40VSHD.
;;; Written 22-Jul-88 16:48:54 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.


;; *** Note: ***
;;   You may lose because the buffer has no readtable attribute.
;; *************

; From modified file DJ: L.WINDOW.WINDOW-MAKER; SLICING-PROCEDURES.LISP#17 at 22-Jul-88 16:48:55
#8R WINDOW-MAKER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "WINDOW-MAKER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; WINDOW-MAKER; SLICING-PROCEDURES  "

(defun output-number-on-the-panel (number)
  (let ((string-to-output (format nil "~D" number))
	length-of-string)
    (if (< (setq length-of-string (string-length string-to-output)) 4)
	(setq string-to-output (string-append (make-string (- 4 length-of-string) ':initial-element #\space)
					      string-to-output)))
    (funcall *instrument-pane* ':clear-screen)
    (funcall *instrument-pane* ':string-out-explicit string-to-output 20.
	     (// (funcall *instrument-pane* ':height) 6)
	     nil nil fonts:40vshd tv:alu-ior)))

))