set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
set status [ GuidoGetParamBufferValue $buffer status ]
set dbHandle "0"
if {$status >= 0} {
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
}
GuidoForm BlastSolid {
-default_buttons
-help_id 1587
-label "Blast Solid"
-tip "BLASTSOLID_TIP_001"
-defaults_management true
GuidoPanel mainPanel {
-border etched true
-layout BoxLayout Y_AXIS
GuidoPanel mainOptionsPanel {
-layout BoxLayout Y_AXIS
GuidoPanel topPanel {
-layout BoxLayout X_AXIS
GuidoPanel leftPanel {
-layout BoxLayout Y_AXIS
GuidoPanel outputLayerLabelPanel {
-layout FlowLayout RIGHT
GuidoLabel outputLayerLabel {
-label "Output layer"
-height 1
}
}
GuidoPanel blastPatternLabelPanel {
-layout FlowLayout RIGHT
GuidoLabel blastPatternLabel {
-label "Blast pattern"
-height 1
}
}
GuidoPanel rmcLabelPanel {
-layout FlowLayout RIGHT
GuidoLabel rmcLabel {
-label "Rock mass classification"
-height 1
}
}
}
GuidoPanel rightPanel {
-layout BoxLayout Y_AXIS
GuidoPanel outputLayerPanel {
-layout FlowLayout LEFT
GuidoField outputLayer {
-display_length 20
-format none
-max_length "APP_MAX_LAYER_NAME_LENGTH"
-null false
-tip "BLASTSOLID_TIP_002"
-translate none
}
}
GuidoPanel blastPatternPanel {
-layout FlowLayout LEFT
GuidoColumnValueBrowser blastPattern {
-display_length 10
-format none
-max_length 32
-null false
-exclusive false
-sorted_list true
-distinct true
-database_handle $dbHandle
-table_handle collar
-column_handle blast_pattern
-tip "BLASTSOLID_TIP_003"
}
$blastPattern updateBrowserList
}
GuidoPanel rmcPanel {
-layout FlowLayout LEFT
GuidoComboBox rmc {
-display_length 10
-format none
-max_length "APP_MAX_LAYER_NAME_LENGTH"
-null true
-translate none
-tip "BLASTSOLID_TIP_004"
-translate none
-sorted_list true
-exclusive true
}
}
}
}
}
GuidoPanel collarPanel {
-label "Top surface"
-border etched true
GuidoComboBox collarElevation {
-default "DTM file"
-display_length 5
-label "Type"
-format none
-max_length 14
-null false
-tip "BLASTSOLID_TIP_006"
-value_in "Fixed" "DTM layer" "DTM file"
}
GuidoPanel collarOptionsPanel {
-layout BoxLayout Y_AXIS
GuidoPanel collarOverlayPanel {
-layout OverlayLayout
GuidoPanel collarFixedLayerPanel {
-layout FlowLayout LEFT
-dependency {"[$collarElevation getCurrentValue]" == "Fixed"}
GuidoCheckBox collarUseBoundaryElevation {
-label "Use boundary elevation?"
-selected_value "Y"
-unselected_value "N"
-default "N"
-tip "BLASTSOLID_TIP_008"
}
GuidoField collarFixedElevation {
-dependency {"[$collarUseBoundaryElevation getCurrentValue]" == "N"}
-display_length 8
-format double
-label "Elevation"
-max_length 16
-null false
-tip "BLASTSOLID_TIP_006"
-translate upper
}
}
GuidoPanel collarDtmLayerPanel {
-layout FlowLayout LEFT
-dependency {"[$collarElevation getCurrentValue]" == "DTM layer"}
GuidoComboBox collarDtmLayer {
-display_length 20
-format none
-max_length "APP_MAX_LAYER_NAME_LENGTH"
-null false
-tip "BLASTSOLID_TIP_006"
-translate none
-label "DTM layer"
}
}
GuidoPanel collarDtmFilePanel {
-layout FlowLayout LEFT
-dependency {"[$collarElevation getCurrentValue]" == "DTM file"}
GuidoFileBrowserField collarDtmFileLocation {
-display_length 20
-file_mask *.dtm
-format none
-max_length "FIO_MAX_LOCATION_LENGTH"
-null false
-tip "BLASTSOLID_TIP_006"
-translate none
-label "DTM file"
}
}
}
}
}
GuidoPanel toePanel {
-label "Bottom surface"
-border etched true
GuidoComboBox toeElevation {
-default "DTM file"
-display_length 5
-label "Type"
-format none
-max_length 14
-null false
-tip "BLASTSOLID_TIP_007"
-value_in "Fixed" "DTM layer" "DTM file"
}
GuidoPanel toeOptionsPanel {
-layout BoxLayout Y_AXIS
GuidoPanel toeOverlayPanel {
-layout OverlayLayout
GuidoPanel toeFixedLayerPanel {
-layout FlowLayout LEFT
-dependency {"[$toeElevation getCurrentValue]" == "Fixed"}
GuidoField toeFixedElevation {
-display_length 8
-format double
-label "Elevation"
-max_length 16
-null false
-tip "BLASTSOLID_TIP_007"
-translate upper
}
}
GuidoPanel toeDtmLayerPanel {
-layout FlowLayout LEFT
-dependency {"[$toeElevation getCurrentValue]" == "DTM layer"}
GuidoComboBox toeDtmLayer {
-display_length 20
-format none
-max_length "APP_MAX_LAYER_NAME_LENGTH"
-null false
-tip "BLASTSOLID_TIP_007"
-translate none
-label "DTM layer"
}
}
GuidoPanel toeDtmFilePanel {
-layout FlowLayout LEFT
-dependency {"[$toeElevation getCurrentValue]" == "DTM file"}
GuidoFileBrowserField toeDtmFileLocation {
-display_length 20
-file_mask *.dtm
-format none
-max_length "FIO_MAX_LOCATION_LENGTH"
-null false
-tip "BLASTSOLID_TIP_007"
-translate none
-label "DTM file"
}
}
}
}
}
GuidoPanel freeFacePanel {
GuidoCheckBox trimBlastSolid {
-label "Trim blast solid to a free face?"
-selected_value "Y"
-unselected_value "N"
-default "N"
-tip "BLASTSOLID_TIP_005"
}
}
}
}
