(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)

(FILECREATED "14-Oct-88 12:08:52" {QV}<NOTECARDS>1.3MNEXT>MEDLEYSYSTEMPATCHES.;2
 3207   

      previous date%: "10-Oct-88 16:42:40" {QV}<NOTECARDS>1.3MNEXT>MEDLEYSYSTEMPATCHES.;1)


(* "
Copyright (c) 1988 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT MEDLEYSYSTEMPATCHESCOMS)

(RPAQQ MEDLEYSYSTEMPATCHESCOMS

       (
        (* ;; "Following stuff is needed to make IMAGEOBJ's write out correctly, for graphs, sketches, etc. [rg 12/10/87]")

        (FNS WRITE.IMAGEOBJ)
                                                             (* ; 
                     "Insure that correct imageobj HPRINTMACRO is at front of the HPRINTMACROS list.")
        [DECLARE%: DONTEVAL@LOAD (ADDVARS (HPRINTMACROS (IMAGEOBJ . WRITE.IMAGEOBJ]
        
        (* ;; 
       "rht 12/14/87: Fix so that REATTACHPROMPTWINDOW stops trashing promptwindow's PASSTOMAINCOMS.")

        (FNS REATTACHPROMPTWINDOW)
        
        (* ;; "Temporary fix to the random popping up of shrunken text cards problem.")

        [VARS (TTY.PROCESS.DEFAULT '(BACKGROUND EXEC EXEC#2 EXEC#3 EXEC#4 EXEC#4 EXEC#5 MOUSE]
        (PROP (FILETYPE MAKEFILE-ENVIRONMENT)
              MEDLEYSYSTEMPATCHES)))



(* ;; 
"Following stuff is needed to make IMAGEOBJ's write out correctly, for graphs, sketches, etc. [rg 12/10/87]"
)


(DEFINEQ

(WRITE.IMAGEOBJ

  [LAMBDA (IMAGEOBJ STREAM)                                 (* ; "Edited 10-Dec-87 11:58 by Gobbel")

    (* ;; "HPRINT function for writing out IMAGE OBJECTS")

    (* ;; "write out the name of the function to read things back in with.")

    (PRINT (LIST (fetch
 (IMAGEFNS GETFN) of
 (fetch
 (IMAGEOBJ IMAGEOBJFNS) of
 IMAGEOBJ
                                                           )))
           STREAM HPRINTRDTBL)
    (APPLY* (fetch
 (IMAGEFNS PUTFN) of
 (fetch
 (IMAGEOBJ IMAGEOBJFNS) of
 IMAGEOBJ))
           IMAGEOBJ STREAM)
    T])
)



(* ; "Insure that correct imageobj HPRINTMACRO is at front of the HPRINTMACROS list.")


(DECLARE%: DONTEVAL@LOAD 

(ADDTOVAR HPRINTMACROS
 (IMAGEOBJ . WRITE.IMAGEOBJ))
)



(* ;; "rht 12/14/87: Fix so that REATTACHPROMPTWINDOW stops trashing promptwindow's PASSTOMAINCOMS."
)


(DEFINEQ

(REATTACHPROMPTWINDOW

  [LAMBDA (MAINWINDOW PWINDOW)                               (* ; "Edited 14-Dec-87 01:08 by rht:")

    (* ;; "rht 12/14/87: Fixed so that restores old PASSTOMAINCOMS after calling ATTACHWINDOW.")

    (LET [(OLDPASSTOMAINCOMS (WINDOWPROP PWINDOW 'PASSTOMAINCOMS]
         (ATTACHWINDOW PWINDOW MAINWINDOW 'TOP 'JUSTIFY)
         (WINDOWPROP PWINDOW 'PASSTOMAINCOMS OLDPASSTOMAINCOMS])
)



(* ;; "Temporary fix to the random popping up of shrunken text cards problem.")



(RPAQQ TTY.PROCESS.DEFAULT
 (BACKGROUND EXEC EXEC#2 EXEC#3 EXEC#4 EXEC#4 EXEC#5 MOUSE))

(PUTPROPS MEDLEYSYSTEMPATCHES
 FILETYPE
 :TCOMPL)

(PUTPROPS MEDLEYSYSTEMPATCHES
 MAKEFILE-ENVIRONMENT
 (:PACKAGE "IL" :READTABLE "INTERLISP" 
                                                                  :BASE 10))
(PUTPROPS MEDLEYSYSTEMPATCHES COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1385 1987 (WRITE.IMAGEOBJ 1395 . 1985)) (2279 2703 (REATTACHPROMPTWINDOW 2289 . 2701)))
))
STOP