proc SpheroidActionProc {input_datum spheroid} {
set val [$input_datum getCurrentValue]
if {"$val" == ""} {
$spheroid setInputAllowed 1
} else {
$spheroid setInputAllowed 0
}
}
GuidoForm frm00905 {
-default_buttons
-label "Transverse Mercator To Lat/long Transformation"
-layout CentreLineLayout
-legacy_validation
-tip "00905_TIP_001"
GuidoPanel left_side_panel {
-layout BoxLayout Y_AXIS
GuidoPanel source_sink_panel {
-border etched true
-layout BoxLayout Y_AXIS
GuidoPanel Data_source_panel {
-border etched true
-layout CentreLineLayout
-label "Define the Input Files"
-font_style bold
GuidoFileBrowserField in_location {
-display_length 17
-file_mask *.str
-link in_id_range
-format none
-label Location
-link in_id_range
-max_length 252
-tip "00904_TIP_002"
}
GuidoField in_id_range {
-display_length 17
-format range
-label "ID Range"
-max_length 16
-null false
-tip "00904_TIP_002"
}
}
GuidoPanel sink_panel {
-border etched true
-layout CentreLineLayout
-font_style bold
-label "Define the Output Files"
GuidoFileBrowserField out_location {
-display_length 26
-file_mask *.str
-format none
-extension false
-label Location
-max_length 256
-tip "00904_TIP_004"
-file_access write
-link null
}
}
}
GuidoPanel Geodetic_and_others_panel {
-border etched true
-layout BoxLayout Y_AXIS
-label "Define Geodetic Coordinate System"
GuidoPanel Geodetic_panel {
-layout CentreLineLayout
GuidoComboBox tm_map {
-display_length 16
-format none
-label "TM Map"
-max_length 60
-next_focus spheroid
-null false
-legacy_action
-tip "00904_TIP_005"
}
GuidoLabel frm00904_10 {
-label Datum
}
GuidoLabel input_datum {
-display_length 18
}
GuidoLabel spheroid_label {
-label Spheroid
}
GuidoComboBox spheroid {
-display_length 16
-format none
-max_length 60
-action initial {"[SpheroidActionProc $input_datum $spheroid]"}
-tip "00904_TIP_006"
}
$tm_map setActionCallback focusLost {"[SpheroidActionProc $input_datum $spheroid]"}
}
GuidoFiller filler_height_1 {
-height 1
}
GuidoPanel others_panel {
-layout CentreLineLayout
GuidoField false_easting {
-display_length 12
-format double
-label "False Easting"
-max_length 20
-tip "00904_TIP_007"
}
GuidoField false_northing {
-display_length 12
-format double
-label "False Northing"
-max_length 20
-tip "00904_TIP_007"
}
GuidoField scale_factor {
-display_length 12
-format double
-label "Central Scale Factor"
-max_length 20
-tip "00904_TIP_007"
}
GuidoField zone_width {
-display_length 3
-format double
-label "Zone Width"
-max_length 23
-tip "00904_TIP_007"
}
GuidoField z1_cm {
-display_length 3
-format double
-label "Zone 1 CM"
-max_length 23
-tip "00904_TIP_007"
}
}
}
}
GuidoPanel right_side_panel {
-border etched true
-label "Define String File Format"
-layout BoxLayout Y_AXIS
GuidoButtonGroupPanel ll_format {
-border etched true
-label "Long/Lat Units"
-layout BoxLayout X_AXIS
-tip "Latitude and longitude can be defined in decimal degrees, radians, or degrees, minutes and seconds."
-legacy_dependency
GuidoRadioButton frm00904_29 {
-caption "degrees,minutes,seconds"
-selected_value "dms (deg,min,sec)"
}
GuidoRadioButton frm00904_30 {
-caption degrees
-selected_value degrees
}
GuidoRadioButton frm00904_31 {
-caption radians
-selected_value radians
}
GuidoRadioButton frm00904_32 {
-caption "degrees, minutes"
-selected_value "degrees, minutes"
}
}
GuidoPanel frm00904_59 {
-border etched true
-label "Coordinate Convention"
-layout BoxLayout X_AXIS
GuidoCheckBox north_pos {
-default true
-selected_value Y
-caption "North Positive"
-caption_placement left
-tip "00904_TIP_013"
-unselected_value N
}
GuidoCheckBox east_pos {
-default true
-selected_value Y
-caption "East Positive"
-caption_placement left
-tip "00904_TIP_014"
-unselected_value N
}
}
GuidoLabel frm00904_20 {
-font_style bold
-label "Input Fields"
}
GuidoPanel frm00904_66 {
-layout BoxLayout X_AXIS
GuidoPanel tm_panel {
-layout BoxLayout Y_AXIS
GuidoFiller filler_height_2 {
-height 1
}
GuidoLabel tm_label {
-label TM
-width 4
}
}
GuidoPanel tm_zone_panel {
-layout BoxLayout Y_AXIS
GuidoLabel frm00904_25 {
-label "TM Zone"
}
GuidoComboBox tm_zone {
-default D4
-display_length 4
-format none
-max_length 4
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in "BLANK_LINE" Y X Z 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
}
}
GuidoPanel northing_panel {
-layout BoxLayout Y_AXIS
GuidoLabel frm00904_26 {
-label Northing
}
GuidoComboBox northing {
-default D5
-display_length 4
-format none
-max_length 4
-next_focus easting
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
}
GuidoPanel Easting_panel {
-layout BoxLayout Y_AXIS
GuidoLabel frm00904_27 {
-label Easting
}
GuidoComboBox easting {
-default D6
-display_length 4
-format none
-max_length 4
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
}
}
GuidoFiller filler_height_3 {
-height 1
}
GuidoPanel zone_panel {
-layout CentreLineLayout
GuidoCheckBox set_zone_val {
-default true
-label "Specify Zone Value"
-selected_value Y
-tip "00905_TIP_018"
-unselected_value N
}
GuidoField zone_val {
-display_length 5
-format none
-label "Zone Value"
-max_length 5
-tip "00905_TIP_018"
}
}
GuidoFiller filler_height_4 {
-height 0.5
}
GuidoLabel Output_labels {
-font_style bold
-label "Output Fields"
}
GuidoPanel frm00904_77 {
-layout BoxLayout X_AXIS
GuidoPanel lat_long_label_panel {
-layout BoxLayout Y_AXIS
GuidoFiller filler_height_5 {
-width 4
-height 1
}
GuidoLabel lat_label {
-label Lat
-height 1
}
GuidoLabel long_label {
-label Long
-height 1
}
}
GuidoPanel frm00904_63 {
-layout BoxLayout Y_AXIS
-width 4
GuidoLabel deg_label {
-label "STR_DEG"
-height 1
}
GuidoComboBox lat_deg {
-default Y
-display_length 4
-format none
-height 1
-max_length 4
-next_focus lat_min
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
GuidoComboBox lng_deg {
-default D1
-display_length 4
-format none
-height 1
-max_length 4
-next_focus lng_min
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
}
GuidoPanel Minutes_panel {
-layout BoxLayout Y_AXIS
-width 4
GuidoLabel min_label {
-label Min
-height 1
}
GuidoComboBox lat_min {
-default X
-display_length 4
-format none
-height 1
-max_length 4
-next_focus lat_sec
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
GuidoComboBox lng_min {
-default D2
-display_length 4
-format none
-height 1
-max_length 4
-next_focus lng_sec
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
}
GuidoPanel seconds_panel {
-layout BoxLayout Y_AXIS
-width 4
GuidoLabel sec_label {
-label Sec
-height 1
}
GuidoComboBox lat_sec {
-default Z
-display_length 4
-format none
-height 1
-max_length 4
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
GuidoComboBox lng_sec {
-default D3
-display_length 4
-format none
-height 1
-max_length 4
-null false
-tip "The fields used for each point to specify latitude, longitude, and TM coordiantes must be selected."
-value_in Y X Z 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
}
}
}
}
}
