(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