GuidoScript scripts/geologyutilities.tcl
proc getDatabaseHandle {} {
set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
return [GuidoGetParamBufferValue $buffer DatabaseHandle]
}
proc updateFieldList { table wfield} {
upvar $wfield weighting_field
if {[info exists weighting_field]} {
$weighting_field setTableHandle [$table getCurrentValue]
$weighting_field updateBrowserList
}
}
GuidoForm frm00073 {
-default_buttons
-help_id 142
-label "Composite by elevation"
-layout BoxLayout Y_AXIS
-tip "00073_TIP_001"
GuidoPanel frm00073_39 {
-border etched true
-label "Define the composite files to create"
-layout CentreLineLayout
GuidoFileBrowserField location {
-display_length 26
-file_mask *.str
-format none
-label Location
-max_length 252
-tip "00073_TIP_002"
-translate lower
}
GuidoField range {
-display_length 26
-format range
-label "Elevation range"
-max_length 32
-null false
-tip "00073_TIP_002"
-translate none
}
}
GuidoFiller frm00073_40 {
-height 1
}
GuidoPanel frm00073_41 {
-border etched true
-label "Define the elevation extent and type"
-layout CentreLineLayout
GuidoField extent {
-display_length 16
-format double
-label Extent
-max_length 16
-null false
-tip "00073_TIP_004"
-translate upper
}
}
GuidoPanel frm00073_20 {
-border etched true
-label Type
-layout BoxLayout Y_AXIS
-tip "00073_TIP_004"
GuidoButtonGroupPanel type {
GuidoRadioButton frm00073_17 {
-caption "below the elevation level"
-selected_value -
}
GuidoRadioButton frm00073_18 {
-caption "above the elevation level"
-selected_value +
}
GuidoRadioButton frm00073_19 {
-caption "either side of the elevation level"
-selected_value +-
}
}
}
GuidoFiller frm00073_42 {
-height 1
}
GuidoPanel frm00073_43 {
-layout CentreLineLayout
GuidoField class_range {
-display_length 16
-format range
-label "Define the output class range"
-max_length 32
-null false
-tip "00073_TIP_006"
-translate none
}
GuidoField min_percentage {
-display_length 4
-format double
-high_bound 100
-label "Minimum acceptable % of interval"
-low_bound .1
-max_length 3
-null false
-tip "00073_TIP_007"
-translate upper
}
GuidoField channel_dip {
-display_length 4
-format double
-high_bound 90
-label "Threshold dip for channels"
-low_bound 0
-max_length 4
-null false
-tip "00073_TIP_008"
-translate upper
}
GuidoCheckBox dilution {
-default false
-label "Dilute negative samples"
-selected_value Y
-tip "00073_TIP_009"
-unselected_value N
}
set databaseHandle [getDatabaseHandle]
GuidoDatabaseTableBrowser table {
-label "Define the Interval table"
-database_handle $databaseHandle
-table_types interval
-translate lower
-display_length 16
-max_length 32
-null false
-format none
-tip "00073_TIP_010"
}
$table updateBrowserList
}
GuidoFiller frm00073_44 {
-height 1
}
GuidoPanel frm00073_47 {
-layout BoxLayout X_AXIS
GuidoLabel frm00073_28 {
-label "Optional weighting fields"
}
GuidoFiller frm00073_48 {
-width 1
}
GuidoScrollPane frm00073_36 {
GuidoTable weighting_fields {
-instances 1 1 5
-interactive true
GuidoTableFieldBrowser weighting_field {
-validation {[validateTableFieldPair $table $weighting_field]}
-database_handle $databaseHandle
-table_handle [$table getCurrentValue]
-field_types "optional"
-display_length 10
-format none
-label "Field Name"
-max_length 18
-tip "DB_COMPOSITE_OPT_WGT_FLD_TIP"
-translate lower
}
$weighting_field updateBrowserList
$table setActionCallback valueChanged {[updateFieldList $table weighting_field]}
GuidoField weighting_default {
-default 1
-display_length 10
-format none
-label Default
-max_length 10
-null false
-tip "DB_COMPOSITE_OPT_WGT_DEFAULT_TIP"
-translate none
}
}
}
GuidoFiller frm00073_48 {
-width 1
}
}
}
