set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
set status [ GuidoGetParamBufferValue $buffer status ]
if {$status >= 0} {
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
} else {
set dbHandle "0"
}
GuidoForm frm11117 {
-default_buttons
-help_id 1588
-label "Blast firing simulation"
GuidoPanel mainPanel {
-layout CentrelineLayout
-layout BoxLayout Y_AXIS
GuidoPanel p1 {
-layout CentrelineLayout
GuidoComboBox use_holes_from {
-display_length 16
-label "Use blast holes from"
-format none
-null false
-max_length 32
-tip "11117_TIP_001"
}
GuidoField input_layer {
-dependency {"[ $use_holes_from getCurrentValue]" != "Active layer"}
-display_length 19
-label "Input layer name"
-format none
-max_length "APP_MAX_LAYER_NAME_LENGTH"
-tip "11117_TIP_005"
-null false
}
}
GuidoPanel p2 {
-layout OverlayLayout
-border etched true
GuidoPanel p3 {
-layout CentreLineLayout
-dependency {"[ $use_holes_from getCurrentValue]" == "String file"}
GuidoFileBrowserField file_location {
-dependency {"[ $use_holes_from getCurrentValue]" == "String file"}
-label Location
-display_length 23
-file_mask *.str
-format none
-link file_id
-max_length "FIO_MAX_LOCATION_LENGTH"
-next_focus file_iD
-null false
-tip "11117_TIP_002"
-translate none
}
GuidoField file_id {
-dependency {"[ $use_holes_from getCurrentValue]" == "String file"}
-display_length 23
-label Id
-format real_8
-max_length 16
-null false
-tip "11117_TIP_003"
-translate none
}
}
GuidoPanel p4 {
-layout CentrelineLayout
-dependency {"[ $use_holes_from getCurrentValue]" == "Database"}
GuidoColumnValueBrowser pattern_identifier {
-display_length 20
-format none
-label "Pattern identifier"
-max_length 32
-null false
-exclusive true
-sorted_list true
-distinct true
-dependency {$dbHandle != "0"}
-database_handle $dbHandle
-table_handle collar
-column_handle blast_pattern
-tip "11117_TIP_004"
}
$pattern_identifier updateBrowserList
}
}
GuidoPanel p5 {
-layout CentrelineLayout
GuidoField animationSpeed {
-display_length 18
-label "Animation speed factor"
-format double
-low_bound 0.005
-max_length 32
-tip "11117_TIP_006"
-null false
}
GuidoCheckBox rescale {
-default Y
-label "Rescale display"
-tip "11117_TIP_007"
-selected_value Y
-unselected_value N
}
}
}
}
