proc validateRangeOfFilesForExistence {location range} {
set filename [$location getCurrentValue]
set file_range [$range getCurrentValue]
set buffer [GuidoExecServer ValidateRangeOfFilesForExistence [subst {FILE_NAME = "$filename" FILE_RANGE = "$file_range"}]]
set status [GuidoGetParamBufferValue $buffer status]
if {$status < 0} {
GuidoMessage warning APP_FILES_MISSING_IN_RANGE
return false
}
}
GuidoLabel newid {}
GuidoForm frm00284 {
-default_buttons
-help_id 1
-label "Transform Coordinates of Strings (2d)"
-layout BoxLayout Y_AXIS
-tip "00284_TIP_0"
GuidoPanel frm00284_34 {
-border etched true
-label "Define files to transform"
-layout CentreLineLayout
GuidoFileBrowserField locn {
-display_length 26
-file_mask *.str
-extension false
-format none
-label Location
-link lrange
-max_length "FIO_MAX_LOCATION_LENGTH"
-null false
-tip "00284_TIP_1"
-translate none
}
GuidoField lrange {
-display_length 32
-format range
-label "ID range"
-max_length 32
-null false
-tip "00284_TIP_1"
-translate none
-validation {[validateRangeOfFilesForExistence $locn $lrange]}
}
}
GuidoFiller frm00284_35 {
-height 1
}
GuidoPanel frm00284_36 {
-border etched true
-label "Define files to create"
-layout CentreLineLayout
GuidoFileBrowserField oloc {
-display_length 26
-format none
-file_mask *.str
-extension false
-link newid
-label Location
-max_length "FIO_MAX_LOCATION_LENGTH"
-tip "00284_TIP_2"
-translate none
-null false
}
}
GuidoFiller frm00284_37 {
-height 1
}
GuidoPanel frm00284_40 {
-layout BoxLayout X_AXIS
GuidoPanel frm00284_38 {
-border etched true
-layout CentreLineLayout
GuidoCheckBox rl {
-default false
-label "Any Z correction"
-next_focus trnax
-selected_value Y
-tip "00284_TIP_3"
-unselected_value N
}
GuidoCheckBox trnax {
-default false
-label "Transform AB axis"
-next_focus frm00284_30
-selected_value Y
-tip "00284_TIP_4"
-unselected_value N
}
}
GuidoFiller frm00284_42 {
-width 1
}
GuidoPanel frm00284_39 {
-border etched true
-layout CentreLineLayout
GuidoFiller frm00284_41 {}
GuidoPanel frm00284_32 {
-layout BoxLayout X_AXIS
-tip "00284_TIP_017"
GuidoButtonGroupPanel rltyp {
GuidoRadioButton frm00284_30 {
-caption Addition
-selected_value A
}
GuidoRadioButton frm00284_31 {
-caption Multiplication
-next_focus rl_correct
-selected_value M
}
}
}
GuidoField rl_correct {
-decimals 6
-display_length 16
-format double
-label "Correction factor"
-max_length 16
-null false
-tip "00284_TIP_6"
-translate upper
}
}
GuidoFiller frm00284_42 {
-width 1
}
}
GuidoFiller frm00284_43 {
-height 1
}
GuidoLabel frm00284_12 {
-label "Define transformation parameters"
}
GuidoPanel frm00284_46 {
-layout BoxLayout X_AXIS
GuidoPanel frm00284_44 {
-border etched true
-label "Old points"
-layout CentreLineLayout
GuidoField yd1 {
-decimals 6
-display_length 16
-format double
-label Y1
-max_length 16
-next_focus xd1
-null false
-tip "00284_TIP_7"
-translate upper
}
GuidoField xd1 {
-decimals 6
-display_length 16
-format double
-label X1
-max_length 16
-next_focus yd2
-null false
-tip "00284_TIP_7"
-translate upper
}
GuidoField yd2 {
-decimals 6
-display_length 16
-format double
-label Y2
-max_length 16
-next_focus xd2
-null false
-tip "00284_TIP_7"
-translate upper
}
GuidoField xd2 {
-decimals 6
-display_length 16
-format double
-label X2
-max_length 16
-next_focus ym1
-null false
-tip "00284_TIP_7"
-translate upper
}
}
GuidoFiller frm00284_47 {
-width 1
}
GuidoPanel frm00284_45 {
-border etched true
-label "New points"
-layout CentreLineLayout
GuidoField ym1 {
-decimals 6
-display_length 16
-format double
-label Y1
-max_length 16
-next_focus xm1
-null false
-tip "00284_TIP_7"
-translate upper
}
GuidoField xm1 {
-decimals 6
-display_length 16
-format double
-label X1
-max_length 16
-next_focus ym2
-null false
-tip "00284_TIP_7"
-translate upper
}
GuidoField ym2 {
-decimals 6
-display_length 16
-format double
-label Y2
-max_length 16
-next_focus xm2
-null false
-tip "00284_TIP_7"
-translate upper
}
GuidoField xm2 {
-decimals 6
-display_length 16
-format double
-label X2
-max_length 16
-null false
-tip "00284_TIP_7"
-translate upper
}
}
GuidoFiller frm00284_47 {
-width 1
}
}
}
