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 frm01107 {
-default_buttons
-help_id 758
-label "Lookup Editor"
-layout BoxLayout Y_AXIS
-next_focus l_file
-tip "01107_TIP_001"
-action initial {[setPatterns]}
GuidoPanel frm01107_31 {
-layout FlowLayout
GuidoFiller frm01107_30 {}
GuidoButton legend_btn {
-caption LOG_LEG_BTN
-legacy_action
}
}
GuidoFiller frm01107_32 {
-height 1
}
GuidoPanel frm01107_35 {
-layout BoxLayout X_AXIS
GuidoPanel frm01107_33 {
-border etched true
-layout CentreLineLayout
GuidoFileBrowserField l_file {
-default SSI_PLOTTING:lookup.ssi
-display_length 20
-file_mask *.ssi
-format none
-label "Lookup File"
-legacy_action
-max_length 256
-next_focus out_file
-null false
-tip "01107_TIP_002"
-translate none
}
GuidoFileBrowserField out_file {
-default SSI_PLOTTING:lookup.ssi
-display_length 20
-file_mask *.ssi
-format none
-label "Output File"
-max_length 256
-next_focus patt_file
-null false
-tip "01107_TIP_003"
-translate none
}
GuidoFileBrowserField patt_file {
-default SSI_PLOTTING:patterns.ssi
-display_length 20
-file_mask *.ssi
-format none
-label "Pattern File"
-max_length 256
-next_focus lookup
-null false
-tip "01103_TIP_027"
-translate none
}
}
GuidoFiller frm01107_36 {
-width 1
}
GuidoPanel frm01107_34 {
-border etched true
-layout CentreLineLayout
GuidoComboBox paper {
-display_length 13
-format none
-label "Paper Size"
-max_length 2
-next_focus frm01107_22
-null false
-tip "01107_TIP_005"
-value_in A0 A1 A2 A3 A4 A5 B0 B1 B2 B3 E3 L2
}
GuidoPanel frm01107_24 {
-label Orientation
-layout BoxLayout X_AXIS
-tip "01103_TIP_019"
GuidoButtonGroupPanel orient {
GuidoRadioButton frm01107_22 {
-caption Landscape
-selected_value Landscape
}
GuidoRadioButton frm01107_23 {
-caption Portrait
-default true
-next_focus apply_button
-selected_value Portrait
}
}
}
}
GuidoFiller frm01107_36 {
-width 1
}
}
GuidoFiller frm01107_37 {
-height 1
}
GuidoScrollPane frm01107_19 {
-height 12
GuidoTable lookup {
-instances 1 1 350
-interactive true
GuidoField code {
-display_length 15
-format none
-label Code
-max_length 30
-tip "Enter the geological rock code that will be assigned the pattern and pen in the following fields."
-translate none
}
GuidoPatternBrowserField pattern {
-display_length 15
-format none
-label "Pattern Name"
-max_length 30
-tip "Enter the name of the pattern associated with the rock code in the previous field."
-translate none
}
GuidoField pen {
-display_length 5
-format integer
-low_bound 1
-high_bound 99999
-null false
-label Pen
-max_length 5
-tip "Enter the pen number associated with this lookup value"
-translate none
}
GuidoField scale {
-display_length 5
-format double
-null true
-low_bound 0.001
-label Scale
-max_length 10
-tip "Enter the pattern scale associated with this lookup value"
-translate none
}
}
}
}
