Copyright (C) 1994, Digital Equipment Corp. INTERFACEA VContainerDLE.T is a subclass of DisplayList.T. (And similarly for VContainerDLE.E.)VContainerDLE ; IMPORT DisplayList, DPS, DPSWindow, Linked2Tree;
A VContainerDLE.T arranges its children into a vertical column, origined at its own {x, y}, and sets its own width and height to circumscribe them.
TYPE T = DisplayList.T OBJECT initialized: BOOLEAN := FALSE; separation: REAL := 0.0; METHODS Rearrange() := Rearrange; OVERRIDES Prepend := Prepend; Append := Append; Remove := Remove; Repaint := Repaint; Mouse := Mouse; Char := Char; MakeChildLast := MakeChildLast; END; TYPE E = T; PROCEDURE Init (e: E; window: DPSWindow.T); PROCEDURE Rearrange (e: E); PROCEDURE Repaint (e: E; box: DPS.Box; only: REFANY := NIL): TEXT; PROCEDURE Mouse (e: E; window: DPSWindow.T; event: DPS.MouseEvent): BOOLEAN; PROCEDURE Char (e: E; window: DPSWindow.T; char: CHAR): BOOLEAN; PROCEDURE Prepend (t: Linked2Tree.T; e: Linked2Tree.E); PROCEDURE Append (t: Linked2Tree.T; e: Linked2Tree.E); PROCEDURE Remove (e: Linked2Tree.E); PROCEDURE MakeChildLast (t: Linked2Tree.T; e: Linked2Tree.E): Linked2Tree.E; END VContainerDLE.