<* PRAGMA LL *>A
TextEditVBT
combines a textport with a scrollbar.
INTERFACEThe callTextEditVBT ; IMPORT TextPort, TextPortClass, VBT; TYPE T <: Public; Public = Private BRANDED OBJECT (* READONLY after init *) tp: TextPort.T := NIL; sb: Scrollbar := NIL; METHODS <* LL.sup = VBT.mu *> init (scrollable := TRUE): T END; Private <: VBT.T; Scrollbar <: TextPortClass.Scrollbar;
v.init()
initializes v
as a TextEditVBT
and returns
v
. If the textport, v.tp
, is NIL
, then a new textport will be
allocated, initialized (with default parameters), and assigned to
v.tp
. If scrollable
is FALSE
, then there will be no
scrollbar. If scrollable
is TRUE
but v.sb
is NIL
, then a
new scrollbar will be allocated, initialized as a vertical
scrollbar with the textport's color scheme, and assigned to v.sb
.
If v
is scrollable, then the default layout will contain a
scrollbar, either on the leftside or rightside of the textport,
depending on the value of the SCROLLBARLOC
environment variable
(see the VBTKitEnv
interface for details).
END TextEditVBT.