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       ] |
+-------------------------------------+