GuidoApp check_db "CHECK DATABASE CONNECTED"
$check_db setParam "databasesession" "GeologyDatabase"
set result [$check_db invoke]
$check_db destroy
if {$result == "0"} {
GuidoForm form {
-default_buttons
-label "Off Section Drillholes Style"
-tip DB_OFFSECTION_TIP
-layout BoxLayout Y_AXIS
GuidoPanel panel {
-layout CentreLineLayout
GuidoComboBox method {
-label "Colouring method"
-max_length 20
-value_in "Default colour" "Fade" "No change"
-null false
-default "No change"
-tip DB_OFFSECTION_FADE_TIP
}
GuidoPanel panel1 {
-layout CentreLineLayout
-dependency {"[ $method getCurrentValue]" == "Default colour"}
GuidoLabel trace_colour_label {
-label "Default colour"
-dependency {"[ $method getCurrentValue]" == "Default colour"}
}
}
GuidoPanel panel2 {
-layout CentreLineLayout
-dependency {"[ $method getCurrentValue]" == "Default colour"}
GuidoColourBrowserField trace_colour {
-dependency {"[ $method getCurrentValue]" == "Default colour"}
-display_length 16
-max_length 32
-exclusive false
-default red
-tip DB_OFFSECTION_COLOUR_TIP
}
}
}
}
set databuf                      [GuidoExecServer GetOffSectionStyle {}]
$method          setCurrentValue [GuidoGetParamBufferValue $databuf "method"]
$trace_colour    setCurrentValue [GuidoGetParamBufferValue $databuf "trace_colour"]
set return_code [$form interact]
GuidoApp app "OFF SECTION DRILLHOLE STYLES"
if {$return_code == "apply"} {
$app setParam method          [$method getCurrentValue]
$app setParam colour          [$trace_colour getCurrentValue]
set return_code [$app invoke]
}
$app destroy
$form destroy
}
