proc updateInputFile { action } {
global inp_loc
if { "[$action getCurrentValue]" == "Up load co-ordinates" } {
$inp_loc setFileMask "*.str"
} else {
$inp_loc setFileMask "*.*"
}
}
GuidoForm frm00256 {
-default_buttons
-help_id 1046
-layout BoxLayout Y_AXIS
-tip "00256_TIP_001"
GuidoPanel frm00256_8 {
-label "Select Data Recorder Function"
-border etched true
-layout CentreLineLayout
GuidoButtonGroupPanel drfunction {
-layout GridLayout 3 2
-action valueChanged {[updateInputFile $drfunction]}
GuidoRadioButton b1 {
-height 1
-caption "Download from recorder to file"
-selected_value "Down load to file"
}
GuidoRadioButton b4 {
-height 1
-caption "Upload co-ordinates to recorder"
-selected_value "Up load co-ordinates"
}
GuidoRadioButton b2 {
-height 1
-caption "PROCESS_INPUT_FILE"
-selected_value "Process input file"
}
GuidoRadioButton b5 {
-height 1
-caption "Edit data recorder configuration"
-selected_value "Configuration"
}
GuidoRadioButton b3 {
-height 1
-caption "Download from recorder & process"
-selected_value "Down load & Process"
}
}
}
GuidoFiller fil1 {
-height 0.5
}
GuidoPanel frm00256_9 {
-layout CentreLineLayout
GuidoFileBrowserField config {
-label "Configuration File"
-dependency {"[ $drfunction getCurrentValue]" != "Process input file"}
-display_length 28
-file_mask *.dr
-format none
-max_length 256
-tip "Name of the data recorder configuration file."
-translate none
}
GuidoField job {
-label "Job/Area name"
-dependency {"[ $drfunction getCurrentValue]" != "Configuration"}
-display_length 28
-format none
-max_length 32
-tip "If the data recorder supports down/up load of specific job/areas then enter the job/area name."
-translate none
}
GuidoFileBrowserField inp_loc {
-label "Location"
-dependency {"[ $drfunction getCurrentValue]" != "Configuration"}
-display_length 28
-file_mask "*.*"
-format none
-null false
-max_length FIO_MAX_LOCATION_LENGTH
-action initial {[updateInputFile $drfunction]}
-tip "TIP_00256_1"
-translate none
-legacy_validation
}
GuidoCheckBox archive {
-label "Archive survey"
-dependency {"[ $drfunction getCurrentValue]" == "Process input file"}
-default true
-selected_value Y
-unselected_value N
-tip "SURVEY_ARCHIVE_TIP2"
}
GuidoFileBrowserField archive_directory {
-label "Archive directory"
-dependency {"[ $drfunction getCurrentValue]" == "Process input file" && "[ $archive getCurrentValue]" == "Y"}
-browser_type directory
-display_length 28
-max_length 256
-file_mask "*.*"
-absolutePath
-tip "SURVEY_ARCHIVE_TIP"
}
GuidoField range {
-label "String Range"
-dependency {"[ $drfunction getCurrentValue]" == "Up load co-ordinates"}
-display_length 28
-format range
-max_length 16
-tip "Range of strings to be uploaded into data recorder, blank to load all strings."
-translate upper
}
GuidoComboBox ptnumbers {
-label "Dfield for Pt Numbers"
-dependency {"[ $drfunction getCurrentValue]" == "Up load co-ordinates"}
-display_length 5
-format string_field
-max_length 4
-next_focus ptdescriptions
-tip "00256_TIP_006"
-value_in Y X Z D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31 D32 D33 D34 D35 D36 D37 D38 D39 D40 D41 D42 D43 D44 D45 D46 D47 D48 D49 D50 D51 D52 D53 D54 D55 D56 D57 D58 D59 D60 D61 D62 D63 D64 D65 D66 D67 D68 D69 D70 D71 D72 D73 D74 D75 D76 D77 D78 D79 D80 D81 D82 D83 D84 D85 D86 D87 D88 D89 D90 D91 D92 D93 D94 D95 D96 D97 D98 D99 D100
}
GuidoComboBox ptdescriptions {
-label "Dfield for Pt descriptions"
-dependency {"[ $drfunction getCurrentValue]" == "Up load co-ordinates"}
-display_length 5
-format string_field
-max_length 4
-tip "Description field to load point desciptions from blank otherwise."
-value_in Y X Z D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31 D32 D33 D34 D35 D36 D37 D38 D39 D40 D41 D42 D43 D44 D45 D46 D47 D48 D49 D50 D51 D52 D53 D54 D55 D56 D57 D58 D59 D60 D61 D62 D63 D64 D65 D66 D67 D68 D69 D70 D71 D72 D73 D74 D75 D76 D77 D78 D79 D80 D81 D82 D83 D84 D85 D86 D87 D88 D89 D90 D91 D92 D93 D94 D95 D96 D97 D98 D99 D100
}
}
}
