GuidoForm frmblockAttributes {
-default_buttons
-label "Attribute Labels"
-tip "FRM_BLOCKATTRIBUTES_1"
-layout BoxLayout Y_AXIS
-help_id 1745
GuidoScrollPane s0 {
-height 9
-width 31
-label "Display labels"
-border etched true
GuidoTable styles {
-instances 1 1 20
-interactive true
GuidoBMAttributeBrowser attribute {
-label "Attribute"
-display_length 12
-format none
-null false
-translate none
-max_length BM_MAX_ATT_NAME_LEN
-exclusive true
-tip PLANES_BM_TIP
}
GuidoComboBox position {
-alignmentY middle
-label "Position"
-display_length 4
-max_length 5
-null false
-value_in "above" "below" "left" "right" "centre"
-default  "above"
-tip BM_DISPLAY_LABEL_POSITION_TIP
}
}
}
GuidoPanel font {
-layout CentreLineLayout
-label "Font"
-border etched true
GuidoFontNameBrowser font_name {
-label "Font"
-default "Default"
-display_length 10
-max_length 128
-null false
-tip DB_LABELS_FONT_TIP
-next_focus size
}
GuidoField font_size {
-alignmentY middle
-label "Size"
-display_length 4
-max_length 10
-low_bound 0.001
-high_bound 1000.0
-null false
-default 1.00
-format real_8
-decimals 3
-tip DB_FONT_SIZE_TIP
-next_focus units
}
GuidoComboBox font_units {
-alignmentY middle
-label "Units"
-display_length 2
-max_length 3
-null false
-value_in oru sru
-default "oru"
-tip DB_FONT_SIZE_TIP
-next_focus position
}
}
$attribute updateBrowserList
$font_name updateBrowserList
$font_units setActionCallback valueChanged {[
if {"[$font_units getCurrentValue]" == "oru"} {
$font_size setHighBound 1000.0
} else {
$font_size setHighBound 1.0
}
]}
}
