proc getDatabaseHandle {} {
set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
return [GuidoGetParamBufferValue $buffer DatabaseHandle]
}
proc updateTableName {field table} {
if {[$field getTableHandle] != [$table getCurrentValue]} {
$field setTableHandle [$table getCurrentValue]
$field updateBrowserList
}
return 1
}
GuidoForm frm00613 {
-default_buttons
-help_id 204
-label "Define the Geology Zones"
-layout BoxLayout Y_AXIS
-tip "00613_TIP_001"
GuidoScrollPane frm00613_13 {
-height 7
GuidoTable optional_tables {
-instances 1 1 10
-interactive true
GuidoComboBox table_name {
-display_length 6
-format none
-no_mlt
-label TABLE
-max_length 18
-tip "Enter the names of the interval tables containing the geology codes that you want to select by."
-action valueChanged {[updateTableName $field_name $table_name]}
}
set dbHandle [getDatabaseHandle]
GuidoTableFieldBrowser field_name {
-display_length 9
-format none
-label FIELD
-max_length 18
-tip "Enter the names of the fields containing the geology codes that you want to select by."
-translate none
-database dbHandle
}
GuidoField specification {
-display_length 29
-format none
-label SPECIFICATION
-max_length 100
-tip "00613_TIP_004"
-translate none
}
}
}
GuidoFiller frm00613_15 {
-height 1
}
GuidoPanel frm00613_18 {
-layout BoxLayout X_AXIS
GuidoField int_from {
-display_length 8
-format none
-label "Intercept from"
-max_length 8
-next_focus int_to
-null false
-tip "00613_TIP_005"
-translate none
}
GuidoFiller frm00613_19 {
-width 1
}
GuidoField int_to {
-display_length 8
-format none
-label "Intercept to"
-max_length 15
-null false
-tip "00613_TIP_006"
-translate none
}
GuidoFiller frm00613_19 {
-width 1
}
}
$field_name setActionCallback focusGained {[ updateTableName $field_name $table_name ]}
}
