GuidoScript scripts/dtmutilities.tcl
global dtm_loc
global obj_id
global trisol_id
global obj_name
global tri_name
GuidoForm frm05000 {
-default_buttons
-label "Load DTM surface"
-layout CentreLineLayout VERTICAL LEFT
-action final {[destroyTemporaryProcessedDTMSwa]}
-tip 05000_TIP_0
GuidoLabel frm05000_2 {
-label Layer
}
GuidoLabel layer_name {
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoFileBrowserField dtm_loc {
-display_length 26
-extension false
-action focusGained {[fill_triobject_trisolation_details $dtm_loc $obj_id $obj_name $trisol_id $tri_name]}
-file_mask *.dtm
-format none
-label Location
-max_length 252
-tip 05000_TIP_1
-translate lower
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel obj_label {
-label "Object ID"
}
GuidoPanel frm00201_20 {
-layout BoxLayout X_AXIS
GuidoComboBox obj_id {
-display_length 6
-exclusive false
-high_bound 32000
-low_bound 1
-default 1
-format none
-max_length 6
-translate upper
-tip "04949_TIP_1"
-action valueChanged {[fill_triobject_details $dtm_loc $obj_id $obj_name $trisol_id $tri_name "false" "false"]}
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel obj_name {}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoLabel trisol_label {
-label "Trisolation ID"
}
GuidoPanel frm00201_21 {
-layout BoxLayout X_AXIS
GuidoComboBox trisol_id {
-display_length 6
-exclusive false
-high_bound 32000
-low_bound 1
-default 1
-format none
-max_length 6
-translate upper
-tip "04949_TIP_2"
-action valueChanged {[fill_trisolation_details $dtm_loc $obj_id $trisol_id $tri_name "true" "false"]}
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel tri_name {}
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoPanel frm00201_21 {
-layout CentreLineLayout VERTICAL LEFT
GuidoCheckBox display_dtm {
-default false
-selected_value Y
-tip 05000_TIP_2
-unselected_value N
}
GuidoLabel display_dtm_label {
-label "Display DTM"
}
}
}
