array set str_fields { 0 attribute 1 field 2 ndec 3 notation 4 symbol 5 filled 6 position 7 direction 8 bearing 9 distance 10 distance_type 11 text_height 12 text_angle 13 text_angle_type 14 horiz_just 15 vert_just 16 font 17 bold_font 18 italic_font 19 image 20 underline_font 21 text_height 22 priority 23 pen 24 allow_pen_mods}
array set pnt_fields { 0 attribute 1 field 2 ndec 3 notation 4 symbol 5 filled 6 direction 7 bearing 8 distance 9 distance_type 10 offset 11 text_height 12 text_angle 13 text_angle_type 14 horiz_just 15 vert_just 16 font 17 bold_font 18 italic_font 19 image 20 underline_font 21 text_height 22 priority 23 pen 24 allow_pen_mods}
array set line_fields { 0 type 1 priority 2 pen 3 pattern_length 4 segments 5 segment1 6 segment3 7 segment5 8 segment7 9 segment2 10 segment4 11 segment6 12 segment8 13 allow_pen_mods}
array set cliff_fields { 0 toe_offset 1 style 2 frequency 3 width 4 pen 5 priority 6 allow_pen_mods}
array set pfill_fields { 0 name 1 lookup_file 2 lookup_field 3 style 4 option 5 scale 6 rotation_angle 7 pen 8 priority 9 allow_pen_mods}
array set cfill_fields { 0 fill_option 1 lookup_file 2 lookup_field 3 method 4 pen 5 allow_pen_mods}
array set     panel_inited { 0 1 1 0 2 0 3 0 4 0 5 0 }
array set pnt_panel_inited { 1 1 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 }
array set str_panel_inited { 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 }
set str_attribute_tip PLT_STR_ATTRIBUTE_TIP
set str_field_tip PLT_STR_FIELD_TIP
set str_ndec_tip PLT_STR_NDEC_TIP
set str_notation_tip PLT_STR_NOTATION_TIP
set str_symbol_tip PLT_STR_SYMBOL_TIP
set str_filled_tip PLT_STR_FILLED_TIP
set str_position_tip PLT_STR_POSITION_TIP
set str_direction_tip PLT_STR_DIRECTION_TIP
set str_bearing_tip PLT_STR_BEARING_TIP
set str_distance_tip PLT_STR_DISTANCE_TIP
set str_distance_type_tip PLT_STR_DISTANCE_TYPE_TIP
set str_text_height_tip PLT_STR_TEXT_HEIGHT_TIP
set str_text_angle_tip PLT_STR_TEXT_ANGLE_TIP
set str_text_angle_type_tip PLT_STR_TEXT_ANGLE_TYPE_TIP
set str_horiz_just_tip PLT_STR_HORIZ_JUST_TIP
set str_vert_just_tip PLT_STR_VERT_JUST_TIP
set str_priority_tip PLT_STR_PRIORITY_TIP
set str_pen_tip PLT_STR_PEN_TIP
set string_tab_sourced 0
proc mouse_pressed_proc3 { frm00227 string_ops string_ops_p1 string_ops_p2 string_ops_p3 string_ops_p4 string_ops_p5 string_ops_p6 string_ops_p7 string_ops_p8 string_ops_p9 } {
global str_panel_inited
global preview
set panel_idx [$string_ops getSelectedIndex]
incr panel_idx
if {$str_panel_inited($panel_idx) == 0} {
set str_panel_inited($panel_idx) 1
global string_tab_sourced
if {$string_tab_sourced == 0} {
set string_tab_sourced 1
set buffer [ GuidoExecServer GetTCLPath { } ]
set tclPath [ GuidoGetParamBufferValue $buffer tclPath ]
source "$tclPath/00227_0.tcl"
}
set panel_idx_c [$string_ops getSelectedIndex]
if {$panel_idx_c > 0} {
eval "addstringpanel $panel_idx_c $panel_idx \$string_ops_p$panel_idx"
}
if {[$frm00227 readInputField use_string_ops] == "Y"} {
global str_fields
for {set idx 0} {$idx < [array size str_fields]} {incr idx} {
global "string_ops_str_$str_fields($idx)$panel_idx_c"
}
for {set idx 0} {$idx < [array size str_fields]} {incr idx} {
set val [$frm00227 readInputField string_ops($panel_idx_c).str_$str_fields($idx)]
if {$val > ""} {
eval "\$string_ops_str_$str_fields($idx)$panel_idx_c setCurrentValue \"\""
eval "\$string_ops_str_$str_fields($idx)$panel_idx_c setCurrentValue \"$val\""
if {$idx == 0} {
global "string_ops_str_attribute$panel_idx_c"
eval "attributeCallback \$string_ops_str_attribute$panel_idx_c \$string_ops_str_symbol$panel_idx_c"
}
if {$idx == 6} {
eval "positionCallback \$string_ops_str_position$panel_idx_c \$string_ops_str_distance$panel_idx_c"
}
upvar 0 "string_ops_str_$str_fields($idx)$panel_idx_c" field
set currentValue "[ $field getCurrentValue ]"
if {$currentValue != $val} {
set pan $panel_idx_c
incr pan
puts "Error: $val value not allowed for field (string tab #$pan)."
}
}
}
}
}
$preview repaint
}
proc attributeCallback { attributehandle symbolhandle } {
set currentValue "[ $attributehandle getCurrentValue ]"
if {"$currentValue" == "symbol" ||
"$currentValue" == "sym in field" } {
set buffer [ GuidoExecServer GetEntityInformation [subst { attribute = "$currentValue" } ] ]
set listOfSymbols [ GuidoGetParamBufferValue $buffer symbol ]
eval [concat {$symbolhandle} {setValues} $listOfSymbols ]
}
}
proc positionCallback { positionHandle distanceHandle } {
if { "[$positionHandle getCurrentValue]" == "frequency"} {
set dist "[$distanceHandle getCurrentValue]"
if {$dist <= 0.0} {
$distanceHandle setCurrentValue "100.0"
}
}
}
proc typecallback { handle } {
if {"[ $handle  getCurrentValue ]" == "note" || "[ $handle getCurrentValue ]" == "symbol" || "[ $handle getCurrentValue ]" == "image" } {
return 0
}
return 1
}
proc directioncallback { handle } {
if { "[ $handle  getCurrentValue ]" == "angle" || "[ $handle getCurrentValue ]" == "none" } {
return 0;
}
return 1
}
proc mouse_pressed_proc { main_tabbed_pane _main_main_4 point_op_p1 _main_main_10 _main_main_13 _main_main_23 colour_ops } {
global panel_inited
global preview
set panel_idx [$main_tabbed_pane getSelectedIndex]
if {$panel_inited($panel_idx) == 0} {
set panel_inited($panel_idx) 1
set tclPath [ GuidoGetParamBufferValue [ GuidoExecServer GetTCLPath { } ] tclPath ]
source "$tclPath/00227_$panel_idx.tcl"
}
$preview repaint
}
proc initialize { frm00227 string_ops string_ops_p1 string_ops_p2 string_ops_p3 string_ops_p4 string_ops_p5 string_ops_p6 string_ops_p7 string_ops_p8 string_ops_p9 entity_name} {
changeStringOps "all string" "N"
global preview
global use_string_ops
set using_string_ops [$frm00227 readInputField use_string_ops]
$use_string_ops setCurrentValue $using_string_ops
mouse_pressed_proc3 $frm00227 $string_ops $string_ops_p1 $string_ops_p2 $string_ops_p3 $string_ops_p4 $string_ops_p5 $string_ops_p6 $string_ops_p7 $string_ops_p8 $string_ops_p9
if {"$using_string_ops" == "Y"} {
for {set idx_c 0} {$idx_c < 9} {incr idx_c} {
set idx2 $idx_c
incr idx2
set val [$frm00227 readInputField string_ops($idx_c).str_attribute]
global "use_string_ops_$idx2"
upvar 0 "use_string_ops_$idx2" fieldName
if { $val > "" } {
set str_panel_used(idx_c) 1
$fieldName setCurrentValue "Y"
} else {
$fieldName setCurrentValue "N"
}
}
}
$entity_name setCurrentValue [$frm00227 readInputField entity_name]
$preview loadBuffer
$preview repaint
}
proc finish { frm00227 } {
global panel_inited
global str_panel_inited
global pnt_panel_inited
if { [string compare [$frm00227 getStatus] "legacy preprocess apply"] ==  0 } {
global use_string_ops
set row 0
$frm00227 writeOutputField "use_string_ops" [$use_string_ops getCurrentValue]
if {[$use_string_ops getCurrentValue] == "Y"} {
global str_fields
for {set idx_c 0} {$idx_c < 9} {incr idx_c} {
set idx2 $idx_c
incr idx2
global "use_string_ops_$idx2"
upvar 0 "use_string_ops_$idx2" fieldName
set val [$fieldName getCurrentValue]
if {$val == "Y"} {
if {$str_panel_inited($idx2) == 1} {
for {set idx 0} {$idx < [array size str_fields]} {incr idx} {
global "string_ops_str_$str_fields($idx)$idx_c"
upvar 0 "string_ops_str_$str_fields($idx)$idx_c" fieldName
set val [$fieldName getCurrentValue]
$frm00227 writeOutputField string_ops($row).str_$str_fields($idx) $val
}
} else {
for {set idx 0} {$idx < [array size str_fields]} {incr idx} {
set val [$frm00227 readInputField string_ops($idx_c).str_$str_fields($idx)]
$frm00227 writeOutputField string_ops($row).str_$str_fields($idx) $val
}
}
incr row
}
}
}
$frm00227 writeOutputField num_string_rows $row
if {$panel_inited(1) == 1} {
global use_point_ops
set row 0
$frm00227 writeOutputField "use_point_ops" [$use_point_ops getCurrentValue]
if {[$use_point_ops getCurrentValue] == "Y"} {
global pnt_fields
for {set idx_c 0} {$idx_c < 9} {incr idx_c} {
set idx2 $idx_c
incr idx2
global "use_point_ops_$idx2"
upvar 0 "use_point_ops_$idx2" fieldName
set val [$fieldName getCurrentValue]
if {$val == "Y"} {
if {$pnt_panel_inited($idx2) == 1} {
for {set idx 0} {$idx < [array size pnt_fields]} {incr idx} {
global "point_ops_pnt_$pnt_fields($idx)$idx_c"
upvar 0 "point_ops_pnt_$pnt_fields($idx)$idx_c" fieldName
set val [$fieldName getCurrentValue]
$frm00227 writeOutputField point_ops($row).pnt_$pnt_fields($idx) $val
}
} else {
for {set idx 0} {$idx < [array size pnt_fields]} {incr idx} {
set val [$frm00227 readInputField point_ops($idx_c).pnt_$pnt_fields($idx)]
$frm00227 writeOutputField point_ops($row).pnt_$pnt_fields($idx) $val
}
}
incr row
}
}
}
$frm00227 writeOutputField num_point_rows $row
} else {
$frm00227 writeOutputField num_point_rows -1
}
if {$panel_inited(2) == 1} {
global use_line_ops
$frm00227 writeOutputField "use_line_ops" [$use_line_ops getCurrentValue]
if {[$use_line_ops getCurrentValue] == "Y"} {
global line_fields
for {set idx 0} {$idx < [array size line_fields]} {incr idx} {
global "line_$line_fields($idx)"
}
for {set idx 0} {$idx < [array size line_fields]} {incr idx} {
upvar 0 "line_$line_fields($idx)" fieldName
set val [$fieldName getCurrentValue]
$frm00227 writeOutputField "line_$line_fields($idx)" $val
}
}
}
if {$panel_inited(3) == 1} {
global use_cliff_ops
$frm00227 writeOutputField "use_cliff_ops" [$use_cliff_ops getCurrentValue]
if {[$use_cliff_ops getCurrentValue] == "Y"} {
global cliff_fields
for {set idx 0} {$idx < [array size cliff_fields]} {incr idx} {
global "cliff_$cliff_fields($idx)"
}
for {set idx 0} {$idx < [array size cliff_fields]} {incr idx} {
upvar 0 "cliff_$cliff_fields($idx)" fieldName
set val [$fieldName getCurrentValue]
$frm00227 writeOutputField "cliff_$cliff_fields($idx)" $val
}
}
}
if {$panel_inited(4) == 1} {
global use_pattern_ops
$frm00227 writeOutputField "use_pattern_ops" [$use_pattern_ops getCurrentValue]
if {[$use_pattern_ops getCurrentValue] == "Y"} {
global pfill_fields
for {set idx 0} {$idx < [array size pfill_fields]} {incr idx} {
global "pattern_$pfill_fields($idx)"
}
for {set idx 0} {$idx < [array size pfill_fields]} {incr idx} {
upvar 0 "pattern_$pfill_fields($idx)" fieldName
set val [$fieldName getCurrentValue]
$frm00227 writeOutputField "pattern_$pfill_fields($idx)" $val
}
}
}
if {$panel_inited(5) == 1} {
global use_colour_ops
$frm00227 writeOutputField "use_colour_ops" [$use_colour_ops getCurrentValue]
if {[$use_colour_ops getCurrentValue] == "Y"} {
global cfill_fields
for {set idx 0} {$idx < [array size cfill_fields]} {incr idx} {
global "colour_$cfill_fields($idx)"
}
for {set idx 0} {$idx < [array size cfill_fields]} {incr idx} {
upvar 0 "colour_$cfill_fields($idx)" fieldName
set val [$fieldName getCurrentValue]
$frm00227 writeOutputField "colour_$cfill_fields($idx)" $val
}
}
}
$frm00227 finishedWritingFields
}
}
proc changeStringOps { point val } {
global preview
$preview setOperationOn $point $val
}
proc changeStringOpsMaster { val string_ops_checkbox_1 string_ops_checkbox_2 string_ops_checkbox_3 string_ops_checkbox_4 string_ops_checkbox_5 string_ops_checkbox_6 string_ops_checkbox_7 string_ops_checkbox_8 string_ops_checkbox_9} {
global preview
if {$val == "N"} {
$preview setOperationOn "all string" $val
} else {
changeStringOps "String Op 1" $string_ops_checkbox_1
changeStringOps "String Op 2" $string_ops_checkbox_2
changeStringOps "String Op 3" $string_ops_checkbox_3
changeStringOps "String Op 4" $string_ops_checkbox_4
changeStringOps "String Op 5" $string_ops_checkbox_5
changeStringOps "String Op 6" $string_ops_checkbox_6
changeStringOps "String Op 7" $string_ops_checkbox_7
changeStringOps "String Op 8" $string_ops_checkbox_8
changeStringOps "String Op 9" $string_ops_checkbox_9
}
}
proc changeStringValues { idx_c idx showValue} {
global string_ops_str_attribute$idx_c
global string_ops_str_field$idx_c
global string_ops_str_ndec$idx_c
global string_ops_str_notation$idx_c
global string_ops_str_symbol$idx_c
global string_ops_str_image$idx_c
global string_ops_str_filled$idx_c
global string_ops_str_direction$idx_c
global string_ops_str_bearing$idx_c
global string_ops_str_distance$idx_c
global string_ops_str_distance_type$idx_c
global string_ops_str_position$idx_c
global string_ops_str_text_angle$idx_c
global string_ops_str_text_angle_type$idx_c
global string_ops_str_horiz_just$idx_c
global string_ops_str_vert_just$idx_c
global string_ops_str_font$idx_c
global string_ops_str_bold_font$idx_c
global string_ops_str_italic_font$idx_c
global string_ops_str_underline_font$idx_c
global string_ops_str_text_height$idx_c
global string_ops_str_pen$idx_c
global string_ops_str_allow_pen_mods$idx_c
global preview
upvar 0 "string_ops_str_field$idx_c" str_field
upvar 0 "string_ops_str_ndec$idx_c" str_ndec
upvar 0 "string_ops_str_notation$idx_c" str_notation
upvar 0 "string_ops_str_symbol$idx_c" str_symbol
upvar 0 "string_ops_str_image$idx_c" str_image
upvar 0 "string_ops_str_filled$idx_c" str_filled
upvar 0 "string_ops_str_direction$idx_c" str_direction
upvar 0 "string_ops_str_bearing$idx_c" str_bearing
upvar 0 "string_ops_str_distance$idx_c" str_distance
upvar 0 "string_ops_str_distance_type$idx_c"  str_distance_type
upvar 0 "string_ops_str_position$idx_c" str_position
upvar 0 "string_ops_str_text_angle$idx_c" str_text_angle
upvar 0 "string_ops_str_text_angle_type$idx_c" str_text_angle_type
upvar 0 "string_ops_str_horiz_just$idx_c" str_horiz_just
upvar 0 "string_ops_str_vert_just$idx_c" str_vert_just
upvar 0 "string_ops_str_font$idx_c" str_font
upvar 0 "string_ops_str_bold_font$idx_c" str_bold_font
upvar 0 "string_ops_str_italic_font$idx_c" str_italic_font
upvar 0 "string_ops_str_underline_font$idx_c" str_underline_font
upvar 0 "string_ops_str_text_height$idx_c" str_text_height
upvar 0 "string_ops_str_pen$idx_c" str_pen
upvar 0 "string_ops_str_attribute$idx_c" str_attribute
upvar 0 "string_ops_str_allow_pen_mods$idx_c" str_allow_pen_mods
set buffer [subst { str_attribute = "[$str_attribute getCurrentValue]"
str_field = "[$str_field getCurrentValue]"
str_ndec = "[$str_ndec getCurrentValue]"
str_notation = "[$str_notation getCurrentValue]"
str_symbol = "[$str_symbol getCurrentValue]"
str_image = "[$str_image getCurrentValue]"
str_filled = "[$str_filled getCurrentValue]"
str_direction = "[$str_direction getCurrentValue]"
str_bearing = "[$str_bearing getCurrentValue]"
str_distance = "[$str_distance getCurrentValue]"
str_distance_type = "[$str_distance_type getCurrentValue]"
str_position = "[$str_position getCurrentValue]"
str_text_angle = "[$str_text_angle getCurrentValue]"
str_text_angle_type = "[$str_text_angle_type getCurrentValue]"
str_horiz_just = "[$str_horiz_just getCurrentValue]"
str_vert_just = "[$str_vert_just getCurrentValue]"
str_font = "[$str_font getCurrentValue]"
str_bold_font = "[$str_bold_font getCurrentValue]"
str_italic_font = "[$str_italic_font getCurrentValue]"
str_underline_font = "[$str_underline_font getCurrentValue]"
str_text_height = "[$str_text_height getCurrentValue]"
str_pen = "[$str_pen getCurrentValue]"
str_allow_pen_mods = "[$str_allow_pen_mods getCurrentValue]" } ]
if {$showValue == "Y"} {
$preview loadBuffer "String Op $idx" $buffer
}
}
GuidoForm frm00227 {
-action stateChanged {[ finish $frm00227 ]}
-default_buttons
-label "Define a string entity"
-layout BoxLayout Y_AXIS
-tip PLT_DEFINE_A_STRING_ENTITY_TIP
GuidoPanel frm00227_248 {
-layout CentreLineLayout
GuidoLabel entity_name_label {
-label "Entity name"
-font_style bold
}
GuidoLabel entity_name {
}
}
-action initial {[initialize $frm00227 $string_ops $string_ops_p1 $string_ops_p2 $string_ops_p3 $string_ops_p4 $string_ops_p5 $string_ops_p6 $string_ops_p7 $string_ops_p8 $string_ops_p9 $entity_name]}
GuidoPanel LeftPanel {
-layout BoxLayout X_AXIS
GuidoTabbedPane main_tabbed_pane {
GuidoPanel _main_main_4 {
-layout BoxLayout Y_AXIS
-label "String operations"
-width 48
-height 31
GuidoPanel string_op_p1_insert {
-layout BoxLayout Y_AXIS
GuidoPanel string_use_string_ops_p {
-layout CentreLineLayout
GuidoLabel use_string_ops_label {
-label "Use string operations"
-font_style bold
}
GuidoCheckBox use_string_ops {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP
-action mouseClicked {[changeStringOpsMaster [$use_string_ops getCurrentValue] [$use_string_ops_1 getCurrentValue] [$use_string_ops_2 getCurrentValue] [$use_string_ops_3 getCurrentValue] [$use_string_ops_4 getCurrentValue] [$use_string_ops_5 getCurrentValue] [$use_string_ops_6 getCurrentValue] [$use_string_ops_7 getCurrentValue] [$use_string_ops_8 getCurrentValue] [$use_string_ops_9 getCurrentValue]]}
}
}
GuidoPanel _main_main {
-layout BoxLayout Y_AXIS
-dependency {"[$use_string_ops getCurrentValue]" == "Y"}
GuidoTabbedPane string_ops {
-action mousePressed {[mouse_pressed_proc3 $frm00227 $string_ops $string_ops_p1 $string_ops_p2 $string_ops_p3 $string_ops_p4 $string_ops_p5 $string_ops_p6 $string_ops_p7 $string_ops_p8 $string_ops_p9]}
-action keyReleased {[mouse_pressed_proc3 $frm00227 $string_ops $string_ops_p1 $string_ops_p2 $string_ops_p3 $string_ops_p4 $string_ops_p5 $string_ops_p6 $string_ops_p7 $string_ops_p8 $string_ops_p9]}
GuidoPanel string_ops_p1_container {
-layout BoxLayout Y_AXIS
-label 1
-width 45
-height 27
GuidoPanel string_ops_checkbox_container1 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_1 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_1 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 1" [$use_string_ops_1 getCurrentValue]]}
}
}
GuidoPanel string_ops_p1 {
-layout GridLayout 3 2
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
GuidoPanel Data_source_p1 {
-border etched true
-layout CentreLineLayout
-label "Data source"
GuidoComboBox "string_ops_str_attribute0" {
-default field
-display_length 11
-format none
-label "Attribute type"
-max_length 12
-null false
-tip $str_attribute_tip
-value_in field symbol image "sym in field" note "note+field" "\(field\)"
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
upvar 0 "string_ops_str_attribute0" attribute
GuidoComboBox "string_ops_str_field0" {
-default STR
-dependency { [ typecallback $attribute ] }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-display_length 11
-format none
-label "String file field"
-max_length 6
-null false
-tip $str_field_tip
-value_in STR Y X Z DESC D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31 D32 D33 D34 D35 D36 D37 D38 D39 D40 D41 D42 D43 D44 D45 D46 D47 D48 D49 D50 D51 D52 D53 D54 D55 D56 D57 D58 D59 D60 D61 D62 D63 D64 D65 D66 D67 D68 D69 D70 D71 D72 D73 D74 D75 D76 D77 D78 D79 D80 D81 D82 D83 D84 D85 D86 D87 D88 D89 D90 D91 D92 D93 D94 D95 D96 D97 D98 D99 D100 STRSEG PTS LOC ID
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoField "string_ops_str_ndec0" {
-default 0
-dependency { [ typecallback $attribute ] }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-display_length 8
-format integer
-label "# of decimals"
-max_length 2
-null false
-tip $str_ndec_tip
-translate upper
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoField "string_ops_str_notation0" {
-display_length 8
-dependency { "[ $attribute getCurrentValue ]" == "note" ||
"[ $attribute getCurrentValue ]" == "note+field" }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-format none
-label Notation
-max_length 14
-tip $str_notation_tip
-translate upper
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoSymbolBrowserField "string_ops_str_symbol0" {
-display_length 12
-dependency { "[ $attribute getCurrentValue ]" == "symbol" ||
"[ $attribute getCurrentValue ]" == "sym in field" }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-format none
-label Symbol
-max_length 12
-tip $str_symbol_tip
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
upvar 0 "string_ops_str_symbol0" symbolField
$attribute setActionCallback valueChanged { [attributeCallback $attribute $symbolField] }
GuidoFileBrowserField "string_ops_str_image0" {
-display_length 12
-dependency { "[ $attribute getCurrentValue ]" == "image" }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[ $use_string_ops getCurrentValue ]" == "Y"}
-file_mask "*.gif *.jpg *.jpeg *.tif *.bmp *.png"
-format none
-label Image
-max_length 252
-translate none
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
}
GuidoPanel position_and_direction_str_p1 {
-border etched true
-layout CentreLineLayout
-label "Position, direction and filling"
GuidoCheckBox "string_ops_str_filled0" {
-dependency { "[ $attribute getCurrentValue ]" == "symbol"}
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-label "Fill symbol"
-default false
-selected_value Yes
-unselected_value No
-help $str_filled_tip
-action mouseClicked {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoComboBox "string_ops_str_position0" {
-default centre
-display_length 11
-format none
-label Position
-max_length 9
-null false
-tip $str_position_tip
-value_in start "b1-2" last centre centroid frequency
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
upvar 0 "string_ops_str_position0" position
GuidoComboBox "string_ops_str_direction0" {
-default none
-dependency { "[ $position getCurrentValue ]" != "frequency" }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-display_length 11
-format none
-label Direction
-max_length 8
-null false
-tip $str_direction_tip
-value_in none angle forward backward centre
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
upvar 0 "string_ops_str_direction0" direction
GuidoField "string_ops_str_bearing0" {
-default 0.0
-dependency { "[ $position getCurrentValue ]" != "frequency" &&
"[ $direction getCurrentValue ]" == "angle" }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-display_length 8
-format double
-high_bound 360.000000
-low_bound 0.000000
-label "Angle from point"
-max_length 3
-null false
-tip $str_bearing_tip
-translate upper
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoField "string_ops_str_distance0" {
-default 5.0
-dependency { "[ $position getCurrentValue ]" == "frequency" ||
"[ $direction getCurrentValue ]" != "none" }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-display_length 8
-format double
-label "Dist. from point"
-max_length 6
-null false
-tip $str_distance_tip
-translate upper
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
upvar 0 "string_ops_str_distance0" distance
$position setActionCallback valueChanged {[positionCallback $position $distance]}
GuidoComboBox "string_ops_str_distance_type0" {
-default actual
-dependency { "[ $position getCurrentValue ]" != "frequency" &&
[ directioncallback $direction ] }
-dependency { "[ $use_string_ops_1 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-display_length 11
-format none
-label "Distance type"
-max_length 11
-null false
-tip $str_distance_type_tip
-value_in actual percentage
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
}
GuidoPanel str_text_p1 {
-border etched true
-label "Text properties"
-layout CentreLineLayout
GuidoField "string_ops_str_text_angle0" {
-default 0.0
-display_length 8
-format none
-label "Text angle"
-max_length 5
-null false
-tip $str_text_angle_tip
-translate upper
-high_bound 360.000000
-low_bound 0.000000
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoComboBox "string_ops_str_text_angle_type0" {
-default absolute
-display_length 11
-format none
-label "Text angle type"
-max_length 8
-null false
-tip $str_text_angle_type_tip
-value_in absolute relative bearing
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoComboBox "string_ops_str_horiz_just0" {
-default centre
-display_length 11
-format none
-label "Horiz. just."
-max_length 6
-null false
-tip $str_horiz_just_tip
-value_in left centre right
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoComboBox "string_ops_str_vert_just0" {
-default centre
-display_length 11
-format none
-label "Vert. just."
-max_length 6
-null false
-tip $str_vert_just_tip
-value_in top centre bottom
-alternative_mlt_keys top centre PLT_BOTTOM
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
}
GuidoPanel "string_ops_str_font_p1" {
-label "Font options"
-layout CentreLineLayout
-border etched true
GuidoFontNameBrowser "string_ops_str_font0" {
-action initial {[$string_ops_str_font0 updateBrowserList]}
-label "Name"
-null false
-allowDefault true
-display_length 12
-format none
-max_length 50
-next_focus string_ops_str_bold_font0
-tip "PLT_FONT_NAME_TIP"
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoCheckBox "string_ops_str_bold_font0" {
-label "FONT_STYLE_BOLD"
-selected_value Y
-tip "FONT_STYLE_BOLD_TIP"
-unselected_value N
-next_focus string_ops_str_italic_font0
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoCheckBox "string_ops_str_italic_font0" {
-label "FONT_STYLE_ITALIC"
-selected_value Y
-tip "FONT_STYLE_ITALIC_TIP"
-unselected_value N
-next_focus string_ops_str_underline_font0
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoCheckBox "string_ops_str_underline_font0" {
-label "FONT_STYLE_UNDERLINE"
-selected_value Y
-tip "FONT_STYLE_UNDERLINED_TIP"
-unselected_value N
-next_focus string_ops_str_text_height0
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoField "string_ops_str_text_height0" {
-default 1.8
-display_length 8
-format none
-label "Text height"
-max_length 6
-null false
-tip $str_text_height_tip
-translate upper
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
}
GuidoPanel Other_prop_p1 {
-label "Other properties"
-layout CentreLineLayout
-border etched true
GuidoField "string_ops_str_priority0" {
-default 101
-display_length 8
-format integer
-high_bound 125
-low_bound 0
-label Priority
-max_length 3
-null false
-tip $str_priority_tip
-translate upper
}
GuidoField "string_ops_str_pen0" {
-default 1
-display_length 8
-format integer
-high_bound 999
-low_bound 1
-label "Pen number"
-max_length 3
-null false
-tip $str_pen_tip
-translate upper
-action valueChanged {[changeStringValues 0 1 [$use_string_ops_1 getCurrentValue]]}
}
GuidoCheckBox "string_ops_str_allow_pen_mods0" {
-label "PLT_LABEL_ALLOW_PEN_MODS"
-default true
-selected_value Y
-unselected_value N
-tip "PLT_ALLOW_PEN_MODIFIERS"
}
}
}
}
GuidoPanel string_ops_p2_container {
-layout BoxLayout Y_AXIS
-label 2
GuidoPanel string_ops_checkbox_container2 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_2 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_2 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 2" [$use_string_ops_2 getCurrentValue]]}
}
}
GuidoPanel string_ops_p2 {
-dependency { "[ $use_string_ops_2 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel string_ops_p3_container {
-layout BoxLayout Y_AXIS
-label 3
GuidoPanel string_ops_checkbox_container3 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_3 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_3 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 3" [$use_string_ops_3 getCurrentValue]]}
}
}
GuidoPanel string_ops_p3 {
-dependency { "[ $use_string_ops_3 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel string_ops_p4_container {
-layout BoxLayout Y_AXIS
-label 4
GuidoPanel string_ops_checkbox_container4 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_4 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_4 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 4" [$use_string_ops_4 getCurrentValue]]}
}
}
GuidoPanel string_ops_p4 {
-dependency { "[ $use_string_ops_4 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel string_ops_p5_container {
-layout BoxLayout Y_AXIS
-label 5
GuidoPanel string_ops_checkbox_container5 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_5 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_5 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 5" [$use_string_ops_5 getCurrentValue]]}
}
}
GuidoPanel string_ops_p5 {
-dependency { "[ $use_string_ops_5 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel string_ops_p6_container {
-layout BoxLayout Y_AXIS
-label 6
GuidoPanel string_ops_checkbox_container6 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_6 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_6 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 6" [$use_string_ops_6 getCurrentValue]]}
}
}
GuidoPanel string_ops_p6 {
-dependency { "[ $use_string_ops_6 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel string_ops_p7_container {
-layout BoxLayout Y_AXIS
-label 7
GuidoPanel string_ops_checkbox_container7 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_7 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_7 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 7" [$use_string_ops_7 getCurrentValue]]}
}
}
GuidoPanel string_ops_p7 {
-dependency { "[ $use_string_ops_7 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel string_ops_p8_container {
-layout BoxLayout Y_AXIS
-label 8
GuidoPanel string_ops_checkbox_container8 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_8 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_8 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 8" [$use_string_ops_8 getCurrentValue]]}
}
}
GuidoPanel string_ops_p8 {
-dependency { "[ $use_string_ops_8 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel string_ops_p9_container {
-layout BoxLayout Y_AXIS
-label 9
GuidoPanel string_ops_checkbox_container9 {
-layout FlowLayout Left 0 0
GuidoLabel use_string_ops_label_9 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_string_ops_9 {
-selected_value Y
-unselected_value N
-tip PLT_USE_STRING_OPS_TIP2
-action mouseClicked {[changeStringOps "String Op 9" [$use_string_ops_9 getCurrentValue]]}
}
}
GuidoPanel string_ops_p9 {
-dependency { "[ $use_string_ops_9 getCurrentValue ]" == "Y" &&
"[$use_string_ops getCurrentValue]" == "Y"}
-layout CentreLineLayout
}
}
}
}
}
}
GuidoPanel point_op_p1 {
-layout BoxLayout Y_AXIS
-label "Point operations"
}
GuidoPanel _main_main_10 {
-layout BoxLayout X_AXIS
-label "Line operations"
}
GuidoPanel _main_main_13 {
-layout BoxLayout Y_AXIS
-label "Cliff symbols"
}
GuidoPanel _main_main_23 {
-label "Pattern fill"
-layout BoxLayout Y_AXIS
}
GuidoPanel colour_ops {
-label "Colour fill"
-layout BoxLayout Y_AXIS
}
-action mousePressed {[mouse_pressed_proc $main_tabbed_pane $_main_main_4 $point_op_p1 $_main_main_10 $_main_main_13 $_main_main_23 $colour_ops ]}
-action keyReleased {[mouse_pressed_proc $main_tabbed_pane $_main_main_4 $point_op_p1 $_main_main_10 $_main_main_13 $_main_main_23 $colour_ops ]}
}
GuidoFiller space {
-width 0.5
}
GuidoEntityPreviewer preview {
-label "Preview"
-border etched true
}
}
$frm00227 legacyProcessValues false
}
