set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
GuidoForm BlastLoadFromDatabase {
-default_buttons
-label "Blast Load From Database"
-help_id 1595
GuidoPanel mainPanel {
-layout CentreLineLayout VERTICAL
GuidoColumnValueBrowser pattern {
-display_length 20
-format string
-label "Hole pattern ID"
-max_length 40
-null false
-tip "BLAST_LOAD_FROM_DATABASE_TIP"
-sorted_list true
-database_handle $dbHandle
-table_handle collar
-column_handle blast_pattern
-exclusive true
-distinct true
}
$pattern updateBrowserList
}
}
