
  TYPE
    clt$parameter_dialog_support = record
      get_brief_help: ^procedure
            (    max_message_line: ost$max_status_message_line;
             VAR message: ^ost$status_message;
             VAR status: ost$status),
      get_full_help: ^procedure
            (    max_message_line: ost$max_status_message_line;
             VAR message: ^ost$status_message;
             VAR status: ost$status),
      get_parameter_prompt: ^procedure
            (    parameter_number: clt$parameter_number;
                 max_message_line: ost$max_status_message_line;
             VAR message: ^ost$status_message;
             VAR status: ost$status),
      get_parameter_assist_prompt: ^procedure
            (    parameter_number: clt$parameter_number;
                 max_message_line: ost$max_status_message_line;
             VAR message: ^ost$status_message;
             VAR status: ost$status),
      get_parameter_help: ^procedure
            (    parameter_number: clt$parameter_number;
                 max_message_line: ost$max_status_message_line;
             VAR message: ^ost$status_message;
             VAR status: ost$status),
      get_all_parameter_specs: ^procedure
            (    include_advanced_items: boolean;
                 max_representation_line: clt$string_size;
             VAR representation: ^clt$data_representation;
             VAR status: ost$status),
      get_parameter_spec: ^procedure
            (    parameter_number: clt$parameter_number;
                 include_advanced_keywords: boolean;
                 max_representation_line: clt$string_size;
             VAR representation: ^clt$data_representation;
             VAR status: ost$status),
      get_parameter_value: ^procedure
            (    parameter_number: clt$parameter_number;
             VAR value: clt$parameter_value;
             VAR status: ost$status),
      get_parameter_value_source: ^procedure
            (    parameter_number: clt$parameter_number;
                 max_representation_line: clt$string_size;
             VAR representation: ^clt$data_representation;
             VAR status: ost$status),
      get_parameter_default: ^procedure
            (    parameter_number: clt$parameter_number;
             VAR text: ^clt$expression_text;
             VAR status: ost$status),
      evaluate_parameter: ^procedure
            (    parameter_number: clt$parameter_number;
                 text: clt$expression_text;
             VAR status: ost$status),
      restore_parameter_default: ^procedure
            (    parameter_number: clt$parameter_number;
             VAR status: ost$status),
      verify_all_parameters: ^procedure
            (VAR error_locator: clt$which_parameter;
             VAR status: ost$status),
      explain: ^procedure
            (VAR explanation_available: boolean;
             VAR status: ost$status),
      get_all_names: ^procedure
            (VAR names: ^array [1 .. * ] of clt$command_name;
             VAR status: ost$status),
      get_source: ^procedure
            (VAR source_string: fst$path;
             VAR source_string_size: fst$path_size;
             VAR status: ost$status),
      help_module: ^ost$help_module,
      change_expression_save: ^procedure
            (    save_expression_source: boolean;
             VAR status: ost$status),
      nested_dialog: ^procedure
            (    text: clt$expression_text;
                 dialog_pdt: clt$unbundled_pdt;
                 dialog_title: clt$string_value;
                 max_representation_line: clt$string_size;
             VAR representation: ^clt$data_representation;
             VAR status: ost$status),
      nested_dialog_title: ^clt$string_value,
    recend;

*copyc clt$command_name
*copyc clt$data_representation
*copyc clt$expression_text
*copyc clt$parameter_number
*copyc clt$parameter_value
*copyc clt$string_size
*copyc clt$which_parameter
*copyc fst$path
*copyc fst$path_size
*copyc ost$help_module
*copyc ost$max_status_message_line
*copyc ost$status
*copyc ost$status_message
