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 NEED_ATLEAST_ONE_FILE_TO_TRANSFORM
return false
}
}
GuidoForm frm00314 {
-default_buttons
-help_id 4
-label "3D transform"
-layout BoxLayout Y_AXIS
-tip "00314_TIP_001"
GuidoPanel frm00314_18 {
-border etched true
-label "Define the files to be transformed"
-layout CentreLineLayout Vertical Left
GuidoFileBrowserField inloc {
-display_length 26
-file_mask *.str
-format none
-label Location
-link inrange
-max_length 252
-null false
-tip "00314_TIP_002"
-translate lower
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField inrange {
-display_length 26
-format range
-label "ID range"
-max_length 32
-tip "00314_TIP_002"
-translate none
-validation {[validateRangeOfFilesForExistence $inloc $inrange]}
}
}
GuidoFiller filler {
-height 0.25
}
GuidoPanel frm00314_21 {
-border etched true
-label "Define the files to be created"
-layout CentreLineLayout Vertical Left
GuidoFileBrowserField outloc {
-display_length 26.3
-file_mask *.str
-extension false
-format none
-label Location
-max_length "FIO_MAX_LOCATION_LENGTH"
-tip "00314_TIP_004"
-translate lower
-null false
}
}
GuidoFiller filler {
-height 0.25
}
GuidoPanel boxstrings_panel {
-border etched true
-layout CentreLineLayout Vertical Left
GuidoCheckBox boxstrings {
-default false
-selected_value Y
-tip FRM_04948_1
-unselected_value N
}
GuidoLabel boxstrings_label {
-label "Create box string file for grid"
}
GuidoFiller filler {
-height 0.05
}
GuidoPanel p1 {
-layout BoxLayout Y_AXIS
GuidoFiller filler {
-width 1.5
}
GuidoPanel p2 {
-layout CentreLineLayout Vertical Left
GuidoFileBrowserField boxloc {
-dependency {"[ $boxstrings getCurrentValue]" == "Y"}
-display_length 23.7
-file_mask *.str
-format none
-label Location
-max_length 252
-tip FRM_04948_2
-translate lower
-file_access write
-extension false
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel interval_label {
-dependency {"[ $boxstrings getCurrentValue]" == "Y"}
-label "Define the annotation intervals"
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField yinterval {
-dependency {"[ $boxstrings getCurrentValue]" == "Y"}
-display_length 10
-format double
-high_bound 999999999
-label Y
-low_bound .1
-max_length 10
-next_focus xinterval
-null false
-tip "00314_TIP_008"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField xinterval {
-dependency {"[ $boxstrings getCurrentValue]" == "Y"}
-display_length 10
-format double
-high_bound 999999999
-label X
-low_bound .1
-max_length 10
-next_focus zinterval
-null false
-tip "00314_TIP_009"
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField zinterval {
-dependency {"[ $boxstrings getCurrentValue]" == "Y"}
-display_length 10
-format double
-high_bound 999999999
-label Z
-low_bound .1
-max_length 10
-null false
-tip "00314_TIP_010"
-translate upper
}
}
}
}
GuidoFiller filler {
-height 0.25
}
GuidoPanel p3 {
-layout BoxLayout X_AXIS
-border etched true
-label "Define the directions from eye to view point"
-display_length 31.6
GuidoField bearing {
-display_length 10.5
-format decimal_angle
-high_bound 6.283180459
-label Bearing
-low_bound 0
-max_length 10
-next_focus dip
-null false
-tip 00316_TIP_1
-translate upper
}
GuidoFiller filler {
-width 2.5
}
GuidoField dip {
-display_length 12
-format decimal_angle
-high_bound 1.570796327
-label Dip
-low_bound -1.570796327
-max_length 10
-null false
-tip 00316_TIP_1
-translate upper
}
}
GuidoFiller filler {
-height 0.25
}
GuidoPanel p6 {
-layout BoxLayout X_AXIS
GuidoPanel p4 {
-layout CentreLineLayout Vertical Left
-border etched true
-label "Define the transformation centre"
-display_length 16
GuidoField ycent {
-decimals 6
-display_length 12.7
-format double
-label Y
-max_length 16
-null false
-tip 00316_TIP_2
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField xcent {
-decimals 6
-display_length 12.7
-format double
-label X
-max_length 16
-null false
-tip 00316_TIP_2
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField zcent {
-decimals 6
-display_length 12.7
-format double
-label Z
-max_length 16
-null false
-tip 00316_TIP_2
-translate upper
}
}
GuidoPanel p5 {
-layout CentreLineLayout Vertical Left
-border etched true
-display_length 15.3
-label "Define the scaling parameters"
GuidoField yscale {
-decimals 6
-display_length 12.7
-format double
-label Y
-max_length 16
-next_focus xscale
-null false
-tip 00316_TIP_3
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField xscale {
-decimals 6
-display_length 12.7
-format double
-label X
-max_length 16
-next_focus zscale
-null false
-tip 00316_TIP_3
-translate upper
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField zscale {
-decimals 6
-display_length 12.7
-format double
-label Z
-max_length 16
-null false
-tip 00316_TIP_3
-translate upper
}
}
}
}
