File [phylum]<LISPUSERS>Lyric>HYPERDESK.SUITE!1

(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "ROOMS" (USE "LISP" "XCL") (SHADOW CLROOM))
)
(il:filecreated " 3-May-88 18:06:18" il:|{EG:PARC:XEROX}<RAO>HYPERDESK>HYPERDESK.SUITE;17| 2245   

      il:|changes| il:|to:|  (il:suites "HYPERDESK")

      il:|previous| il:|date:| "26-Apr-88 14:20:53" 
il:|{EG:PARC:XEROX}<RAO>HYPERDESK>HYPERDESK.SUITE;15|)


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

(il:prettycomprint il:hyperdeskcoms)

(il:rpaqq il:hyperdeskcoms ((il:files il:rooms) (file-environments il:hyperdesk.suite) (il:suites "HYPERDESK")))

(il:filesload il:rooms)

(define-file-environment il:hyperdesk.suite :package (defpackage "ROOMS" (:use "LISP" "XCL") (:shadow cl:room)) :readtable "XCL" :compiler :compile-file)

(defsuite "HYPERDESK" (:version 1) (:files) (:window 0 :type :lens-operation "Get Mail" :font (il:helvetica 12 (il:bold il:regular il:regular)) :shadows nil :type :shadowed :inverted? nil :position (0 . 0)) (:window 1 :type :lens-folder-web) (:window 2 :type :lens-operation "Auto Mode" :font (il:helvetica 12 (il:bold il:regular il:regular)) :shadows nil :type :shadowed :inverted? nil :position (0 . 0)) (:window 3 :type :lens-operation "Browse" :font (il:helvetica 12 (il:bold il:regular il:regular)) :shadows nil :type :shadowed :inverted? nil :position (0 . 0)) (:room "Office" :placements nil :inclusions ("HyperPanel") :background ((:region (0.0 1/6 1.0 5/6) :shade (:eval il:square9.bm) :border 2) (:text "Office" :font (il:timesromand 24 (il:medium il:regular il:regular) 0 il:display) :position (0.99 . 0.155) :alignment :right-top)) :file-watch-on? nil) (:room "Mail" :placements ((0 :region (189/1024 107/808 17/256 3/101)) (1 :region (25/256 45/808 7/16 83/101) :shrunken? t :icon-position (271/1024 . 3/808)) (2 :region (271/1024 53/404 17/64 3/101)) (3 :region (271/1024 10/101 15/256 3/101))) :inclusions ("HyperPanel") :background ((:region (0.0 1/6 1.0 5/6) :shade (:eval il:wallpaper) :border 2) (:text "Mail" :font (il:timesromand 24 (il:medium il:regular il:regular) 0 il:display) :position (0.99 . 0.155) :alignment :right-top)) :file-watch-on? t))
(il:putprops il:hyperdesk.suite il:copyright ("Xerox Corporation" 1988))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop