proc getDatabaseHandle {} {
set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
return [GuidoGetParamBufferValue $buffer DatabaseHandle]
}
set databaseHandle [getDatabaseHandle]
GuidoForm frm00511 {
-default_buttons
-label "Dip and Dip Direction Field Names"
-tip 00511_TIP_0
GuidoLabel l1 {
-label "Table"
}
GuidoLabel tablename {
-font_style bold
}
GuidoTableFieldBrowser dipfield {
-display_length 20
-table_handle [$tablename getCurrentValue]
-database_handle $databaseHandle
-format none
-label "Dip Field Name"
-max_length 20
-null false
-translate none
}
GuidoTableFieldBrowser bearfield {
-display_length 20
-table_handle [$tablename getCurrentValue]
-database_handle $databaseHandle
-format none
-label "Dip Direction Field Name"
-max_length 20
-translate none
-null false
}
$dipfield updateBrowserList
$bearfield updateBrowserList
}
