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 frm11115 {
-layout BoxLayout Y_AXIS
-default_buttons
-label "Customised firing sequence"
GuidoPanel p1 {
-layout BoxLayout Y_AXIS
-border etched true
GuidoPanel p2 {
-layout CentrelineLayout
GuidoField output_layer {
-display_length 24
-label "Output layer name"
-format none
-max_length 64
-tip "11114_TIP_009"
-null false
}
GuidoComboBox use_holes_from {
-default "Active layer"
-display_length 22
-label "Use blast holes from"
-format none
-null false
-max_length 32
-tip "11114_TIP_001"
}
GuidoField input_layer {
-display_length 24
-dependency {"[ $use_holes_from getCurrentValue]" != "Active layer"}
-label "Name blast hole layer"
-format none
-max_length 64
-tip "11114_TIP_010"
-null false
}
}
GuidoPanel p3 {
-layout OverlayLayout
-border etched true
GuidoPanel p4 {
-layout CentreLineLayout
-dependency {"[ $use_holes_from getCurrentValue]" == "String file"}
GuidoFileBrowserField file_location {
-dependency {"[ $use_holes_from getCurrentValue]" == "String file"}
-label Location
-display_length 28
-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 28
-label Id
-format real_8
-max_length 16
-null false
-tip "11114_TIP_003"
-translate none
}
}
GuidoPanel p5 {
-layout CentrelineLayout
-dependency {"[ $use_holes_from getCurrentValue]" == "Database"}
GuidoColumnValueBrowser pattern_identifier {
-display_length 24
-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
}
}
}
GuidoPanel p11 {
-layout CentrelineLayout
-border etched true
GuidoField row_number {
-display_length 22
-label "Tie in line/row number"
-format integer
-low_bound 1
-max_length 32
-tip "11115_TIP_001"
-null false
}
GuidoComboBox delay_name {
-display_length 20
-label "Inter row delay"
-format none
-max_length 32
-tip "11115_TIP_002"
-null false
}
GuidoField tolerance {
-display_length 22
-label "Snap to firing line tolerance"
-format double
-low_bound 0.01
-max_length 32
-tip "11115_TIP_003"
-null false
}
}
GuidoPanel p6 {
-layout CentreLineLayout
-border etched true
-label "Cumulative surface delay settings"
GuidoCheckBox reset_rowtime {
-default false
-label "Reset cumulative delay time"
-selected_value Yes
-unselected_value No
-tip "11115_TIP_009"
}
GuidoField cumulative_delaytime {
-display_length 15
-dependency {"[ $reset_rowtime getCurrentValue]" == "Yes"}
-label "New cumulative delay time"
-format double
-low_bound 0
-max_length 32
-tip "11115_TIP_008"
-null false
}
GuidoLabel p6_2 {
-label "The current cumulative surface delay time is"
}
GuidoField current_cumulative_delaytime {
-display_length 15
-format double
-max_length 32
}
}
GuidoFiller f1 {
-height 1
}
GuidoPanel p7 {
-border etched true
-label "Blast hole selection method"
GuidoButtonGroupPanel digitise_points {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm11115_10 {
-caption "Select every blast hole collar"
-tip "11115_TIP_005"
-selected_value 1
}
GuidoRadioButton frm11115_11 {
-caption "Snap to row ends"
-tip "11115_TIP_006"
-selected_value 2
}
GuidoRadioButton frm11115_12 {
-caption "Snap to start, inflection and end points"
-tip "11115_TIP_007"
-selected_value 3
}
}
}
}
