VxAlignedForm(1vtcl)

VxAlignedForm -- create vertically aligned widget(s) in a form, return widget name

Synopsis

VxAlignedForm widgetName dataList

Description

Creates one or more vertically aligned widgets within a form, with right-justified labels.

Options

widgetName: 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.

Notices

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