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

10 lines
3.6 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' WALLPAPER
2
4
1
WALLPAPER
1
4
By: Doug Cutting (Cutting.PA@Xerox.COM) and
Larry Masinter (Masinter.PA@Xerox.COM)
Uses: SCREENPAPER
This document last edited on August 8, 1988.
INTRODUCTION
This module provides an easy way to create distinctive backgrounds for your rooms.
All symbols described in this document are in the package ROOMS.
FUNCTIONS
(MAKE-WALLPAPER-WINDOW &OPTIONAL REGION) [Function]
Makes and returns a Wallpaper window. When the LEFT or MIDDLE mouse button is pressed over Wallpaper windows the user is asked to select a tile size, then a position for the tile. Positions are selected with the LEFT button. Each tile is displayed in the window. If the user presses the MIDDLE button then the background of the current room is changed to be the current tile. The user can abort this process at any time by pressing the RIGHT mouse button.
There is a window type definition for Wallpaper windows so they may be saved in Suites.
(HACK-BACKGROUND SHADE &OPTIONAL ROOM) [Function]
Changes the first background shade specified for ROOM to be SHADE. If ROOM does not paint the background then this function adds a command to the background specification for ROOM which paints the whole screen with SHADE. ROOM defaults to the current room.
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 10) (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  HELVETICA
MODERN
MODERN
MODERN MODERN 
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN

 HRULE.GETFNMODERN  HRULE.GETFNMODERN T, SA
( <01>X& <04>6z<36>