Copyright (C) 1994, Digital Equipment Corp.
INTERFACE MForm;
IMPORT FormsVBT, TextPort;
TYPE
ButtonClosure <:
FormsVBT.Closure OBJECT
METHODS
init (model: TextPort.Model; setDefault := TRUE): ButtonClosure
END;
If a ButtonClosure is attached to a FormsVBT component, then the
event-handler for that component will call
TextPort.ChangeAllTextPorts (model)
If setDefault is TRUE, then the event-handler will also set
TextPort.DefaultModel to model.
TYPE
RadioClosure <: FormsVBT.Closure OBJECT
METHODS
init (READONLY map: Map; setDefault := TRUE): RadioClosure
END;
Map = ARRAY TextPort.Model OF TEXT;
If a RadioClosure is attached to a Radio-component named {\it rn} of a
form {\it fv}, then the event-handler for that component will look for a
model m such that
map[m] # NIL AND Text.Equal(map[m], FormsVBT.GetChoice(fv, rn))
If there is such an m, then the event-handler will call
TextPort.ChangeAllTextPorts (m)
If setDefault is TRUE, then the event-handler will also set
TextPort.DefaultModel to model.
This is intended to make it convenient to use a Radio component whose
choices correspond to models. Clients may wish to initialize such
components by calling
FormsVBT.PutChoice (fv, rn, map[TextPort,DefaultModel])
END MForm.