GuidoScript scripts/geologyutilities.tcl
GuidoForm frm77004 {
-default_buttons
-label "Read Composites from Database"
-tip DB_READ_COMPOSITES_FORM_TIP
-layout CentreLineLayout
GuidoDatabaseTableBrowser composite_table {
-display_length 10
-max_length 18
-label "Composite table"
-database dbHandle
-table_types "interval"
-null false
-exclusive true
-tip DB_READ_COMPOSITES_TABLE_TIP
-default ""
-action focusGained {[
updateTableName $composite_field $composite_table
]}
}
GuidoTableFieldBrowser composite_field {
-validation {[validateTableFieldPair $composite_table $composite_field]}
-display_length 10
-format none
-label "Composite field"
-max_length 18
-database dbHandle
-translate none
-action focusGained {[
updateTableName $composite_field $composite_table
]}
-validation {[validateTableFieldPair $composite_table $composite_field]}
-tip DB_READ_COMPOSITES_FIELD_TIP
-null false
}
GuidoCheckBox load_null_intervals {
-label "Load and display null intervals"
-default true
-selected_value true
-unselected_value false
-tip DB_READ_NULL_COMPOSITES_TIP
}
GuidoPanel selection_panel {
-font_style bold
-label "Zone selection method"
-layout BoxLayout X_AXIS
-tip DB_COMPOSITE_BY_GRADE_SELECTION_TIP
GuidoButtonGroupPanel selection {
-layout BoxLayout X_AXIS
GuidoRadioButton no_selection {
-caption "No Selection"
-selected_value "NO SELECTION"
}
GuidoRadioButton multiple_zones {
-caption "Multiple Zones"
-selected_value "MULTIPLE ZONES"
}
GuidoRadioButton zone_from_to {
-caption "Zone From To"
-selected_value "ZONE FROM TO"
}
}
}
set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
set dbHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
$composite_table updateBrowserList
}
