switch -exact [GuidoSSIOption get "current function name"] {
"CLEAN LAYER" {set title STR_LAYER_CLEAN_TITLE}
"CLEAN STRING" {set title STR_STRING_CLEAN_TITLE}
"CLEAN SEGMENT" {set title STR_SEGMENT_CLEAN_TITLE}
}
GuidoForm frm00605 {
-default_buttons
-label "String File Clean Up"
-layout BoxLayout Y_AXIS
-tip "00605_TIP_001"
-action initial {[$frm00605 setLabel $title]}
GuidoPanel main {
-layout CentreLineLayout
-label "Function"
-border etched true
GuidoLabel function_label {
-label "Function:"
}
GuidoComboBox operation {
-display_length 8
-null false
-tip "Select the clean up function to apply."
-value_in "Closure" "Cross-overs" "Duplicate Point" "Duplicate Segment" "Minimum Area" "Minimum Points" Spikes
-default "Duplicate Point"
}
GuidoPanel frm00605_1 {
-layout GridLayout 6 1
GuidoPanel action_label_panel {
-layout BorderLayout
GuidoLabel action_label {
-position East
-label "Action:"
}
}
GuidoPanel marker_label_panel {
-layout BorderLayout
GuidoLabel marker_label {
-position East
-label "Marker colour:"
}
}
GuidoPanel target_label_panel {
-layout BorderLayout
GuidoLabel target_label {
-position East
-label "Target:"
}
}
GuidoPanel arg1_label {
-layout OverlayLayout
GuidoPanel cross_arg_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Cross-overs"}
GuidoLabel cross_arglabel {
-position East
-dependency {"[ $operation getCurrentValue]" == "Cross-overs"}
-label "Cross-over type:"
}
}
GuidoPanel min_dup_pnts_arg_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
GuidoLabel min_dup_pnts_arg_label {
-position East
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
-label "Minimum trap distance:"
}
}
GuidoPanel dup_segs_arg_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Duplicate Segment"}
GuidoLabel dup_segs_arglabel {
-position East
-dependency {"[ $operation getCurrentValue]" == "Duplicate Segment"}
-label "Trap distance:"
}
}
GuidoPanel minarea_arg_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Minimum Area"}
GuidoLabel minarea_arglabel {
-position East
-dependency {"[ $operation getCurrentValue]" == "Minimum Area"}
-label "Minimum area:"
}
}
GuidoPanel min_pnts_arg_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Minimum Points"}
GuidoLabel min_pnts_arg_label {
-position East
-dependency {"[ $operation getCurrentValue]" == "Minimum Points"}
-label "Minimum points:"
}
}
GuidoPanel spike_arg_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Spikes"}
GuidoLabel spike_arglabel {
-position East
-dependency {"[ $operation getCurrentValue]" == "Spikes"}
-label "Trap angle:"
}
}
}
GuidoPanel arg2_label {
-layout OverlayLayout
GuidoPanel dup_pnts_arg_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
GuidoLabel dup_pnts_arglabel {
-position East
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
-label "Maximum trap distance:"
}
}
}
GuidoPanel distances_and_angles_label_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point" ||
"[ $operation getCurrentValue]" == "Duplicate Segment" ||
"[ $operation getCurrentValue]" == "Spikes"}
GuidoLabel distances_and_angles_label {
-position East
-label "Measure distances and angles in:"
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point" ||
"[ $operation getCurrentValue]" == "Duplicate Segment" ||
"[ $operation getCurrentValue]" == "Spikes"}
}
}
}
GuidoPanel frm00605_1a {
-layout GridLayout 6 1
GuidoPanel overlay_actions {
-layout OverlayLayout
GuidoPanel closure_panel {
-dependency {"[ $operation getCurrentValue]" == "Closure"}
-layout BorderLayout
GuidoButtonGroupPanel closure {
-layout BoxLayout X_AXIS
-dependency {"[ $operation getCurrentValue]" == "Closure"}
-tip "00605_TIP_003"
GuidoRadioButton closure_1 {
-caption "allow all"
-default true
-selected_value "allow all"
}
GuidoRadioButton closure_2 {
-caption "close all"
-selected_value "close all"
}
GuidoRadioButton closure_3 {
-caption "delete open"
-selected_value "delete open"
}
GuidoRadioButton closure_4 {
-caption "open all"
-selected_value "open all"
}
}
}
GuidoButtonGroupPanel cross_action {
-layout BoxLayout X_AXIS
-dependency {"[ $operation getCurrentValue]" == "Cross-overs"}
-tip "00605_TIP_004"
GuidoRadioButton frm00605_2 {
-caption mark
-default true
-selected_value mark
}
GuidoRadioButton frm00605_3 {
-caption warn
-selected_value warn
}
}
GuidoButtonGroupPanel dup_pnts_action {
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
-layout BoxLayout X_AXIS
-tip "00605_TIP_007"
GuidoRadioButton frm00605_9 {
-caption mark
-default true
-selected_value mark
}
GuidoRadioButton frm00605_10 {
-caption remove
-selected_value remove
}
GuidoRadioButton frm00605_11 {
-caption warn
-selected_value warn
}
}
GuidoButtonGroupPanel dup_segs_action {
-dependency {"[ $operation getCurrentValue]" == "Duplicate Segment"}
-layout BoxLayout X_AXIS
-tip "00605_TIP_011"
GuidoRadioButton frm00605_15 {
-caption mark
-default true
-selected_value mark
}
GuidoRadioButton frm00605_16 {
-caption remove
-selected_value remove
}
}
GuidoButtonGroupPanel min_area_action {
-layout BoxLayout X_AXIS
-tip "00605_TIP_014"
-dependency {"[ $operation getCurrentValue]" == "Minimum Area"}
GuidoRadioButton frm00605_19 {
-caption mark
-default true
-selected_value mark
}
GuidoRadioButton frm00605_20 {
-caption remove
-selected_value remove
}
GuidoRadioButton frm00605_21 {
-caption warn
-selected_value warn
}
}
GuidoButtonGroupPanel min_pnts_action {
-layout BoxLayout X_AXIS
-tip "00605_TIP_014"
-dependency {"[ $operation getCurrentValue]" == "Minimum Points"}
GuidoRadioButton frm00605_24 {
-caption mark
-default true
-selected_value mark
}
GuidoRadioButton frm00605_25 {
-caption remove
-selected_value remove
}
GuidoRadioButton frm00605_26 {
-caption warn
-selected_value warn
}
}
GuidoButtonGroupPanel spike_action {
-layout BoxLayout X_AXIS
-tip "00605_TIP_018"
-dependency {"[ $operation getCurrentValue]" == "Spikes"}
GuidoRadioButton frm00605_27 {
-caption mark
-default true
-selected_value mark
}
GuidoRadioButton frm00605_28 {
-caption remove
-selected_value remove
}
GuidoRadioButton frm00605_29 {
-caption warn
-selected_value warn
}
}
}
GuidoPanel markerColour_panel {
-layout BorderLayout
GuidoColourBrowserField markerColour {
-position West
-display_length 8
-dependency {"[ $cross_action getCurrentValue]" == "mark" && "[ $operation getCurrentValue]" == "Cross-overs" ||
"[ $dup_pnts_action getCurrentValue]" == "mark" && "[ $operation getCurrentValue]" == "Duplicate Point" ||
"[ $dup_segs_action getCurrentValue]" == "mark" && "[ $operation getCurrentValue]" == "Duplicate Segment" ||
"[ $min_area_action getCurrentValue]" == "mark" && "[ $operation getCurrentValue]" == "Minimum Area" ||
"[ $min_pnts_action getCurrentValue]" == "mark" && "[ $operation getCurrentValue]" == "Minimum Points" ||
"[ $spike_action getCurrentValue]" == "mark" && "[ $operation getCurrentValue]" == "Spikes"}
-default "red"
-display_length 15
-format none
-exclusive false
-max_length 80
-tip "MARKER_COLOUR_TIP"
}
}
GuidoPanel overlay_target {
-layout OverlayLayout
GuidoButtonGroupPanel cross_target {
-layout BoxLayout X_AXIS
-dependency {"[ $operation getCurrentValue]" == "Cross-overs"}
-tip "00605_TIP_005"
GuidoRadioButton frm00605_4 {
-caption layer
-default true
-selected_value layer
}
GuidoRadioButton frm00605_5 {
-caption string
-selected_value string
}
GuidoRadioButton frm00605_6 {
-caption segment
-selected_value segment
}
}
GuidoPanel target_segment_panel {
-layout BorderLayout
-dependency {"[ $operation getCurrentValue]" == "Minimum Area" || "[ $operation getCurrentValue]" == "Closure" || "[ $operation getCurrentValue]" == "Minimum Points" || "[ $operation getCurrentValue]" == "Spikes"}
GuidoLabel target_segment {
-label "segment"
}
}
GuidoButtonGroupPanel dup_pnts_target {
-layout BoxLayout X_AXIS
-tip "00605_TIP_008"
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
GuidoRadioButton frm00605_12 {
-caption layer
-default true
-selected_value layer
}
GuidoRadioButton frm00605_13 {
-caption string
-selected_value string
}
GuidoRadioButton frm00605_14 {
-caption segment
-selected_value segment
}
}
GuidoButtonGroupPanel dup_segs_target {
-dependency {"[ $operation getCurrentValue]" == "Duplicate Segment"}
-layout BoxLayout X_AXIS
-tip "00605_TIP_012"
GuidoRadioButton frm00605_17 {
-caption layer
-default true
-selected_value layer
}
GuidoRadioButton frm00605_18 {
-caption string
-selected_value string
}
}
}
GuidoPanel arg1_field {
-layout OverlayLayout
GuidoPanel Cross_oversPanel {
-dependency {"[ $operation getCurrentValue]" == "Cross-overs"}
-layout BoxLayout Y_AXIS
GuidoButtonGroupPanel cross_arg {
-layout BoxLayout X_AXIS
-dependency {"[ $operation getCurrentValue]" == "Cross-overs"}
-tip "00605_TIP_006"
GuidoRadioButton frm00605_7 {
-caption breakline
-selected_value breakline
}
GuidoRadioButton frm00605_8 {
-caption all
-default true
-selected_value all
}
}
}
GuidoPanel dup_pnts_dist_minPanel {
-layout BoxLayout Y_AXIS
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
GuidoField dup_pnts_dist_min {
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
-default 0
-display_length 8
-format double
-high_bound 99999999.000000
-low_bound 0.000000
-max_length 8
-null false
-tip "DUP_POINTS_MIN_TRAP_TIP"
-translate upper
}
}
GuidoPanel DuplicateSegPanel {
-layout BoxLayout Y_AXIS
-dependency {"[ $operation getCurrentValue]" == "Duplicate Segment"}
GuidoField dup_segs_dist {
-dependency {"[ $operation getCurrentValue]" == "Duplicate Segment"}
-default 0
-display_length 8
-format double
-high_bound 99999999.000000
-low_bound 0.000000
-max_length 8
-null false
-tip "The trap distance to use when testing if two points are duplicates."
-translate upper
}
}
GuidoPanel MinimumAreaPanel {
-layout CentreLineLayout
-dependency {"[ $operation getCurrentValue]" == "Minimum Area"}
GuidoPanel MinimumAreaPanel_p2 {
-layout BoxLayout X_AXIS
GuidoField min_area {
-dependency {"[ $operation getCurrentValue]" == "Minimum Area"}
-display_length 8
-low_bound 0.0
-high_bound 99999999
-format real_8
-max_length 7
-default 1
-tip "The minimum area required for closed segments."
}
GuidoButtonGroupPanel absolute {
-dependency {"[ $operation getCurrentValue]" == "Minimum Area"}
GuidoRadioButton frm00605_22 {
-caption absolute
-default true
-selected_value absolute
}
GuidoRadioButton frm00605_23 {
-caption signed
-selected_value signed
}
}
}
}
GuidoPanel MinimumPtsPanel {
-layout CentreLineLayout
-dependency {"[ $operation getCurrentValue]" == "Minimum Points"}
GuidoField min_pnts {
-dependency {"[ $operation getCurrentValue]" == "Minimum Points"}
-display_length 8
-low_bound 0.0
-high_bound 99999999
-format integer_4
-max_length 7
-default 1
-tip "The minimum number of points to use."
}
}
GuidoPanel SpikesPanel {
-layout CentreLineLayout
-dependency {"[ $operation getCurrentValue]" == "Spikes"}
GuidoPanel SpikesPanel_p2 {
-layout BoxLayout X_AXIS
GuidoField spike_angle {
-dependency {"[ $operation getCurrentValue]" == "Spikes"}
-display_length 8
-low_bound 0.0
-high_bound 1.570796326795
-format decimal_angle
-max_length 7
-default "5.0"
-tip "The trap angle to use when testing for spikes."
}
GuidoFiller SpikesPanel_fw1 {
-width 1
}
GuidoLabel angle_units {
-dependency {"[ $operation getCurrentValue]" == "Spikes"}
-label DEGREES
}
}
}
}
GuidoPanel arg2_field {
-layout OverlayLayout
GuidoPanel DuplicatePtPanel {
-layout BoxLayout Y_AXIS
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
GuidoField dup_pnts_dist {
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point"}
-default 0
-display_length 8
-format double
-high_bound 99999999.000000
-low_bound 0.000000
-max_length 8
-null false
-tip "DUP_POINTS_MAX_TRAP_TIP"
-translate upper
}
}
}
GuidoButtonGroupPanel dimension {
-layout BoxLayout X_AXIS
-tip "Spikes, duplicate points and duplicate segments can be tested for in two or three dimensions."
-dependency {"[ $operation getCurrentValue]" == "Duplicate Point" ||
"[ $operation getCurrentValue]" == "Duplicate Segment" ||
"[ $operation getCurrentValue]" == "Spikes"}
GuidoRadioButton frm00605_31 {
-caption "2D space"
-default true
-selected_value 2D
}
GuidoRadioButton frm00605_32 {
-caption "3D space"
-selected_value 3D
}
}
}
}
GuidoPanel plane_panel {
-border etched true
-label "Projection plane"
-layout BoxLayout Y_AXIS
-dependency {"[ $operation getCurrentValue]" == "Minimum Area" ||
"[ $operation getCurrentValue]" == "Spikes" ||
"[ $operation getCurrentValue]" == "Duplicate Point" ||
"[ $operation getCurrentValue]" == "Duplicate Segment" ||
"[ $operation getCurrentValue]" == "Cross-overs"}
GuidoLabel plane_label {
-label "FRM_00605_1"
}
GuidoFiller plane_filler1 {
-height 0.05
}
GuidoPanel plane_field_panel {
-layout CentreLineLayout
GuidoComboBox plane {
-display_length 24
-label "Plane to use:"
-null false
-tip SURFACE_CREATION_PLANE_TIP_2
}
}
GuidoFiller plane_filler2 {
-height 0.05
}
GuidoPanel activate_plane_panel {
-layout CentreLineLayout
GuidoCheckBox activate_plane {
-dependency {"[$plane getCurrentValue]" == "best fit"}
-default false
-tip SURFACE_CREATION_PLANE_ACTIVATE
}
GuidoLabel activate_plane_label {
-label "FRM_00605_5"
-dependency {"[$plane getCurrentValue]" == "best fit"}
}
}
}
}
