(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED " 2-Feb-88 15:29:34" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH081.;1
 1550   

      changes to%:  (VARS PMIPATCH081COMS))


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

(PRETTYCOMPRINT PMIPATCH081COMS)

(RPAQQ PMIPATCH081COMS
 (
          
          (* ;; "pmi 2/2/88: A slightly modified bitmap for the TableTop link icon ")


                        (DECLARE%: DONTCOPY (PROPS (PMIPATCH081 MAKEFILE-ENVIRONMENT)
                                                   (PMIPATCH081 FILETYPE)))
                        [DECLARE%: FIRST (P (NC.LoadFileFromDirectories 'NCTABLETOPCARD]
                        (BITMAPS NCTableTop.LinkIconBitmap)
                        
          
          (* ;; "For this patch file only:")


                        (P (NCTableTop.AddTableTopCard))))



(* ;; "pmi 2/2/88: A slightly modified bitmap for the TableTop link icon ")


(DECLARE%: DONTCOPY 

(PUTPROPS PMIPATCH081 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS PMIPATCH081 FILETYPE
 :BCOMPL)
)
(DECLARE%: FIRST 
(NC.LoadFileFromDirectories 'NCTABLETOPCARD)
)

(RPAQQ NCTableTop.LinkIconBitmap
 #*(21 18)OOOOOH@@H@@@@H@@HCOONH@@HFGLNH@@HNFDNH@@IINGJH@@KIOOBH@@KOONBH@@JB@BBH@@JB@BBH@@JB@BBH@@JB@BBH@@J@@B@H@@J@@B@H@@J@@B@H@@J@@B@H@@H@@@@H@@OOOOOH@@
)



(* ;; "For this patch file only:")


(NCTableTop.AddTableTopCard)
(PUTPROPS PMIPATCH081 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP