(FILECREATED "20-Oct-86 10:38:38" {QV}<ROOMS>SUITES>TECHDESK.ROOMS;2 6844   )


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TechDeskCOMS)

(RPAQQ TechDeskCOMS ((RM.SUITES TechDesk)))



(* "Rooms suite: " TechDesk)

(RM.SUITE.READ TechDesk 1)
(((RM.ROOM 3 Panel.Mail  ((IF  (AT.TOP  (WHOLEBACKGROUND  (SHADE 34850))  (FRAME  (SHADE 65535)  (
WIDTH 2))  (TEXT  (STRING Panel.Mail)  (FONT  (MODERN 36 BOLD))  (POSITION  (9 . 18))  (OPERATION 
DROP.SHADOW)))))  ((RM.PLACEMENT 2 1  (693 601 73 23) NIL NIL  (693 . 601))  (RM.PLACEMENT 2 2  (693 
632 73 23) NIL NIL  (693 . 632))  (RM.PLACEMENT 2 3  (784 572 176 82) NIL NIL  (11024 . 10808))  (
RM.PLACEMENT 2 4  (10 36 431 572) NIL NIL  (11024 . 10808))  (RM.PLACEMENT 2 5  (24 14 73 23) NIL NIL 
 (11152 . 10861)))  (Panel.Main) NIL)  (RM.ROOM 3 Panel.Main  ((IF  (AT.TOP 65535  (BOX  (SHADE 52275)
  (REGION  (2 2 1020 804)))  (TEXT  (STRING  "Panel.Main")  (FONT  (MODERN 36 BOLD))  (POSITION  (9 . 
18))  (OPERATION DROP.SHADOW)))))  ((RM.PLACEMENT 2 6  (35 611 73 23) NIL NIL  (35 . 611))  (
RM.PLACEMENT 2 7  (35 635 73 23) NIL NIL  (35 . 635))  (RM.PLACEMENT 2 8  (117 634 73 23) NIL NIL  (
290 . 635))  (RM.PLACEMENT 2 9  (467 778 73 23) NIL NIL  (387 . 775))  (RM.PLACEMENT 2 10  (196 633 73
 23) NIL NIL  (153 . 100))  (RM.PLACEMENT 2 11  (385 696 73 23) NIL NIL  (387 . 706))  (RM.PLACEMENT 2
 12  (387 752 73 23) NIL NIL  (11152 . 10861))  (RM.PLACEMENT 2 13  (387 778 73 23) NIL NIL  (387 . 
752))  (RM.PLACEMENT 2 14  (7 665 373 135)  (4 42405) NIL  (7 . 665))  (RM.PLACEMENT 2 15  (386 667 73
 23) NIL NIL  (387 . 683))  (RM.PLACEMENT 2 16  (385 636 73 23) NIL NIL  (387 . 637))  (RM.PLACEMENT 2
 17  (466 665 73 23) NIL NIL  (580 . 668))  (RM.PLACEMENT 2 18  (465 693 73 23) NIL NIL  (579 . 694)) 
 (RM.PLACEMENT 2 19  (466 723 73 23) NIL NIL  (469 . 723))  (RM.PLACEMENT 2 20  (467 749 73 23) NIL 
NIL  (468 . 749))  (RM.PLACEMENT 2 21  (117 610 73 23) NIL NIL  (290 . 611))  (RM.PLACEMENT 2 22  (386
 724 73 23) NIL NIL  (387 . 729))  (RM.PLACEMENT 2 23  (557 753 113 47) NIL NIL  (193 . 100))  (
RM.PLACEMENT 2 24  (566 724 83 24) NIL NIL  (193 . 100))  (RM.PLACEMENT 2 25  (670 662 346 137)  (4 
42405) NIL  (670 . 662))) NIL  (FILEPKB.COMS  (FILES %{QV%}<ROOMS>SOURCES>DESK-ACCESORIES 
%{QV%}<ROOMS>SOURCES>DCLOCK)))  (RM.ROOM 3 Panel.TEdit  ((IF  (AT.TOP 65535  (BOX  (SHADE 52275)  (
REGION  (2 2 1020 804)))  (TEXT  (STRING  "Panel.TEdit")  (FONT  (MODERN 36 BOLD))  (POSITION  (9 . 18
))  (OPERATION DROP.SHADOW)))))  ((RM.PLACEMENT 2 25  (691 671 316 129)  (4 42405) NIL  (696 . 678))  
(RM.PLACEMENT 2 14  (688 516 318 145)  (4 42405) NIL  (700 . 527))  (RM.PLACEMENT 2 13  (613 751 73 23
) NIL NIL  (619 . 750))  (RM.PLACEMENT 2 26  (612 703 73 23) NIL NIL  (11152 . 10861))  (RM.PLACEMENT 
2 27  (614 679 73 23) NIL NIL  (11152 . 10861))  (RM.PLACEMENT 2 20  (614 638 73 23) NIL NIL  (625 . 
600))  (RM.PLACEMENT 2 28  (614 613 73 23) NIL NIL  (543 . 373))  (RM.PLACEMENT 2 29  (614 589 73 23) 
NIL NIL  (624 . 448))  (RM.PLACEMENT 2 21  (614 565 73 23) NIL NIL  (625 . 422))  (RM.PLACEMENT 2 9  (
612 774 73 23) NIL NIL  (618 . 775))  (RM.PLACEMENT 2 23  (888 461 113 47) NIL NIL  (193 . 100))  (
RM.PLACEMENT 2 30  (613 727 73 23) NIL NIL  (11152 . 10861))) NIL NIL)  (RM.ROOM 3 TDProj-6  ((BOX  (
SHADE 34850)  (REGION  (2 2 1020 804)))  (COMMENT  (TESSELLATE  (BITMAP  (! WOVEN))  (OPERATION PAINT)
))  (FRAME  (SHADE 65535)  (FRAME.WIDTH 2))  (TEXT  (STRING TDProj-6)  (FONT  (MODERN 36 BOLD))  (
POSITION  (9 . 18))  (OPERATION  ((5 -3 PAINT)  (5 -5 PAINT)  (3 -3 PAINT)  (3 -5 PAINT)  (4 -4  (
MERGE ERASE 43605))  (1 1 PAINT)  (1 -1 PAINT)  (-1 1 PAINT)  (-1 -1 PAINT)  (0 0  (MERGE ERASE 65535)
))))) NIL  (Panel.Main) NIL)  (RM.ROOM 3 TDProj-Ed8  ((WHOLEBACKGROUND  (SHADE 34850))  (FRAME  (SHADE
 65535)  (WIDTH 2))  (TEXT  (STRING TDProj-Ed8)  (FONT  (MODERN 36 BOLD))  (POSITION  (9 . 18))  (
OPERATION DROP.SHADOW)))  ((RM.PLACEMENT 2 31  (24 14 73 23) NIL NIL  (173 . 120)))  (Panel.TEdit) NIL
)  (RM.ROOM 3 TDProj-Mail7  (65535  (BOX  (SHADE 34850)  (REGION  (2 2 1020 804)))  (TEXT  (STRING 
TDProj-Mail7)  (FONT  (MODERN 36 BOLD))  (POSITION  (9 . 18))  (OPERATION DROP.SHADOW))) NIL  (
Panel.Mail) NIL))  ((1  (1 BUTTON  (1  "NS"  (LAFITEMODE  (QUOTE NS)) BUTTON NIL NIL)) NIL)  (2  (1 
BUTTON  (1  "GV"  (LAFITEMODE  (QUOTE GV)) BUTTON NIL NIL)) NIL)  (3  (1 LAFITECOMMAND NIL) NIL)  (4  
(1 MAILSORTER NIL) NIL)  (5  (1 DOOR  (1  (1 BUTTON  (1  "Panel.TEdit" RM.DOOR.ACTION BUTTON NIL NIL))
 Panel.TEdit T)) NIL)  (6  (1 BUTTON  (1  "Cleanup"  (BKSYSBUF  "(CLEANUP)") ACTION.BUTTON NIL NIL)) 
NIL)  (7  (1 BUTTON  (1  "Files?"  (BKSYSBUF  "(FILES?)(CONN?)") ACTION.BUTTON NIL NIL)) NIL)  (8  (1 
BUTTON  (1  "Post-It"  (POSTIT) ACTION.BUTTON NIL NIL)) NIL)  (9  (1 DOOR  (1  (1 BUTTON  (1  
"Overview" WM.DOOR.ACTION BUTTON NIL NIL)) \INTROSPECTION NIL)) NIL)  (10  (1 BUTTON  (1  "Send Mail" 
 (\LAFITE.MESSAGEFORM) ACTION.BUTTON NIL NIL)) NIL)  (11  (1 BUTTON  (1  "Pocket"  (
RM.PICKUP.PLACEMENT) ACTION.BUTTON NIL NIL)) NIL)  (12  (1 BUTTON  (1  "EditRoom"  (RM.EDIT.ROOM.SPEC 
RM.CURRENT.ROOM) ACTION.BUTTON NIL NIL)) NIL)  (13  (1 BUTTON  (1  "Goto ..."  (RM.BACKGROUND.GOTO) 
ACTION.BUTTON NIL NIL)) NIL)  (14  (1 EXEC NIL) NIL)  (15  (1 BUTTON  (1  "Unpocket"  (
RM.PUTDOWN.PLACEMENT) ACTION.BUTTON NIL NIL)) NIL)  (16  (1 BUTTON  (1  "Retrieve"  (RM.RETRIEVE T) 
ACTION.BUTTON NIL NIL)) NIL)  (17  (1 DOOR  (1  (1 BUTTON  (1  "Programming" WM.DOOR.ACTION BUTTON NIL
 NIL)) Programming NIL)) NIL)  (18  (1 DOOR  (1  (1 BUTTON  (1  "Rooms" WM.DOOR.ACTION BUTTON NIL NIL)
) Rooms NIL)) NIL)  (19  (1 DOOR  (1  (1 BUTTON  (1  "Mail" WM.DOOR.ACTION BUTTON NIL NIL)) Mail NIL))
 NIL)  (20  (1 DOOR  (1  (1 BUTTON  (1  "Files" WM.DOOR.ACTION BUTTON NIL NIL)) Files NIL)) NIL)  (21 
 (1 BUTTON  (1  "Snap"  (SNAPW) ACTION.BUTTON NIL NIL)) NIL)  (22  (1 BUTTON  (1  "SendWdw"  (
RM.MOVE.PLACEMENT) ACTION.BUTTON NIL NIL)) NIL)  (23  (1 DCLOCK  ((TIMESROMAND 36  (BOLD REGULAR 
REGULAR))  (DATEFORMAT NO.DATE NO.SECONDS) 60)) NIL)  (24  (1 DCLOCK  ((HELVETICA 18  (BOLD REGULAR 
REGULAR))  (DATEFORMAT NO.TIME) 60)) NIL)  (25  (1 PROMPTWINDOW NIL) NIL)  (26  (1 BUTTON  (1  
"Pocket"  (RM.PICKUP.PLACEMENT) ACTION.BUTTON NIL NIL)) NIL)  (27  (1 BUTTON  (1  "Unpocket"  (
RM.PUTDOWN.PLACEMENT) ACTION.BUTTON NIL NIL)) NIL)  (28  (1 BUTTON  (1  "TEdit"  (TEDIT.MAKE  (
GETREGION)) ACTION.BUTTON NIL NIL)) NIL)  (29  (1 BUTTON  (1  "Post-It"  (POSTIT.CREATE) ACTION.BUTTON
 NIL NIL)) NIL)  (30  (1 BUTTON  (1  "SendWdw"  (RM.MOVE.PLACEMENT) ACTION.BUTTON NIL NIL)) NIL)  (31 
 (1 DOOR  (1  (1 BUTTON  (1  "TDProj-6" RM.DOOR.ACTION BUTTON NIL NIL)) TDProj-6 T)) NIL)))

(RPAQQ RM.BACK.DOOR.POSITION (24 . 14))
(PUTPROPS TechDesk.ROOMS COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP