(FILECREATED "21-Jul-87 13:30:13" {DSK}<LISPFILES>SAFETY>SUITE-LOADER.ROOMS;1 6766
previous date: "21-Jul-87 11:30:54" {BARTLETT:EUROPARC:RX}<ROOMS>SUITES>SUITE-LOADER.ROOMS;1)
(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT SUITE-LOADERCOMS)
(RPAQQ SUITE-LOADERCOMS ((RM.SUITES SUITE-LOADER)))
(* "Rooms suite: " SUITE-LOADER)
(RM.SUITE.READ SUITE-LOADER 1)
(((RM.ROOM 3 Suite.Loader ((WHOLEBACKGROUND (SHADE 34850)) (FRAME (SHADE 40035) (FRAME.WIDTH 20))
(BORDER (SHADE 43605)) (TEXT (STRING Suite.Loader) (FONT (TIMESROMAND 72 (MEDIUM REGULAR
REGULAR) 0)) (POSITION (78 . 755)) (OPERATION DROP.SHADOW)) (BOX (SHADE 65535) (REGION (80 706
495 26)) (OPERATION PAINT))) ((RM.PLACEMENT 2 1 (692 415 166 86) NIL NIL (626 . 212)) (
RM.PLACEMENT 2 2 (893 415 178 86) NIL NIL (626 . 212)) (RM.PLACEMENT 2 3 (122 415 294 86) NIL NIL
(626 . 212)) (RM.PLACEMENT 2 4 (473 288 162 86) NIL NIL (626 . 212)) (RM.PLACEMENT 2 5 (471 415
166 86) NIL NIL (626 . 212)) (RM.PLACEMENT 2 6 (122 288 294 86) NIL NIL (626 . 212)) (
RM.PLACEMENT 2 7 (696 288 158 86) NIL NIL (626 . 212)) (RM.PLACEMENT 2 8 (903 288 158 86) NIL NIL
(626 . 212)) (RM.PLACEMENT 2 9 (31 31 362 141) (4 42405) NIL (626 . 212)) (RM.PLACEMENT 2 10 (
713 30 404 141) (4 42405) NIL (626 . 212)) (RM.PLACEMENT 2 11 (918 733 194 86) NIL NIL (626 . 212
))) NIL NIL)) ((1 (1 BUTTON (2 ((LABEL (CENTER ("Load suite:" ((1 1 PAINT) (1 -1 PAINT) (-1
-1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) (
Help ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (
TIMESROMAND 36 (BOLD REGULAR REGULAR) 0)))) (ACTION (RM.LOAD.SUITE? (QUOTE Help) (QUOTE Help)))
(IMAGE ARK-NSEW-BUTTON) (PROTECTED NIL) (HELP "There is no help for this button") (POSITION (754
. 511))))) NIL) (2 (1 BUTTON (2 ((LABEL (CENTER ("Load suite:" ((1 1 PAINT) (1 -1 PAINT) (-1
-1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) (
Office-1 ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (
TIMESROMAND 36 (BOLD REGULAR REGULAR) 0)))) (ACTION (RM.LOAD.SUITE? (QUOTE Office-1) (QUOTE
Office))) (IMAGE ARK-NSEW-BUTTON) (PROTECTED NIL) (HELP "There is no help for this button") (
POSITION (937 . 510))))) NIL) (3 (1 BUTTON (2 ((LABEL (CENTER ("Load suite:" ((1 1 PAINT) (1
-1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR
REGULAR) 0)) ("Exploratorium" ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE
PAINT 48615))) (TIMESROMAND 36 (BOLD REGULAR REGULAR) 0)))) (ACTION (RM.LOAD.SUITE? (QUOTE
Exploratorium) (QUOTE Exploratorium))) (IMAGE ARK-NSEW-BUTTON) (PROTECTED NIL) (HELP
"There is no help for this button") (POSITION (122 . 415))))) NIL) (4 (1 BUTTON (2 ((LABEL (
CENTER ("Go to the" ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT
42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) (Catalog ((1 1 PAINT) (1 -1 PAINT) (-1 -1
PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (TIMESROMAND 36 (BOLD REGULAR REGULAR) 0)))) (
ACTION RM.DOOR.ACTION) (IMAGE ARK-NSEW-BUTTON) (POSITION (473 . 291)) (HELP
"Changes to the Overview") (PROTECTED NIL) (ROOM.NAME Catalog) (TEMPORARY NIL) (SETFN
RM.DOOR.SETFN) (DISPLAYFN RM.DOOR.REPAINTFN) (AFTERMOVEFN RM.BACK.DOOR.AFTERMOVEFN)))) NIL) (5 (1
BUTTON (2 ((LABEL (CENTER ("Load suite:" ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE)
(0 0 (MERGE PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) (Catalog ((1 1 PAINT) (1
-1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (TIMESROMAND 36 (BOLD REGULAR
REGULAR) 0)))) (ACTION (RM.LOAD.SUITE? (QUOTE Catalog) (QUOTE Catalog))) (IMAGE ARK-NSEW-BUTTON)
(PROTECTED NIL) (HELP "There is no help for this button") (POSITION (471 . 415))))) NIL) (6 (1
BUTTON (2 ((LABEL (CENTER ("Go to the" ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (
0 0 (MERGE PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) (Exploratorium ((1 1 PAINT)
(1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (TIMESROMAND 36 (BOLD
REGULAR REGULAR) 0)))) (ACTION RM.DOOR.ACTION) (IMAGE ARK-NSEW-BUTTON) (POSITION (134 . 286)) (
HELP "Changes to the Overview") (PROTECTED NIL) (ROOM.NAME Exploratorium) (TEMPORARY NIL) (SETFN
RM.DOOR.SETFN) (DISPLAYFN RM.DOOR.REPAINTFN) (AFTERMOVEFN RM.BACK.DOOR.AFTERMOVEFN)))) NIL) (7 (1
BUTTON (2 ((LABEL (CENTER ("Go to the" ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (
0 0 (MERGE PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) (Help ((1 1 PAINT) (1 -1
PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (TIMESROMAND 36 (BOLD REGULAR
REGULAR) 0)))) (ACTION RM.DOOR.ACTION) (IMAGE ARK-NSEW-BUTTON) (POSITION (701 . 289)) (HELP
"Changes to the Overview") (PROTECTED NIL) (ROOM.NAME Help) (TEMPORARY NIL) (SETFN RM.DOOR.SETFN)
(DISPLAYFN RM.DOOR.REPAINTFN) (AFTERMOVEFN RM.BACK.DOOR.AFTERMOVEFN)))) NIL) (8 (1 BUTTON (2 ((
LABEL (CENTER ("Go to the" ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE
PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) (Office ((1 1 PAINT) (1 -1 PAINT) (-1
-1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (TIMESROMAND 36 (BOLD REGULAR REGULAR) 0)))) (
ACTION RM.DOOR.ACTION) (IMAGE ARK-NSEW-BUTTON) (POSITION (908 . 289)) (HELP
"Changes to the Overview") (PROTECTED NIL) (ROOM.NAME Office) (TEMPORARY NIL) (SETFN RM.DOOR.SETFN
) (DISPLAYFN RM.DOOR.REPAINTFN) (AFTERMOVEFN RM.BACK.DOOR.AFTERMOVEFN)))) NIL) (9 (1 EXEC NIL) NIL
) (10 (1 PROMPTWINDOW ((FONT HELVETICA 14 (BOLD REGULAR REGULAR) 0 DISPLAY) (TITLE))) NIL) (11
(1 BUTTON (2 ((LABEL (CENTER ("Go to the" ((1 1 PAINT) (1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE)
(0 0 (MERGE PAINT 42405))) (TIMESROMAND 24 (BOLD REGULAR REGULAR) 0)) ("Overview" ((1 1 PAINT)
(1 -1 PAINT) (-1 -1 PAINT) (-1 1 ERASE) (0 0 (MERGE PAINT 48615))) (TIMESROMAND 36 (BOLD
REGULAR REGULAR) 0)))) (ACTION RM.DOOR.ACTION) (IMAGE ARK-NSEW-BUTTON) (POSITION (918 . 733)) (
HELP "Changes to the Overview") (PROTECTED NIL) (ROOM.NAME \INTROSPECTION) (TEMPORARY NIL) (SETFN
RM.DOOR.SETFN) (DISPLAYFN RM.DOOR.REPAINTFN) (AFTERMOVEFN RM.BACK.DOOR.AFTERMOVEFN)))) NIL)))
(RPAQQ RM.BACK.DOOR.POSITION (300 . 20))
(PUTPROPS SUITE-LOADER.ROOMS COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
(FILEMAP (NIL)))
STOP