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

(FILECREATED " 8-Aug-88 14:37:38" {PHYLUM}<GOBBEL>LISP>SNAPW-ICON.;1
 2095   

      changes to%:  (VARS SNAPW-ICONCOMS))


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

(PRETTYCOMPRINT SNAPW-ICONCOMS)

(RPAQQ SNAPW-ICONCOMS
 ((BITMAPS SNAP.BITMAP SNAP.MASK)
                       (FNS SNAP.SHRINKFN)
                       (ADVISE SNAPW)))

(RPAQQ SNAP.BITMAP
 #*(50 35)@@@@@OOL@@@@@@@@@@@@A@@B@@@@@@@@@@@@BGOI@OOL@@@@@AN@DOOLHH@D@@@@COOOHOOLGOOO@@@@D@@@@OOL@@@@H@@@H@@@@OOL@@@@D@@@H@@@@OOL@@@@D@@@KOOONGOIOOOOD@@@OOOOO@@COOOOL@@@L@@@GOOOH@@@L@@@OOOOOH@OOOOOL@@@OOOON@@COOOOL@@@OOOOLCNAOOOOL@@@OOOOHOOHOOOOL@@@OOOOAOOLGOOOL@@@OOONCOHNCOLOL@@@OOONGOLGCOHGL@@@OOOLGONCAN@AL@@@OOODOOOCIOOOL@@@OONDOOOKIOOOL@@@OONDOOOOIOOOL@@@OONDOOOOIOOOL@@@OOODOOOOIOOOL@@@OOOLGOOOAOOOL@@@OOONGOOOCOOOL@@@OOONCOONCOOOL@@@OOOOAOOLFGOOL@@@OOOOHOOHMOOOL@@@OOOOLCNANIICL@@@N@@@N@@COBCEL@@@OOOOOH@OLJHCL@@@KOOOOOOOOOOGD@@@D@@@@@@@@@@@H@@@COOOOOOOOOOO@@@@
)

(RPAQQ SNAP.MASK
 #*(50 35)@@@@@OOL@@@@@@@@@@@@AOON@@@@@@@@@@@@COOO@OOL@@@@@AN@GOOOHOOL@@@@COOOOOOOOOOO@@@@GOOOOOOOOOOOH@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@GOOOOOOOOOOOH@@@COOOOOOOOOOO@@@@
)
(DEFINEQ

(SNAP.SHRINKFN

  [LAMBDA (W)                                                (* Randy.Gobbel "12-Oct-87 19:12")
    (DECLARE
 (GLOBALVARS SNAP.BITMAP SNAP.MASK))
    (OR (WINDOWPROP W 'ICON)
        (WINDOWPROP W 'ICON (ICONW SNAP.BITMAP SNAP.MASK NIL T])
)

[XCL:REINSTALL-ADVICE 'SNAPW :AFTER '((:LAST (WINDOWPROP !VALUE 'SHRINKFN 'SNAP.SHRINKFN]

(READVISE SNAPW)
(PUTPROPS SNAPW-ICON COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1631 1904 (SNAP.SHRINKFN 1641 . 1902)))))
STOP