proc getUnits_callback {} {
global units
global unit_type
$units removeAllItems
set actual_unit [$unit_type getCurrentValue]
set buffer [ GuidoExecServer GetUnitList [subst {unit_type = $actual_unit}]]
set num_values [ GuidoGetParamBufferValue $buffer num_values ]
set unitsList ""
for {set idx 0} {$idx < $num_values} {incr idx} {
$units addItem [GuidoGetParamBufferValue $buffer value_$idx]
}
}
GuidoForm frm50151 {
-default_buttons
-label "Define Ruler Parameters"
-tip "50151_TIP_0"
-layout BoxLayout Y_AXIS
GuidoPanel form_panel {
-layout BoxLayout Y_AXIS
GuidoPanel global_panel {
-layout CentreLineLayout
GuidoField text {
-label "Text "
-max_length 45
-width 25
-null true
-tip "00635_TIP_1"
}
GuidoComboBox units {
-label "Units"
-display_length 8
-max_length 32
-null false
-tip "00635_TIP_4"
}
GuidoField dec_places {
-label "Decimal Places "
-max_length 2
-high_bound 10
-low_bound 0
-width 2
-default 2
-null true
-tip "00635_TIP_5"
}
GuidoComboBox pen_colour {
-display_length 25
-format none
-label "Line Colour"
-max_length 40
-null false
-tip "00635_TIP_6"
}
}
GuidoPanel middle_panel {
-layout BoxLayout X_AXIS
GuidoPanel font_panel {
-layout CentreLineLayout
-border etched true
-label "Font options"
GuidoFontNameBrowser font {
-label "Name"
-null false
-allowDefault true
-display_length 12
-format none
-max_length 50
-next_focus bold_font
-tip "PLT_FONT_NAME_TIP"
}
GuidoCheckBox bold_font {
-label "FONT_STYLE_BOLD"
-selected_value Y
-tip "FONT_STYLE_BOLD_TIP"
-unselected_value N
-next_focus italic_font
}
GuidoCheckBox italic_font {
-label "FONT_STYLE_ITALIC"
-selected_value Y
-tip "FONT_STYLE_ITALIC_TIP"
-unselected_value N
-next_focus underline_font
}
GuidoCheckBox underline_font {
-label "FONT_STYLE_UNDERLINE"
-selected_value Y
-tip "FONT_STYLE_UNDERLINED_TIP"
-unselected_value N
-next_focus height
}
GuidoField height {
-label "Height (cm)"
-max_length 10
-width 10
-format float
-low_bound 0.01
-null false
-decimals 2
-tip "CREATE_TEXT_SYM_TIP4"
}
}
GuidoPanel scale_panel {
-border etched true
-label "Scale options"
-layout BoxLayout Y_AXIS
-width 22
GuidoPanel mod_scale_panel {
-layout CentreLineLayout
GuidoCheckBox mod_scale_options {
-label "Modify plot scale options"
-default false
-selected_value true
-tip 00635_TIP_MOD_SCALE_WARN
-unselected_value false
}
}
GuidoPanel values_panel {
-layout CentreLineLayout
-width 230
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
GuidoField x_scale {
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
-label "X Scale"
-display_length 8
-decimals 3
-format double
-high_bound 999999999
-low_bound 0.00001
-max_length 10
-null false
-tip "00635_TIP_7"
-translate upper
}
GuidoField y_scale {
-label "Y Scale"
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
-display_length 8
-decimals 3
-format double
-high_bound 999999999
-low_bound 0.00001
-max_length 10
-null false
-tip "00635_TIP_7"
-translate upper
}
GuidoButtonGroupPanel unit_type {
-action valueChanged {[getUnits_callback]}
-label "Data Units"
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
GuidoRadioButton metric_but {
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
-caption metric
-selected_value "M"
-default true
-tip "00226_TIP_011"
}
GuidoRadioButton imperial_type {
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
-caption imperial
-selected_value "I"
-tip "00226_TIP_011"
}
}
}
GuidoPanel warn_panel {
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
GuidoLabel scale_warning {
-dependency {"[ $mod_scale_options getCurrentValue]" == "true"}
-label "00635_SCALE_WARN"
}
}
}
}
GuidoPanel lower_panel {
-layout BoxLayout X_AXIS
GuidoPanel start_panel {
-layout CentreLineLayout
-border etched true
-label "Start of line Symbol"
GuidoLabel start_sym_label {
-label "Start Symbol"
}
GuidoSymbolBrowserField start_symbol_name {
-display_length 10
-format none
-default rulertip
-max_length 8
-tip "Choose the name of the special symbol from the list attached to this field."
}
GuidoLabel start_height_label {
-label "Size (cm)"
}
GuidoField start_sym_height {
-default 1
-decimals 2
-display_length 10
-format double
-low_bound .01
-max_length 10
-tip "00627_TIP_004"
-translate upper
}
GuidoLabel start_fill_label {
-label "Fill Symbol?"
}
GuidoCheckBox start_sym_fill {
-default false
-selected_value Yes
-tip "00627_TIP_006"
-unselected_value No
}
}
GuidoFiller fill1 {
-width .5
}
GuidoPanel end_panel {
-layout CentreLineLayout
-border etched true
-label "End of line Symbol"
GuidoLabel end_sym_label {
-label "End Symbol"
}
GuidoSymbolBrowserField end_symbol_name {
-display_length 10
-format none
-default rulertip
-max_length 8
-tip "Choose the name of the special symbol from the list attached to this field."
}
GuidoLabel end_height_label {
-label "Size (cm)"
}
GuidoField end_sym_height {
-default 1
-decimals 2
-display_length 10
-format double
-low_bound .01
-max_length 10
-tip "00627_TIP_004"
-translate upper
}
GuidoLabel end_fill_label {
-label "Fill Symbol?"
}
GuidoCheckBox end_sym_fill {
-default false
-selected_value Yes
-tip "00627_TIP_006"
-unselected_value No
}
}
}
}
$font updateBrowserList
}
