proc changePointOps { point val } {
global preview
$preview setOperationOn $point $val
}
proc changePointValues { idx_c idx } {
global point_ops_pnt_attribute$idx_c
global point_ops_pnt_field$idx_c
global point_ops_pnt_ndec$idx_c
global point_ops_pnt_notation$idx_c
global point_ops_pnt_symbol$idx_c
global point_ops_pnt_image$idx_c
global point_ops_pnt_filled$idx_c
global point_ops_pnt_direction$idx_c
global point_ops_pnt_bearing$idx_c
global point_ops_pnt_distance$idx_c
global point_ops_pnt_distance_type$idx_c
global point_ops_pnt_offset$idx_c
global point_ops_pnt_text_angle$idx_c
global point_ops_pnt_text_angle_type$idx_c
global point_ops_pnt_horiz_just$idx_c
global point_ops_pnt_vert_just$idx_c
global point_ops_pnt_font$idx_c
global point_ops_pnt_bold_font$idx_c
global point_ops_pnt_italic_font$idx_c
global point_ops_pnt_underline_font$idx_c
global point_ops_pnt_text_height$idx_c
global point_ops_pnt_pen$idx_c
global point_ops_pnt_allow_pen_mods$idx_c
global preview
upvar 0 "point_ops_pnt_field$idx_c" pnt_field
upvar 0 "point_ops_pnt_ndec$idx_c" pnt_ndec
upvar 0 "point_ops_pnt_notation$idx_c" pnt_notation
upvar 0 "point_ops_pnt_symbol$idx_c" pnt_symbol
upvar 0 "point_ops_pnt_image$idx_c" pnt_image
upvar 0 "point_ops_pnt_filled$idx_c" pnt_filled
upvar 0 "point_ops_pnt_direction$idx_c" pnt_direction
upvar 0 "point_ops_pnt_bearing$idx_c" pnt_bearing
upvar 0 "point_ops_pnt_distance$idx_c" pnt_distance
upvar 0 "point_ops_pnt_distance_type$idx_c"  pnt_distance_type
upvar 0 "point_ops_pnt_offset$idx_c" pnt_offset
upvar 0 "point_ops_pnt_text_angle$idx_c" pnt_text_angle
upvar 0 "point_ops_pnt_text_angle_type$idx_c" pnt_text_angle_type
upvar 0 "point_ops_pnt_horiz_just$idx_c" pnt_horiz_just
upvar 0 "point_ops_pnt_vert_just$idx_c" pnt_vert_just
upvar 0 "point_ops_pnt_font$idx_c" pnt_font
upvar 0 "point_ops_pnt_bold_font$idx_c" pnt_bold_font
upvar 0 "point_ops_pnt_italic_font$idx_c" pnt_italic_font
upvar 0 "point_ops_pnt_underline_font$idx_c" pnt_underline_font
upvar 0 "point_ops_pnt_text_height$idx_c" pnt_text_height
upvar 0 "point_ops_pnt_pen$idx_c" pnt_pen
upvar 0 "point_ops_pnt_allow_pen_mods$idx_c" pnt_allow_pen_mods
upvar 0 "point_ops_pnt_attribute$idx_c" pnt_attribute
set buffer [subst { pnt_attribute = "[$pnt_attribute getCurrentValue]"
pnt_field = "[$pnt_field getCurrentValue]"
pnt_ndec = "[$pnt_ndec getCurrentValue]"
pnt_notation = "[$pnt_notation getCurrentValue]"
pnt_symbol = "[$pnt_symbol getCurrentValue]"
pnt_image = "[$pnt_image getCurrentValue]"
pnt_filled = "[$pnt_filled getCurrentValue]"
pnt_direction = "[$pnt_direction getCurrentValue]"
pnt_bearing = "[$pnt_bearing getCurrentValue]"
pnt_distance = "[$pnt_distance getCurrentValue]"
pnt_distance_type = "[$pnt_distance_type getCurrentValue]"
pnt_offset = "[$pnt_offset getCurrentValue]"
pnt_text_angle = "[$pnt_text_angle getCurrentValue]"
pnt_text_angle_type = "[$pnt_text_angle_type getCurrentValue]"
pnt_horiz_just = "[$pnt_horiz_just getCurrentValue]"
pnt_vert_just = "[$pnt_vert_just getCurrentValue]"
pnt_font = "[$pnt_font getCurrentValue]"
pnt_bold_font = "[$pnt_bold_font getCurrentValue]"
pnt_italic_font = "[$pnt_italic_font getCurrentValue]"
pnt_underline_font = "[$pnt_underline_font getCurrentValue]"
pnt_text_height = "[$pnt_text_height getCurrentValue]"
pnt_pen = "[$pnt_pen getCurrentValue]"
pnt_allow_pen_mods = "[$pnt_allow_pen_mods getCurrentValue]"  } ]
$preview loadBuffer "Point Op $idx" $buffer
}
proc initPointTab { frm00227 idx_c } {
if {[$frm00227 readInputField use_point_ops] == "Y"} {
global pnt_fields
for {set idx 0} {$idx < [array size pnt_fields]} {incr idx} {
global "point_ops_pnt_$pnt_fields($idx)$idx_c"
}
for {set idx 0} {$idx < [array size pnt_fields]} {incr idx} {
set val [$frm00227 readInputField point_ops($idx_c).pnt_$pnt_fields($idx)]
if {$val > ""} {
eval "\$point_ops_pnt_$pnt_fields($idx)$idx_c setCurrentValue \"\""
eval "\$point_ops_pnt_$pnt_fields($idx)$idx_c setCurrentValue \"$val\""
upvar 0 "point_ops_pnt_$pnt_fields($idx)$idx_c" field
set currentValue [string tolower [string trim "[ $field getCurrentValue ]"]]
set testValue [string tolower [string trim $val]]
if {$currentValue != $testValue} {
set pan $idx_c
incr pan
puts "Error: $val value not allowed for field (point operation tab #$pan)."
}
}
if {$idx == 0} {
eval "attributeCallback \$point_ops_pnt_attribute$idx_c \$point_ops_pnt_symbol$idx_c"
}
}
}
}
proc addpointpanel {idx_c idx point_ops_p1} {
global pnt_fields
for {set temp_idx 0} {$temp_idx < [array size pnt_fields]} {incr temp_idx} {
global "point_ops_pnt_$pnt_fields($temp_idx)$idx_c"
}
global use_point_ops
global use_point_ops_1
global use_point_ops_2
global use_point_ops_3
global use_point_ops_4
global use_point_ops_5
global use_point_ops_6
global use_point_ops_7
global use_point_ops_8
global use_point_ops_9
upvar 0 "use_point_ops_$idx" checked
GuidoPanel "point_op_container$idx" {
-layout GridLayout 3 2
-dependency {"[$checked getCurrentValue]" == "Y" &&
"[$use_point_ops getCurrentValue]" == "Y"}
GuidoPanel "Point_Data_source_p$idx" {
-label "Data source"
-layout CentreLineLayout
-border etched true
GuidoComboBox "point_ops_pnt_attribute$idx_c" {
-default field
-display_length 11
-format none
-label "Attribute type"
-max_length 12
-null false
-tip "PNT_ATTRIBUTE_TIP"
-value_in field symbol image "sym in field" note "note+field" "\(field\)"
-action valueChanged {[changePointValues $idx_c $idx]}
}
upvar 0 "point_ops_pnt_attribute$idx_c" attribute
GuidoComboBox "point_ops_pnt_field$idx_c" {
-default STR
-dependency { [ typecallback $attribute ] }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-display_length 11
-format none
-label "String file field"
-null false
-max_length 6
-tip "PNT_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 "PTSTR" "PTSEG"
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoField "point_ops_pnt_ndec$idx_c" {
-default 0
-dependency { [ typecallback $attribute ] }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-display_length 8
-format integer
-label "# of decimals"
-max_length 2
-null false
-tip "PLT_STR_NDEC_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
-low_bound 0
}
GuidoField "point_ops_pnt_notation$idx_c" {
-display_length 8
-dependency { "[ $attribute  getCurrentValue ]" == "note" ||
"[ $attribute getCurrentValue ]" == "note+field" }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-format none
-label Notation
-max_length 14
-tip "PNT_NOTATION_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoSymbolBrowserField "point_ops_pnt_symbol$idx_c" {
-display_length 12
-dependency { "[ $attribute getCurrentValue ]" == "symbol" ||
"[ $attribute getCurrentValue ]" == "sym in field" }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-format none
-label Symbol
-max_length 12
-tip "PNT_SYMBOL_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
}
upvar 0 "point_ops_pnt_symbol$idx_c" symbolField
$attribute setActionCallback focusGained { [attributeCallback $attribute $symbolField] }
GuidoFileBrowserField "point_ops_pnt_image$idx_c" {
-display_length 12
-dependency { "[ $attribute getCurrentValue ]" == "image" }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-file_mask "*.gif *.jpg *.jpeg *.tif *.bmp *.png"
-format none
-label Image
-max_length 252
-translate none
-action valueChanged {[changePointValues $idx_c $idx]}
}
}
GuidoPanel "position_and_direction_p$idx" {
-label "Position, direction and filling"
-layout CentreLineLayout
-border etched true
GuidoCheckBox "point_ops_pnt_filled$idx_c" {
-dependency { "[ $attribute getCurrentValue ]" == "symbol"}
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-label "Fill symbol"
-default false
-selected_value Yes
-unselected_value No
-help "PLT_STR_FILLED_TIP"
-action mouseClicked {[changePointValues $idx_c $idx]}
}
GuidoComboBox "point_ops_pnt_direction$idx_c" {
-default none
-display_length 11
-format none
-label Direction
-max_length 8
-null false
-tip "PNT_DIRECTION_TIP"
-value_in none angle forward backward centre
-action valueChanged {[changePointValues $idx_c $idx]}
}
upvar 0 "point_ops_pnt_direction$idx_c" direction
GuidoField "point_ops_pnt_bearing$idx_c" {
-default 0.0
-dependency { "[ $direction getCurrentValue ]" == "angle" }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_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 "PNT_BEARING_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoField "point_ops_pnt_distance$idx_c" {
-default 5.0
-dependency { "[ $direction getCurrentValue ]" != "none" }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-display_length 8
-format double
-label "Dist. from point"
-max_length 6
-null false
-tip "PNT_DISTANCE_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoComboBox "point_ops_pnt_distance_type$idx_c" {
-default actual
-dependency { [ directioncallback $direction ] }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y"}
-display_length 11
-format none
-label "Distance type"
-max_length 11
-null false
-tip "PLT_STR_DISTANCE_TYPE_TIP"
-value_in actual percentage
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoField "point_ops_pnt_offset$idx_c" {
-default 0.0
-dependency { [ directioncallback $direction ] }
-dependency { "[ $checked getCurrentValue ]" == "Y" &&
"[ $use_point_ops getCurrentValue ]" == "Y" &&
"[ $direction getCurrentValue ]" != "centre"}
-display_length 8
-format double
-high_bound 500
-low_bound -500
-label "Offset"
-max_length 8
-null false
-tip "PNT_OFFSET_TIP"
-action valueChanged {[changePointValues $idx_c $idx]}
}
}
GuidoPanel "pnt_text_p$idx" {
-label "Text properties"
-layout CentreLineLayout
-border etched true
GuidoField "point_ops_pnt_text_angle$idx_c" {
-default 0.0
-display_length 8
-format none
-label "Text angle"
-max_length 5
-null false
-tip "PLT_STR_TEXT_ANGLE_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoComboBox "point_ops_pnt_text_angle_type$idx_c" {
-default absolute
-display_length 11
-format none
-label "Text angle type"
-max_length 8
-null false
-tip "PLT_STR_TEXT_ANGLE_TYPE_TIP"
-value_in absolute relative bearing
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoComboBox "point_ops_pnt_horiz_just$idx_c" {
-default centre
-display_length 11
-format none
-label "Horiz. just."
-max_length 6
-null false
-tip "PLT_STR_HORIZ_JUST_TIP"
-value_in left centre right
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoComboBox "point_ops_pnt_vert_just$idx_c" {
-default centre
-display_length 11
-format none
-label "Vert. just."
-max_length 6
-null false
-tip "PLT_STR_VERT_JUST_TIP"
-value_in top centre bottom
-alternative_mlt_keys top centre PLT_BOTTOM
-action valueChanged {[changePointValues $idx_c $idx]}
}
}
GuidoPanel "point_ops_pnt_font_p$idx" {
-label "Font options"
-layout CentreLineLayout
-border etched true
GuidoFontNameBrowser "point_ops_pnt_font$idx_c" {
-label "Name"
-null false
-allowDefault true
-display_length 12
-format none
-max_length 50
-next_focus "point_ops_pnt_bold_font$idx_c"
-tip "PLT_FONT_NAME_TIP"
}
GuidoCheckBox "point_ops_pnt_bold_font$idx_c" {
-label "FONT_STYLE_BOLD"
-selected_value Y
-tip "FONT_STYLE_BOLD_TIP"
-unselected_value N
-next_focus "point_ops_pnt_italic_font$idx_c"
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoCheckBox "point_ops_pnt_italic_font$idx_c" {
-label "FONT_STYLE_ITALIC"
-selected_value Y
-tip "FONT_STYLE_ITALIC_TIP"
-unselected_value N
-next_focus "point_ops_pnt_underline_font$idx_c"
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoCheckBox "point_ops_pnt_underline_font$idx_c" {
-label "FONT_STYLE_UNDERLINE"
-selected_value Y
-tip "FONT_STYLE_UNDERLINED_TIP"
-unselected_value N
-next_focus "point_ops_pnt_height$idx_c"
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoField "point_ops_pnt_text_height$idx_c" {
-default 1.8
-display_length 8
-format none
-label "Text height"
-max_length 6
-null false
-tip "PLT_STR_TEXT_HEIGHT_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
}
}
GuidoPanel "Other_prop_p$idx" {
-label "Other properties"
-layout CentreLineLayout
-border etched true
GuidoField "point_ops_pnt_priority$idx_c" {
-default 101
-display_length 8
-format integer
-high_bound 125
-low_bound 0
-label Priority
-max_length 3
-null false
-tip "PLT_STR_PRIORITY_TIP"
-translate upper
}
GuidoField "point_ops_pnt_pen$idx_c" {
-default 1
-display_length 3
-format integer
-high_bound 999
-low_bound 1
-label "Pen number"
-max_length 3
-null false
-tip "PLT_STR_PEN_TIP"
-translate upper
-action valueChanged {[changePointValues $idx_c $idx]}
}
GuidoCheckBox "point_ops_pnt_allow_pen_mods$idx_c" {
-label "PLT_LABEL_ALLOW_PEN_MODS"
-default true
-selected_value Y
-unselected_value N
-tip "PLT_ALLOW_PEN_MODIFIERS"
}
}
changePointOps "Point Ops $idx" [$checked getCurrentValue]
}
$point_ops_p1 add [eval "\$point_op_container$idx getObject"]
global "point_ops_pnt_font$idx_c"
upvar 0 "point_ops_pnt_font$idx_c" pnt_font
$pnt_font updateBrowserList
}
global use_point_ops
global use_point_ops_1
global use_point_ops_2
global use_point_ops_3
global use_point_ops_4
global use_point_ops_5
global use_point_ops_6
global use_point_ops_7
global use_point_ops_8
global use_point_ops_9
GuidoPanel point_op_p1_insert {
-layout BoxLayout Y_AXIS
GuidoPanel point_use_point_ops_p {
-layout CentreLineLayout
GuidoLabel use_point_ops_label {
-font_style bold
-label "Use point operations"
}
GuidoCheckBox use_point_ops {
-selected_value Y
-unselected_value N
-tip "00227_1_TIP_018"
-action mouseClicked {[changePointOps "all point" [$use_point_ops getCurrentValue]]}
-action valueChanged {[changePointOps "all point" [$use_point_ops getCurrentValue]]}
}
}
GuidoPanel point_op_table_p1 {
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout BoxLayout Y_AXIS
GuidoTabbedPane point_ops {
-dependency {"[$use_point_ops getCurrentValue]" == "Y"}
GuidoPanel point_ops_p1_container {
-layout BoxLayout Y_AXIS
-label 1
-height 27
-width 45
GuidoPanel point_ops_checkbox_container1 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_1 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_1 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 1" [$use_point_ops_1 getCurrentValue]]}
-action valueChanged {[changePointOps "Point Op 1" [$use_point_ops_1 getCurrentValue]]}
}
}
GuidoPanel point_ops_p1 {
-dependency { "[ $use_point_ops_1 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p2_container {
-layout BoxLayout Y_AXIS
-label 2
GuidoPanel point_ops_checkbox_container2 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_2 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_2 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 2" [$use_point_ops_2 getCurrentValue]]}
}
}
GuidoPanel point_ops_p2 {
-dependency { "[ $use_point_ops_2 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p3_container {
-layout BoxLayout Y_AXIS
-label 3
GuidoPanel point_ops_checkbox_container3 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_3 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_3 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 3" [$use_point_ops_3 getCurrentValue]]}
}
}
GuidoPanel point_ops_p3 {
-dependency { "[ $use_point_ops_3 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p4_container {
-layout BoxLayout Y_AXIS
-label 4
GuidoPanel point_ops_checkbox_container4 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_4 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_4 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 4" [$use_point_ops_4 getCurrentValue]]}
}
}
GuidoPanel point_ops_p4 {
-dependency { "[ $use_point_ops_4 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p5_container {
-layout BoxLayout Y_AXIS
-label 5
GuidoPanel point_ops_checkbox_container5 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_5 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_5 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 5" [$use_point_ops_5 getCurrentValue]]}
}
}
GuidoPanel point_ops_p5 {
-dependency { "[ $use_point_ops_5 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p6_container {
-layout BoxLayout Y_AXIS
-label 6
GuidoPanel point_ops_checkbox_container6 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_6 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_6 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 6" [$use_point_ops_6 getCurrentValue]]}
}
}
GuidoPanel point_ops_p6 {
-dependency { "[ $use_point_ops_6 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p7_container {
-layout BoxLayout Y_AXIS
-label 7
GuidoPanel point_ops_checkbox_container7 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_7 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_7 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 7" [$use_point_ops_7 getCurrentValue]]}
}
}
GuidoPanel point_ops_p7 {
-dependency { "[ $use_point_ops_7 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p8_container {
-layout BoxLayout Y_AXIS
-label 8
GuidoPanel point_ops_checkbox_container8 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_8 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_8 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 8" [$use_point_ops_8 getCurrentValue]]}
}
}
GuidoPanel point_ops_p8 {
-dependency { "[ $use_point_ops_8 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
GuidoPanel point_ops_p9_container {
-layout BoxLayout Y_AXIS
-label 9
GuidoPanel point_ops_checkbox_container9 {
-layout FlowLayout Left 0 0
GuidoLabel use_point_ops_label_9 {
-label "Use this operation"
-font_style bold
}
GuidoCheckBox use_point_ops_9 {
-selected_value Y
-unselected_value N
-tip "Check this box to enter point entity details. Uncheck the box to ignore the details on this tab."
-action mouseClicked {[changePointOps "Point Op 9" [$use_point_ops_9 getCurrentValue]]}
}
}
GuidoPanel point_ops_p9 {
-dependency { "[ $use_point_ops_9 getCurrentValue ]" == "Y"}
-dependency { "[ $use_point_ops getCurrentValue ]" == "Y"}
-layout CentreLineLayout
}
}
-action mousePressed {[mouse_pressed_proc2 $point_ops $point_ops_p1 $point_ops_p2 $point_ops_p3 $point_ops_p4 $point_ops_p5 $point_ops_p6 $point_ops_p7 $point_ops_p8 $point_ops_p9]}
-action keyReleased {[mouse_pressed_proc2 $point_ops $point_ops_p1 $point_ops_p2 $point_ops_p3 $point_ops_p4 $point_ops_p5 $point_ops_p6 $point_ops_p7 $point_ops_p8 $point_ops_p9]}
}
}
}
$point_op_p1 add [eval "\$point_op_p1_insert getObject"]
addpointpanel 0 1 $point_ops_p1
global frm00227
$use_point_ops setCurrentValue 1
$use_point_ops setCurrentValue 0
$use_point_ops setCurrentValue [$frm00227 readInputField use_point_ops]
if {"[$use_point_ops getCurrentValue]" == "Y"} {
for {set idx_c 0} {$idx_c < 9} {incr idx_c} {
set idx2 $idx_c
incr idx2
set val2 [$frm00227 readInputField point_ops($idx_c).pnt_attribute]
upvar 0 "use_point_ops_$idx2" fieldName2
if { $val2 > "" } {
set pnt_panel_used(idx_c) 1
$fieldName2 setCurrentValue "N"
$fieldName2 setCurrentValue "Y"
} else {
$fieldName2 setCurrentValue "Y"
$fieldName2 setCurrentValue "N"
}
}
}
initPointTab $frm00227 0
changePointValues 0 1
changePointOps "Point Ops 1" false
proc mouse_pressed_proc2 { point_ops point_ops_p1 point_ops_p2 point_ops_p3 point_ops_p4 point_ops_p5 point_ops_p6 point_ops_p7 point_ops_p8 point_ops_p9 } {
set panel_idx [$point_ops getSelectedIndex]
set panel_idx_c [$point_ops getSelectedIndex]
incr panel_idx
global pnt_panel_inited
if {$pnt_panel_inited($panel_idx) == 0} {
eval "addpointpanel $panel_idx_c $panel_idx \$point_ops_p$panel_idx"
set pnt_panel_inited($panel_idx) 1
global frm00227
initPointTab $frm00227 $panel_idx_c
changePointValues $panel_idx_c $panel_idx
}
}
