(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "ROOMS" (USE "LISP" "XCL") (SHADOW CLROOM))
)

(il:filecreated " 5-Aug-88 11:01:04" il:|{POGO:AISNORTH:XEROX}<ROOMS>MEDLEY>USERS>OFFICE.SUITE;2|
 2617   

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

      il:|previous| il:|date:| " 8-Mar-88 16:13:34" 
il:|{POGO:AISNORTH:XEROX}<ROOMS>MEDLEY>USERS>OFFICE.SUITE;1|)


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

(il:prettycomprint il:officecoms)

(il:rpaqq il:officecoms ((il:files il:rooms) (file-environments il:office.suite) (il:suites "OFFICE")))

(il:filesload il:rooms)

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

(defsuite "OFFICE" (:version 1) (:files) (:window 0 :type :button :text "Go to Room" :action (interactive-go-to-room :allow-new? t) :help "Go to a room, possibly new.") (:window 1 :type :button :text "Overview" :action (go-to-overview) :help "Enter the overview") (:window 2 :type :prompt-window) (:window 3 :type :button :text-form (symbol-value (quote *back-door-room-name*)) :action (interactive-go-to-room-named *back-door-room-name*) :help "Go to the previous room" :type :door :inverted? t) (:window 4 :type :exec :region (271/512 7/101 119/256 141/808) :package "XCL-USER" :readtable "XCL") (:room "Mail" :placements nil :inclusions ("Office Panel") :background ((:region (0 1/4 1.0 3/4) :shade (:eval squares-bitmap) :border 2) (:text "Mail" :position (10 . 10) :font (il:helvetica 36 il:bold))) :file-watch-on? nil) (:room "Office" :placements nil :inclusions ("Office Panel") :background ((:region (0 1/4 1.0 3/4) :shade (:eval tile-bitmap) :border 2) (:text "Office" :font (il:helvetica 36 il:bold) :position (10 . 10))) :file-watch-on? nil) (:room "Office Panel" :placements ((0 :region (77/1024 137/808 41/512 11/404)) (1 :region (77/1024 167/808 35/512 11/404)) (2 :region (271/512 1/808 239/512 13/202) :font (il:helvetica 10 (il:medium il:regular il:regular)) :border 2 :shade 65535 :title nil :operation il:erase) (3 :region (5/512 95/808 59/1024 99/808)) (4 :region (271/512 7/101 119/256 141/808))) :inclusions nil :background ((:whole-screen 33825 :border 2)) :file-watch-on? nil) (:room "Project" :placements nil :inclusions ("Office Panel") :background ((:region (0 1/4 1.0 3/4) :shade (:eval renaissance-bitmap) :border 2) (:text "Project" :font (il:helvetica 36 il:bold) :position (10 . 10))) :file-watch-on? nil))
(il:putprops il:office.suite il:copyright ("Xerox Corporation" 1987 1988))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop