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

(FILECREATED "13-Jan-87 01:23:25" {ERIS}<LISPUSERS>LISPCORE>DEFAULTICON.;1
 4586   

      changes to%:  (FNS \MAKEICONWINDOW)

      previous date%: "19-Dec-85 01:24:06" {ERIS}<LISP>KOTO>LISPUSERS>DEFAULTICON.;1)


(* "
Copyright (c) 1985, 1987 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT DEFAULTICONCOMS)

(RPAQQ DEFAULTICONCOMS
 ((FILES ICONW)
                        (UGLYVARS \DEFAULTICON)
                        (INITVARS (DEFAULTICON \DEFAULTICON))
                        (FNS \MAKEICONWINDOW)))
(FILESLOAD ICONW)
(READVARS \DEFAULTICON)
(({(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@AOOOOOOOOOOH@@"
"@@N@@@@@@@@@@G@@"
"@C@@@@@@@@@@@@L@"
"@D@@@@@@@@@@@@B@"
"@H@@@@@@@@@@@@A@"
"A@@@@@@@@@@@@@@H"
"B@@@@@@@@@@@CO@D"
"B@@@@@@@@@@@BDHD"
"D@@@@@@@@@@@ABDB"
"D@@@@@@@@@@@AODB"
"D@@@@@@@@@@@ABLB"
"D@@@@@@@@@@@ABDA"
"H@@@@@@@@@@@ABDA"
"H@@@@@@@@@@@AOHA"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"H@@@@@@@@@@@@@@A"
"D@@@@@@@@@@@@@@B"
"D@@@@@@@@@@@@@@B"
"D@@@@@@@@@@@@@@B"
"B@@@@@@@@@@@@@@D"
"B@@@@@@@@@@@@@@D"
"A@@@@@@@@@@@@@@H"
"@H@@@@@@@@@@@@A@"
"@D@@@@@@@@@@@@B@"
"@C@@@@@@@@@@@@L@"
"@@N@@@@@@@@@@G@@"
"@@AOOOOOOOOOOH@@")}  {(READBITMAP)(64 64
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@"
"@@AOOOOOOOOOOH@@"
"@@OOOOOOOOOOOO@@"
"@COOOOOOOOOOOOL@"
"@GOOOOOOOOOOOON@"
"@OOOOOOOOOOOOOO@"
"AOOOOOOOOOOOOOOH"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOONDOL"
"GOOOOOOOOOOOOBGN"
"GOOOOOOOOOOOOOGN"
"GOOOOOOOOOOOOBON"
"GOOOOOOOOOOOOBGO"
"OOOOOOOOOOOOOBGO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"OOOOOOOOOOOOOOOO"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"GOOOOOOOOOOOOOON"
"COOOOOOOOOOOOOOL"
"COOOOOOOOOOOOOOL"
"AOOOOOOOOOOOOOOH"
"@OOOOOOOOOOOOOO@"
"@GOOOOOOOOOOOON@"
"@COOOOOOOOOOOOL@"
"@@OOOOOOOOOOOO@@"
"@@AOOOOOOOOOOH@@")}  (5 6 52 46)))

(RPAQ? DEFAULTICON
 \DEFAULTICON)
(DEFINEQ

(\MAKEICONWINDOW

  [LAMBDA (iconText)
                                      (* ; "Edited 13-Jan-87 01:22 by Masinter")

    (DECLARE
 (SPECVARS ICONPOSITION WINDOW)
           (GLOBALVARS DEFAULTICON \DEFAULTICON WindowTitleDisplayStream))
          
          (* ;; "Note: This function has to be compiled for STKNTHNAME to work properly.")


    (LET ((icon (OR DEFAULTICON \DEFAULTICON)))
         (SETQ icon (SELECTQ (TYPENAME icon)
                        (BITMAP (CREATEWFROMIMAGE (BITMAPCOPY icon)))
                        (WINDOW (CREATEWFROMIMAGE (WINDOW.BITMAP icon)))
                        (LISTP (TITLEDICONW icon (if
 (WINDOWP iconText)
                                                     then
 (WINDOWPROP iconText 'TITLE)
                                                   else
 iconText)
                                      WINDOWTITLEFONT
                                      (CONSTANT ORIGIN)
                                      T))
                        (ERROR icon "can't be used as an icon")))
         [if
 [AND (NOT ICONPOSITION)
                  (NOT (WINDOWPROP WINDOW 'ICONPOSITION]
             then
 (SETQ ICONPOSITION (GETBOXPOSITION (WINDOWPROP icon 'WIDTH)
                                            (WINDOWPROP icon 'HEIGHT]
         icon])
)
(PUTPROPS DEFAULTICON COPYRIGHT ("Xerox Corporation" 1985 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (3170 4498 (\MAKEICONWINDOW 3180 . 4496)))))
STOP