1
0
mirror of synced 2026-01-13 15:37:38 +00:00
Interlisp.medley/rooms/RANDOM-WINDOW-TYPES.TEDIT
2020-12-13 17:54:28 -07:00

6 lines
3.2 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

ROOMS USERS' RANDOM-WINDOW-TYPES
2
4
1
RANDOM-WINDOW-TYPES
1
4
By: Doug Cutting (Cutting.PA@Xerox.COM),
Stan Lanning (Lanning.PA@Xerox.COM) and
Ramana Rao (Rao.PA@Xerox.COM)
This document last edited on April 21, 1988.
This module contains window type definitions for many LispUsers modules.
These definitions serve two purposes. Their primary purpose is to allow one to save windows created by these modules in suites. Secondarily they provide good examples of window type definitions for the programmer attempting to define his own.
Modules covered are:
WHO-LINE
CALENDAR
PRINTERMENU
CROCK
BICLOCK
ADDRESSBOOK
PHONE-DIRECTORY
GRID-ICONS
In addition, support is provided for the FILEWATCH LispUsers module. This works by adding a property to each room which notes whether FILEWATCH is on in that room. This property is not inherited, i.e. including a room in which FILEWATCH is does not turn FILEWATCH on.
A listing of RANDOM-WINDOW-TYPES can be found in Appendix A of this document.
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 7) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))2<01><01>,<01>,<00><00>8,<00><00>8H<01><01> PAGEHEADING RUNNINGHEADMODERN MODERN
MODERN
MODERN MODERN  HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN  HRULE.GETFNMODERN p,K<00>SN<03>)z<>