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 frm11114 {
-default_buttons
-label "Generate firing sequence"
GuidoPanel frm11114_10 {
-layout BoxLayout Y_AXIS
GuidoPanel frm11114_20 {
-border etched true
-layout CentrelineLayout
GuidoComboBox template_name {
-legacy_focus_gained_action
-display_length 12
-label "Firing template name"
-format none
-null false
-max_length 32
-tip "Select the firing template name."
}
GuidoField tolerance {
-display_length 15
-label "Snap to firing line tolerance"
-format double
-low_bound 0.005
-max_length 32
-tip "11115_TIP_003"
-null false
}
GuidoField output_layer {
-display_length 15
-label "Output layer name"
-format none
-max_length 64
-tip "11114_TIP_009"
-null false
}
}
GuidoFiller f1 {
-height 1
}
GuidoPanel firingtemplate {
-layout CentrelineLayout
GuidoLabel label_name1 {
-label "Firing pattern"
}
GuidoField pattern {
-display_length 10
-format none
-max_length 32
-input false
-tip "This is the firing pattern type."
}
GuidoLabel label_name2 {
-label "Number of rows"
}
GuidoField no_of_rows {
-display_length 5
-format integer
-max_length 32
-input false
-tip "Number of rows a single surface delay would apply to."
}
GuidoLabel label_name3 {
-label "Surface delay"
}
GuidoField surface_delay {
-display_length 20
-format none
-max_length 64
-input false
-tip "This is the surface delay to be applied between rows or set of rows."
}
}
GuidoFiller f1 {
-height 1
}
GuidoPanel p1 {
-layout CentrelineLayout
GuidoComboBox use_holes_from {
-default "Active layer"
-display_length 16
-label "Use blast holes from"
-format none
-null false
-max_length 32
-tip "11114_TIP_001"
}
GuidoField input_layer {
-dependency {"[ $use_holes_from getCurrentValue]" != "Active layer"}
-display_length 16
-label "Name blast hole layer"
-format none
-max_length 64
-tip "11114_TIP_010"
-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 "11114_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 "11114_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 "11114_TIP_004"
}
$pattern_identifier updateBrowserList
}
}
}
}
