MODULE; IMPORT VBT; IMPORT PaneFrame; IMPORT TextVBT; IMPORT TextPaneSquat; IMPORT Debug; IMPORT Split; IMPORT HVSplit; IMPORT Axis; CONST DebugLevel = 90; REVEAL T = TextPaneSquat.T BRANDED OBJECT OVERRIDES installPane := InstallPane; END; PROCEDURE MiniPane InstallPane (frame: T; pane: VBT.T) = BEGIN Debug.S("MiniPane.InstallPane", DebugLevel); frame := HVSplit.T.init(frame, Axis.T.Ver, adjustable := FALSE); frame.status := NEW(TextVBT.T).init("..."); frame.pane := pane; Split.AddChild(frame, pane); END InstallPane; BEGIN END MiniPane.