proc changeOnModelType { } {
global single_size
set dataBuffer [ GuidoExecServer GetBlockModelParameters {} ]
set modelType [ GuidoGetParamBufferValue $dataBuffer "ModelType" ]
if {$modelType == "simple"} {
$single_size setInputAllowed false
}
}
GuidoForm frm21406 {
-default_buttons
-label "Import Centroids"
-layout BoxLayout Y_AXIS
-tip "21406_TIP_001"
-action initial {[changeOnModelType]}
GuidoPanel frm21406_24 {
-layout CentreLineLayout
-label "Input File Properties"
-border etched true
GuidoFileBrowserField in_fname {
-display_length 16
-font_style bold
-format none
-label "Input file"
-max_length FIO_MAX_FILENAME_LENGTH
-null false
-tip "Enter or select the name of the text file containing the data to be imported."
}
GuidoField num_hdrs {
-default 0
-display_length 5
-font_style bold
-format integer
-label "Number of header lines"
-low_bound 0
-max_length 5
-null false
-tip "Enter the number of lines to ignore at the start of the input file."
}
GuidoField comments {
-display_length 5
-font_style bold
-format none
-label "Comment characters"
-max_length 64
-tip "21406_TIP_004"
-next_focus delimited
}
GuidoCheckBox delimited {
-default true
-font_style bold
-label Delimited?
-next_focus delimiter
-selected_value Y
-tip "Select Y if the fields are delimited or N if they are in fixed format."
-unselected_value N
-next_focus delimeter
}
GuidoField delimiter {
-default ,
-dependency {"[ $delimited getCurrentValue]" == "Y"}
-display_length 2
-font_style bold
-format none
-label Delimiter
-max_length 1
-tip "Enter the delimiter character (leave blank if the input records are space delimited)."
-next_focus resolution
}
}
GuidoPanel frm21406_35 {
-layout CentreLineLayout
-border etched true
-label "Import Parameters"
GuidoCheckBox single_size {
-default true
-label "Regular block size?"
-selected_value Y
-tip "Select if all blocks in the file to be imported are the same size"
-unselected_value N
}
GuidoComboBox resolution {
-dependency {"[ $single_size getCurrentValue]" == "Y"}
-label "Target block size (X, Y, Z)"
-display_length 15
-max_length 50
-null false
-tip "21406_TIP_007"
-next_focus count_att
}
GuidoComboBox count_att {
-display_length 15
-format none
-label "Point count attribute"
-max_length BM_MAX_ATT_NAME_LEN
-no_mlt
-tip "21406_TIP_008"
-next_focus frm21406_12
}
GuidoLabel multi_point {
-label "If multiple data points use"
-height 1
}
GuidoPanel frm21406_14 {
-font_style bold
-layout BoxLayout X_AXIS
-tip "21406_TIP_009"
GuidoButtonGroupPanel multiple {
GuidoRadioButton frm21406_12 {
-caption "first point"
-selected_value first
}
GuidoRadioButton frm21406_13 {
-caption "last point"
-default true
-selected_value last
-next_focus constrain
}
}
}
GuidoCheckBox constrain {
-default false
-font_style bold
-label Constrain?
-selected_value Y
-tip "Specify 'Y' to constrain the centroids, or 'N' to load all data."
-unselected_value N
-next_focus log_fname
}
}
GuidoPanel Output_rep {
-layout CentreLineLayout
-border etched true
-label "Output log parameters"
GuidoFileBrowserField log_fname {
-default err
-display_length 20
-font_style bold
-format none
-label "REPORT_FILE_NAME"
-max_length FIO_MAX_FILENAME_LENGTH
-tip "21406_TIP_011"
-next_focus num_errs
-file_mask reports|*.log
-file_access write
-extension false
}
GuidoComboBox report_format {
-label "Format"
-display_length 18
-null false
-tip "The file format nominated here will be the output report format."
-value_in ".not - Surpac Note File" ".csv - Comma Separated (Spreadsheet)" ".htm - Hypertext Markup Language (Web)" ".html - Hypertext Markup Language (Web)" ".rtf - Rich Text Format (Microsoft Word)" ".pdf - Adobe Acrobat" ".ps - Postscript" ".log - Surpac log file"
}
GuidoField num_errs {
-display_length 5
-font_style bold
-format integer
-label "Errors reported"
-low_bound 0
-max_length 5
-tip "21406_TIP_012"
}
}
}
