(FILECREATED "21-Jul-87 13:12:01" {DSK}<LISPFILES>SAFETY>CATALOG.ROOMS;1 2129
previous date: "31-Dec-86 14:31:00" {BARTLETT:EUROPARC:RX}<ROOMS>SUITES>CATALOG.ROOMS;1)
(* Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT CATALOGCOMS)
(RPAQQ CATALOGCOMS ((RM.SUITES CATALOG)))
(* "Rooms suite: " CATALOG)
(RM.SUITE.READ CATALOG 1)
(((RM.ROOM 3 Catalog (40035 (FRAME (SHADE 65535) (FRAME.WIDTH 2)) (TEXT (STRING "Catalog") (
FONT (MODERN 36 BOLD)) (POSITION (9 . 18)) (OPERATION DROP.SHADOW))) ((RM.PLACEMENT 2 1 (478 644
73 23) NIL NIL (626 . 212)) (RM.PLACEMENT 2 2 (480 731 73 23) NIL NIL (626 . 212)) (RM.PLACEMENT
2 3 (480 760 73 23) NIL NIL (626 . 212)) (RM.PLACEMENT 2 4 (406 22 578 567) NIL NIL (626 . 212))
(RM.PLACEMENT 2 5 (606 623 402 170) (4 42405) NIL (626 . 212)) (RM.PLACEMENT 2 6 (14 620 422
172) (4 42405) NIL (626 . 212))) NIL NIL)) ((1 (1 BUTTON (2 ((LABEL (CENTER ("Edit" ((0 0
PAINT)) (HELVETICA 14 BOLD)))) (ACTION (RM.EDIT.THIS.ROOM)) (IMAGE ACTION.BUTTON) (PROTECTED NIL)
(HELP "There is no help for this button")))) NIL) (2 (1 BUTTON (2 ((LABEL (CENTER ("Goto ..."
((0 0 PAINT)) (HELVETICA 14 BOLD)))) (ACTION (RM.BACKGROUND.GOTO)) (IMAGE BUTTON) (PROTECTED
NIL) (HELP "There is no help for this button")))) NIL) (3 (1 BUTTON (2 ((LABEL (LEFT (
"Overview" ((0 0 PAINT)) (HELVETICA 14 BOLD)))) (ACTION RM.DOOR.ACTION) (IMAGE BUTTON) (POSITION
(0 . 0)) (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) (4 (1 TEDIT ((FILENAME (FILENAME.FORM (RM.RELATIVE.FILENAME (QUOTE
DOCUMENTATION>CATALOG.TEDIT)))) (EXTENDED.MENU.NAMES (EXPANDED.MENU)))) NIL) (5 (1 PROMPTWINDOW (
(FONT HELVETICA 14 (BOLD REGULAR REGULAR) 0 DISPLAY) (TITLE))) NIL) (6 (1 EXEC NIL) NIL)))
(RPAQQ RM.BACK.DOOR.POSITION (300 . 20))
(PUTPROPS CATALOG.ROOMS COPYRIGHT ("Xerox Corporation" 1986 1987))
(DECLARE: DONTCOPY
(FILEMAP (NIL)))
STOP