! 17-Apr-00  J-01-06  SJB  $$1 Created.! 17-May-00  J-01-08  SJB  $$2 Modified.(Dialog body    (Components        (SubLayout                      name_layo)        (SubLayout                      bottom_btns_layo)        (SubLayout                      number_of_parts_layo)        (SubLayout                      add_parts_layo)    )    (Resources        (.Label                         "Body Definition")        (.StartLocation                 301)        (.DefaultButton                 "ok_btn")        (.AcceleratorCode               67108864)        (.Layout            (Grid (Rows 0 1 1 1) (Cols 1)                name_layo                add_parts_layo                number_of_parts_layo                bottom_btns_layo            )        )    ))(Layout name_layo    (Components        (InputPanel                     name_inpt)    )    (Resources        (name_inpt.ModalOveride         2)        (name_inpt.AutoHighlight        True)        (.Label                         "Name")        (.Decorated                     True)        (.AttachLeft                    True)        (.AttachRight                   True)        (.Layout            (Grid (Rows 1) (Cols 1)                name_inpt            )        )    ))(Layout bottom_btns_layo    (Components        (PushButton                     ok_btn)        (PushButton                     cancel_btn)    )    (Resources        (ok_btn.Label                   "OK")        (ok_btn.HelpText                "Accept the current body construction")        (ok_btn.ModalOveride            2)        (ok_btn.AttachBottom            True)        (cancel_btn.Label               "Cancel")        (cancel_btn.ModalOveride        2)        (cancel_btn.AttachBottom        True)        (.AttachLeft                    True)        (.AttachRight                   True)        (.Layout            (Grid (Rows 1) (Cols 1 1)                ok_btn                cancel_btn            )        )    ))(Layout number_of_parts_layo    (Components        (Label                          number_txt)        (InputPanel                     num_parts)    )    (Resources        (number_txt.Label               "Number of Parts")        (number_txt.AttachLeft          True)        (number_txt.AttachRight         True)        (number_txt.Alignment           0)        (num_parts.Columns              5)        (num_parts.Editable             False)        (num_parts.MinInteger           0)        (.Decorated                     True)        (.AttachLeft                    True)        (.AttachRight                   True)        (.Layout            (Grid (Rows 1) (Cols 0 1)                number_txt                num_parts            )        )    ))(Layout add_parts_layo    (Components        (Label                          select_txt)        (PushButton                     sel_part)    )    (Resources        (select_txt.Label               "Select parts to add to the body ")        (select_txt.AttachLeft          True)        (select_txt.LeftOffset          3)        (sel_part.Bitmap                "sel_pick.bif")        (sel_part.HelpText              "Select a part to add to the body")        (sel_part.AttachLeft            True)        (.Label                         "Add Parts")        (.Decorated                     True)        (.AttachLeft                    True)        (.AttachRight                   True)        (.Layout            (Grid (Rows 1) (Cols 1 1)                sel_part                select_txt            )        )    ))