tScreen

type tScreen = record

  NextScreen: pScreen;

linked list of screens in intuition

  FirstWindow: pWindow;

linked list Screen's Windows

  LeftEdge: SmallInt;

Left edge of Screen

  TopEdge: SmallInt;

Top Edge of screen

  Width: SmallInt;

Width of screen

  Height: SmallInt;

Height of screen

  MouseY: SmallInt;

  MouseX: SmallInt;

Current mouse position, relative to upper left edge

  Flags: Word;

Screen flags

  Title: PChar;

Screen title

  DefaultTitle: PChar;

shown when window without screen title is active

  BarHeight: ShortInt;

Bar sizes for this Screen

  BarVBorder: ShortInt;

  BarHBorder: ShortInt;

  MenuVBorder: ShortInt;

  MenuHBorder: ShortInt;

  WBorTop: ShortInt;

Decoration size for all windows in this screen

  WBorLeft: ShortInt;

  WBorRight: ShortInt;

  WBorBottom: ShortInt;

  Font: pTextAttr;

this screen's default font

  ViewPort: tViewPort;

describing the Screen's display

  RastPort: tRastPort;

describing Screen rendering

  BitMap: tBitMap;

extra copy of RastPort BitMap obsolete

  LayerInfo: tLayer_Info;

each screen gets a LayerInfo

  FirstGadget: pGadget;

You supply a linked-list of Gadgets for your Screen. This list does not include system Gadgets. You get the standard system Screen Gadgets by default

  DetailPen: Byte;

for bar/border/gadget rendering

  BlockPen: Byte;

for bar/border/gadget rendering

  SaveColor0: Word;

SAve variable for display Beep

  BarLayer: pLayer;

This layer is for the Screen and Menu bars

  ExtData: Pointer;

general purpose to User data extension

  UserData: Pointer;

end;