proc update {maxdist lag_minimum lag_maximum lag_increment} {
$lag_minimum setHighBound [$maxdist getCurrentValue]
$lag_maximum setHighBound [$maxdist getCurrentValue]
$lag_increment setHighBound [$maxdist getCurrentValue]
$lag_maximum setCurrentValue [format %.1f [expr [$maxdist getCurrentValue] / 5.0]]
$lag_increment setCurrentValue [format %.1f [expr [$lag_maximum getCurrentValue] / 10.0]]
}
GuidoForm comp_vg {
-default_buttons
-label "Downhole Variogram"
-layout BoxLayout Y_AXIS
-tip "VARIOGRAM_FRM_HELP"
GuidoTabbedPane frm20465_p1 {
GuidoPanel Basic {
-label Basic
-layout BoxLayout Y_AXIS
GuidoPanel comp_vg_45 {
-layout BoxLayout X_AXIS
GuidoPanel comp_vg_44 {
-layout BoxLayout Y_AXIS
GuidoPanel min_max {
-border etched true
-layout CentreLineLayout
GuidoField minval {
-display_length 10
-font_style bold
-format double
-label "Minimum value"
-max_length 10
-next_focus maxval
-tip "VARIO_MIN_VAL"
}
GuidoField maxval {
-display_length 10
-font_style bold
-format double
-label "Maximum value"
-max_length 10
-tip "VARIO_MAX_VAL"
}
}
}
}
GuidoPanel frm20460_43 {
-border etched true
-layout BoxLayout X_AXIS
GuidoPanel 1 {
-layout CentreLineLayout
GuidoField lag {
-display_length 10
-font_style bold
-format double
-label Lag
-max_length 10
-next_focus maxdist
-null false
-tip "VARIO_LAG_DIST"
}
GuidoField maxdist {
-display_length 10
-font_style bold
-format double
-label "Maximum distance"
-max_length 10
-next_focus fname
-null false
-tip "VARIO_LAG_MAX_DIST"
}
GuidoFileBrowserField fname {
-label "Output report file name"
-display_length 20.5
-extension false
-file_mask "*.not *.csv *.htm *.html *.rtf *.pdf *.ps"
-format none
-max_length 256
-null false
-tip DB_REPORT_TIP
-translate lower
}
GuidoComboBox report_format {
-label "Output report file format"
-display_length 18
-format none
-max_length 40
-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"
}
GuidoCheckBox display_report {
-label "Display report"
-default false
-selected_value "Y"
-unselected_value "N"
}
}
}
}
GuidoPanel Advanced {
-label Advanced
-layout BoxLayout Y_AXIS
GuidoPanel frm20465_80 {
-layout CentreLineLayout
-border etched true
-width 45
-label "Lag slider"
GuidoField lag_minimum {
-display_length 10
-format double
-label Minimum
-max_length 10
-low_bound 0.1
-default 0.1
-tip "VG_LAG_SLIDER_MINIMUM"
-decimals 1
}
GuidoField lag_maximum {
-display_length 10
-format double
-label Maximum
-max_length 10
-low_bound 0.1
-tip "VG_LAG_SLIDER_MAXIMUM"
-decimals 1
}
GuidoField lag_increment {
-display_length 10
-format double
-label Increment
-max_length 10
-low_bound 0.1
-tip "VG_LAG_SLIDER_INCREMENT"
-decimals 1
}
}
GuidoPanel comp_vg_57 {
-border etched true
-layout CentreLineLayout
GuidoPanel comp_vg_38 {
-font_style bold
-label "Treat negatives as"
-layout BoxLayout X_AXIS
-tip "VARIO_NEG_VAL"
GuidoButtonGroupPanel negative {
GuidoRadioButton comp_vg_35 {
-caption ZEROES
-selected_value ZEROES
}
GuidoRadioButton comp_vg_36 {
-caption UNDEFINED
-selected_value UNDEFINED
}
GuidoRadioButton comp_vg_37 {
-caption NEGATIVES
-default true
-next_focus notefile
-selected_value NEGATIVES
}
}
}
GuidoPanel test {
-layout CentreLineLayout
-tip "DB_VARIOGRAM_OUTPUT"
-label "Save composited string file"
GuidoButtonGroupPanel string_file  {
GuidoRadioButton vgDataSelection_1 {
-caption LPS_NONE
-tip "vgDataSelection"
-selected_value NONE
-default true
}
GuidoRadioButton vgDataSelection_2 {
-caption TEXT
-selected_value TEXT
}
GuidoRadioButton vgDataSelection_3 {
-caption BINARY
-selected_value BINARY
}
}
}
}
}
}
$maxdist setActionCallback valueChanged {[update $maxdist $lag_minimum $lag_maximum $lag_increment]}
}
