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: PByte;

general purpose to User data extension

  UserData: PByte;

end;