GuidoForm form {
-default_buttons
-label "Define Variogram Axis Extents"
-tip GST_VG_AXES
-layout CentreLineLayout
GuidoFiller f1 {
-height 0.5
}
GuidoFiller f2 {
-height 0.5
}
GuidoField xmax {
-label "Maximum lag distance"
-display_length 5
-format double
-max_length 8
-null false
-tip GST_VG_AXES_XMAX_TIP
}
GuidoFiller f3 {
-height 0.5
}
GuidoFiller f4 {
-height 0.5
}
GuidoField ymax {
-label "Maximum gamma(h)"
-display_length 5
-format double
-max_length 8
-null false
-tip GST_VG_AXES_YMAX_TIP
}
GuidoField ymin {
-label "Minimum gamma(h)"
-display_length 5
-format double
-max_length 8
-null false
-tip GST_VG_AXES_YMIN_TIP
-default 0.0
}
GuidoFiller f5 {
-height 0.5
}
GuidoFiller f6 {
-height 0.5
}
}
set buffer [GuidoExecServer GetVGChartDetails {}]
if {[GuidoGetParamBufferValue $buffer status] >= 0} {
$xmax setCurrentValue [GuidoGetParamBufferValue $buffer xmax]
$ymax setCurrentValue [GuidoGetParamBufferValue $buffer ymax]
$ymin setCurrentValue [GuidoGetParamBufferValue $buffer ymin]
set return_code [$form interact]
if {$return_code == "apply"} {
GuidoApp vgaxesapp "VG SET AXIS LIMITS"
$vgaxesapp setParam ymin [$ymin getCurrentValue]
$vgaxesapp setParam xmax [$xmax getCurrentValue]
$vgaxesapp setParam ymax [$ymax getCurrentValue]
$vgaxesapp invoke
$vgaxesapp destroy
}
}
$form destroy
