GuidoScript scripts/dtmutilities.tcl
global dtmloc
global obj_id
global trisol_id
global obj_name
global trisol_name
GuidoForm frm00201 {
-default_buttons
-label "Create boundary string of a DTM"
-action initial {[fill_triobject_trisolation_details $dtmloc $obj_id $obj_name $trisol_id $trisol_name]}
-layout BoxLayout Y_AXIS
-action final {[destroyTemporaryProcessedDTMSwa]}
-tip 00201_TIP_0
GuidoPanel frm00201_11 {
-border etched true
-label "Define the DTM"
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField dtmloc {
-display_length 16
-extension false
-action valueChanged {[fill_triobject_trisolation_details $dtmloc $obj_id $obj_name $trisol_id $trisol_name]}
-file_mask *.dtm
-format none
-null false
-label Location
-max_length FIO_MAX_LOCATION_LENGTH
-tip 00201_TIP_1
-translate none
}
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
-action valueChanged {[fill_triobject_details $dtmloc $obj_id $obj_name $trisol_id $trisol_name "false" "false"]}
-exclusive false
-high_bound 32000
-low_bound 1
-format integer
-max_length 6
-tip 00201_TIP_2
-translate none
}
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
-action valueChanged {[fill_trisolation_details $dtmloc $obj_id $trisol_id $trisol_name "true" "false"]}
-exclusive false
-high_bound 32000
-low_bound 1
-format integer
-max_length 6
-tip 00201_TIP_3
-translate none
}
GuidoFiller filler {
-width 0.2
}
GuidoLabel trisol_name {
}
}
}
GuidoFiller frm00201_12 {
-height 0.3
}
GuidoPanel frm00201_13 {
-border etched true
-label "Define file to create"
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField bdyloc {
-display_length 16
-file_access write
-file_mask *.str
-format none
-label Location
-null false
-tip 00201_TIP_4
-max_length 252
-translate none
-extension false
}
GuidoFiller filler {
-height 0.05
}
GuidoFiller filler {
-height 0.05
}
GuidoField istr {
-display_length 16
-format integer
-high_bound 32000
-label "String number"
-low_bound 1
-max_length 5
-null false
-tip 00201_TIP_5
-translate none
}
}
}
