!----------------------------------------------------------------------!!  Dialog for creating new directory!!  25-Feb-99  I-03-04  dvs  $$1 created!  08-Dec-06  L-01-22  HMR  $$2 Set maximum name length to 255.!  09-Mar-07  L-01-28  HMR  $$3 Changed label to "New Folder".!  30-May-07  L-01-32  jas  $$4 Fixed titlebar buttons and resizing!!----------------------------------------------------------------------(Dialog getnewdir    (Components        (PushButton                     Cancel_button)        (PushButton                     OK_button)        (Label                          current_dir_label)        (Label                          cur_dir_value)        (Label                          new_dir_label)        (InputPanel                     new_dir_input)    )    (Resources        (Cancel_button.Label            "Cancel")        (Cancel_button.UseStandardWidth 1)        (OK_button.Label                "OK")        (OK_button.BottomOffset         0)        (OK_button.UseStandardWidth     1)        (current_dir_label.Label        "Current Directory:")        (current_dir_label.AttachLeft   True)        (current_dir_label.Alignment    0)        (current_dir_label.BottomOffset 0)        (cur_dir_value.Label            "/...")        (cur_dir_value.AttachLeft       True)        (cur_dir_value.AttachRight      True)        (cur_dir_value.Alignment        0)        (cur_dir_value.BottomOffset     0)        (new_dir_label.Label            "New Directory:")        (new_dir_label.Alignment        0)        (new_dir_input.MaxLen           255)        (new_dir_input.AlwaysHasFocus   True)        (.Label                         "New Folder")        (.Focus                         "new_dir_input")        (.TopOffset                     5)        (.BottomOffset                  5)        (.LeftOffset                    5)        (.RightOffset                   5)        (.DefaultButton                 "OK_button")        (.SystemMenuButton              False)        (.AcceleratorCode               65536)        (.RememberSize                  False)        (.CloseButton                   False)        (.LowerButton                   False)        (.Layout            (Grid (Rows 1) (Cols 1 0)                (Grid (Rows 1 1 1) (Cols 1)                    current_dir_label                    cur_dir_value                    (Grid (Rows 1) (Cols 0 1)                        new_dir_label                        new_dir_input                    )                )                (Grid (Rows 0 0 1) (Cols 0)                    OK_button                    Cancel_button                )            )        )    ))