GuidoForm form {
-default_buttons
-label "Define Axes Scale and Labels"
-tip GST_BASIC_STATS_AXES_TIP
-layout FlowLayout Left
GuidoPanel a0 {
-layout GridLayout 3 1
GuidoFiller filler {
}
GuidoPanel xp {
-layout FlowLayout Right
GuidoLabel X {
-label " X"
}
}
GuidoPanel yp {
-layout FlowLayout Right
GuidoLabel Y {
-label " Y"
}
}
}
GuidoPanel a1 {
-layout GridLayout 3 3
GuidoLabel Min {
-label "Minimum"
}
GuidoLabel Max {
-label "Maximum"
}
GuidoLabel Increment {
-label "Label increment"
}
GuidoField xmin {
-display_length 5
-format double
-max_length 8
-null false
-tip GST_BASIC_STATS_AXES_XMIN_TIP
}
GuidoField xmax {
-display_length 5
-format double
-max_length 8
-null false
-tip GST_BASIC_STATS_AXES_XMAX_TIP
}
GuidoField xinc {
-display_length 5
-format double
-max_length 8
-null true
-tip GST_BASIC_STATS_AXES_XINC_TIP
}
GuidoField ymin {
-display_length 5
-format double
-max_length 8
-null false
-tip GST_BASIC_STATS_AXES_YMIN_TIP
}
GuidoField ymax {
-display_length 5
-format double
-max_length 8
-null false
-tip GST_BASIC_STATS_AXES_YMAX_TIP
}
GuidoField yinc {
-display_length 5
-format double
-max_length 8
-null true
-tip GST_BASIC_STATS_AXES_YINC_TIP
}
}
}
set buffer [ GuidoExecServer GetChartDetails {} ]
if {[GuidoGetParamBufferValue $buffer status] >= 0} {
$xmin setCurrentValue [GuidoGetParamBufferValue $buffer xmin]
$xmax setCurrentValue [GuidoGetParamBufferValue $buffer xmax]
if {[GuidoGetParamBufferValue $buffer xinc] > 0} {
$xinc setCurrentValue [GuidoGetParamBufferValue $buffer xinc]
}
$ymin setCurrentValue [GuidoGetParamBufferValue $buffer ymin]
$ymax setCurrentValue [GuidoGetParamBufferValue $buffer ymax]
if {[GuidoGetParamBufferValue $buffer yinc] > 0} {
$yinc setCurrentValue [GuidoGetParamBufferValue $buffer yinc]
}
set return_code [$form interact]
if {$return_code == "apply"} {
GuidoApp statsaxesapp "STATS AXES"
$statsaxesapp setParam xmin        [$xmin getCurrentValue]
$statsaxesapp setParam xmax        [$xmax getCurrentValue]
$statsaxesapp setParam xinc        [$xinc getCurrentValue]
$statsaxesapp setParam ymin        [$ymin getCurrentValue]
$statsaxesapp setParam ymax        [$ymax getCurrentValue]
$statsaxesapp setParam yinc        [$yinc getCurrentValue]
$statsaxesapp invoke
$statsaxesapp destroy
}
}
$form destroy
