;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.3
;;; Reason:
;;;  You can now add and delete gauges from the control panel whether or not
;;;  the *control-panel-screen* is exposed.
;;; Written 27-Aug-87 16:49:41 by pld (Peter L. DeWolf) at site LMI Cambridge
;;; while running on Azathoth from band 2
;;; with Experimental System 123.2, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 102.



; From modified file DJ: L.WINDOW; GAUGE.LISP#21 at 27-Aug-87 16:49:48
#10R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; GAUGE  "


(defmethod (basic-gauge :after :expose) (&rest ignore)
  (when (sheet-exposed-p self)
    (send self :redraw)))

))

; From modified file DJ: L.WINDOW; GAUGE.LISP#21 at 27-Aug-87 16:49:55
#10R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; GAUGE  "


(defmethod (basic-gauge :after :refresh) (&rest ignore)
  (when (sheet-exposed-p self)
    (send self :redraw)))

;;; Mapping

;;; The mapping function gets called on the new needle value whenever a 
;;; :set-value message is sent.  It is expected to produce a number between
;;; -1 and 1.

))