VxAlignedForm(VTCL)
VxAlignedForm(VTCL)
VxAlignedForm --
create vertically aligned widget(s) in a form, return widget name
Syntax
VxAlignedForm object_name dataList
Description
Creates one or more vertically aligned widgets within a form, with
right-justified labels.
Options
- object_name
-
Widget hierarchy of the form.
- dataList
-
A list of lists, each containing a label and
another list containing the desired widget call
and any desired arguments.
Notes
Each Label and Widget are in their own form.
Their widget names may be retrieved as follows:
- Form
-
VxGetVar $name "form$n"
- Widget
-
VxGetVar $name "widget$n"
- Label
-
VxGetVar $name "label$n"
Where $name is the name returned by the VxAlignedForm
call, and $n is the position of the widget.
The first widget is number 1.
For example:
set app [VtOpen "VxAlignedForm"]
set dlog [VtFormDialog $app.Dialog -title "My Aligned form"]
set form [VxAlignedForm $dlog.Align\
{ {"Name:" {VtText -columns 15 -value "John Doe"}}
{"Address:" {VtText -value "123 Hickory Street"}}
{"Phone Number:" {VtText -value "800-555-1212"}}}]
VtShow $dlog
VtMainLoop
Produces a form like this:
+-------------------------------------+
| Name: [John Doe ] |
| Address: [123 Hickory Street ] |
|Phone Number: [800-555-1212 ] |
+-------------------------------------+