proc setPatterns {} {
global pattern
set buffer [ GuidoExecServer GetPatternNames { } ]
set num_values [ GuidoGetParamBufferValue $buffer num_values ]
set attributeList ""
for {set idx 0} {$idx < $num_values} {incr idx} {
set attributeList "$attributeList [ GuidoGetParamBufferValue $buffer value_$idx ]"
}
eval [concat {$pattern} {setValues} $attributeList ]
}
GuidoForm frm00841 {
-default_buttons
-label "Pattern Legend Properties"
-layout BoxLayout Y_AXIS
-tip "Define the properties for a title block symbol."
-action initial {[setPatterns]}
GuidoPanel frm00841_26 {
-layout BoxLayout X_AXIS
GuidoPanel frm00841_23 {
-border etched true
-layout CentreLineLayout
GuidoField xpos {
-decimals 2
-default 0
-display_length 5
-format double
-label "X position"
-max_length 10
-next_focus ypos
-null false
-tip "This is the X position (relative to the title block corner) of the pattern legend."
-translate upper
}
GuidoField ypos {
-decimals 2
-default 0
-display_length 5
-format double
-label "Y position"
-max_length 10
-next_focus xsize
-null false
-tip "This is the Y position (relative to the title block corner) of the pattern legend."
-translate upper
}
GuidoFiller frm00841_27 {
-width 1
}
GuidoFiller frm00841_27 {
-width 1
}
GuidoField xsize {
-decimals 2
-default 0
-display_length 5
-format double
-label "X size"
-max_length 10
-next_focus ysize
-null false
-tip "00841_TIP_004"
-translate upper
}
GuidoField ysize {
-decimals 2
-default 0
-display_length 5
-format double
-label "Y size"
-max_length 10
-next_focus priority
-null false
-tip "00841_TIP_005"
-translate upper
}
GuidoFiller frm00841_27 {
-width 1
}
GuidoFiller frm00841_27 {
-width 1
}
GuidoField priority {
-default 1
-display_length 5
-format integer
-high_bound 125
-label Priority
-low_bound 0
-max_length 10
-next_focus height
-null false
-tip "This is the priority of the symbol on the map."
-translate none
}
}
GuidoFiller frm00841_27 {
-width 1
}
GuidoPanel font_panel {
-layout CentreLineLayout
-border etched true
GuidoFontNameBrowser font {
-label "Font 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 {
-decimals 2
-default 0.2
-display_length 5
-format double
-label "Text height"
-low_bound .05
-max_length 10
-null false
-tip "The height of the symbol is defined in centimetres."
-translate upper
}
}
}
GuidoFiller frm00841_28 {
-height 1
}
GuidoLabel frm00841_8 {
-font_style bold
-label "Define the patterns to be used in the legend"
}
GuidoScrollPane frm00841_22 {
-height 9
GuidoTable patterns {
-instances 1 1 100
-interactive true
GuidoPatternBrowserField pattern {
-display_length 10
-format none
-label Pattern
-max_length 32
-null false
-tip "This is the name of the pattern that will be used to in a box in the legend."
-translate none
}
GuidoField label {
-display_length 10
-format none
-label Label
-max_length 32
-tip "00841_TIP_009"
-translate none
}
GuidoField scale {
-default 100
-display_length 5
-format double
-label Scale
-low_bound .1
-max_length 10
-null false
-tip "00841_TIP_010"
-translate upper
}
GuidoField angle {
-default 0
-display_length 5
-format double
-high_bound 360
-label Angle
-low_bound 0
-max_length 10
-null false
-tip "PLT_PATTERN_OP_HATCHING_ROTATION_TIP"
-translate upper
}
GuidoField pen {
-default 1
-display_length 5
-format integer
-high_bound 999
-label Pen
-low_bound 1
-max_length 10
-null false
-tip "This pen number is used to draw the pattern and its corresponding label in the legend."
-translate none
}
}
}
$font updateBrowserList
}
