GuidoScript scripts/strfileutilities.tcl
global qual1loc
global qual1fld
global qual2loc
global qual2fld
GuidoForm frm00096 {
-action initial { [ getDescriptionFieldNames $qual1loc $qual1fld]}
-action initial { [ getDescriptionFieldNames $qual2loc $qual2fld]}
-default_buttons
-label "Define quality parameters to use"
-layout BoxLayout Y_AXIS
-tip 00096_TIP_0
GuidoPanel frm00096_1 {
-layout CentreLineLayout Vertical Left
GuidoPanel frm00096_2 {
-layout CentreLineLayout Vertical Left
GuidoLabel nqual_label {
-label "Number of parameters"
}
GuidoLabel nqual {
-font_style bold
}
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel search_label {
-label "Sample search method"
}
GuidoPanel p1 {
-layout BoxLayout Y_AXIS
GuidoButtonGroupPanel search {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm00096_21 {
-caption "All points inside a triangle"
-selected_value I
-tip 00096_TIP_3
}
GuidoRadioButton frm00096_22 {
-caption "Radial search with inverse distance squared"
-next_focus searchdist
-selected_value R
-tip 00096_TIP_3
}
}
GuidoPanel p2 {
-layout BoxLayout X_AXIS
GuidoFiller filler {
-width 1.7
}
GuidoPanel p3 {
-layout CentreLineLayout Vertical Left
GuidoField searchdist {
-dependency {"[ $search getCurrentValue]" == "R"}
-display_length 5
-format double
-high_bound 999999
-label "Search radius"
-low_bound 0.1
-max_length 5
-next_focus ireqpts
-null false
-tip 00096_TIP_4
-translate upper
}
}
}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField ireqpts {
-display_length 5
-format integer
-high_bound 999
-label "Minimum number of points"
-low_bound 1
-max_length 5
-null false
-tip 00096_TIP_5
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel l1 {
-font_style bold
-label "Define first quality"
}
GuidoFiller f2 {
-height 1
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField qual1name {
-display_length 20
-format none
-label Name
-max_length 20
-next_focus qual1loc
-tip 00096_TIP_1
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoFileBrowserField qual1loc {
-display_length 20
-file_mask *.str
-format none
-label Location
-max_length 252
-next_focus qual1fld
-tip 00096_TIP_2
-translate none
-extension false
-null false
-action valueChanged { [ getDescriptionFieldNames $qual1loc $qual1fld]}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoComboBox qual1fld {
-label Field
-display_length 5
-format none
-max_length 5
-translate none
-exclusive false
-tip 00096_TIP_2
-value_in Z
-next_focus qual2name
-action focusGained { [ fillDescriptionFieldNames $qual1loc $qual1fld]}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel l2 {
-dependency {"[ $nqual getCurrentValue]" == "2"}
-label "Define second quality"
-font_style bold
}
GuidoFiller f5 {
-height 1
}
GuidoField qual2name {
-dependency {"[ $nqual getCurrentValue]" == "2"}
-display_length 20
-format none
-label Name
-max_length 20
-next_focus qual2loc
-tip 00096_TIP_1
-translate none
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoFileBrowserField qual2loc {
-dependency {"[ $nqual getCurrentValue]" == "2"}
-display_length 20
-file_mask *.str
-format none
-label Location
-max_length 252
-tip 00096_TIP_2
-next_focus qual2fld
-translate none
-extension false
-null false
-action valueChanged { [ getDescriptionFieldNames $qual2loc $qual2fld]}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoComboBox qual2fld {
-dependency {"[ $nqual getCurrentValue]" == "2"}
-label Field
-display_length 5
-format none
-max_length 5
-translate none
-exclusive false
-tip 00096_TIP_2
-value_in Z
-action focusGained { [ fillDescriptionFieldNames $qual1loc $qual1fld]}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
}
}
