proc initialiseForm { } {
global drillholes_file
global blocks_file
global solids_file
set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
if {[GuidoGetParamBufferValue $buffer status] == "-1"} {
$drillholes_file setInputAllowed "false"
} else {
$drillholes_file setInputAllowed "true"
}
set buffer [GuidoExecServer IsBlockModelLoaded {}]
if {[GuidoGetParamBufferValue $buffer "BlockModelLoaded"]} {
$blocks_file setInputAllowed "true"
} else {
$blocks_file setInputAllowed "false"
}
set buffer [GuidoExecServer GetNumTriobjects {}]
if {[GuidoGetParamBufferValue $buffer "NumTriobjects"] > 0} {
$solids_file setInputAllowed "true"
} else {
$solids_file setInputAllowed "false"
}
}
GuidoForm frmsaveSectionConfirm {
-default_buttons
-label "Save Section to String Files"
-tip "FRM_SAVE_SECTION_TIP"
-layout CentreLineLayout
-action initial {[initialiseForm]}
GuidoFileBrowserField solids_file {
-display_length 26
-file_mask *.str
-format none
-label "PLANES_LABEL_SAVE_SOLIDS_SECTION_STRINGS_TO"
-max_length 252
-tip "FRM_SAVESECTIONCONFIRM_1"
-translate lower
}
GuidoFileBrowserField solids_styles {
-dependency {[$solids_file getCurrentValue] > ""}
-display_length 26
-file_mask *.ssi
-format none
-label "PLANES_LABEL_SAVE_SOLIDS_SECTION_STYLES_TO"
-max_length 252
-tip "FRM_SAVESECTIONCONFIRM_2"
-translate lower
}
GuidoFiller f1 {
-height 0.5
}
GuidoFiller f2 {
-height 0.5
}
GuidoFileBrowserField blocks_file {
-display_length 26
-file_mask *.str
-format none
-label "PLANES_LABEL_SAVE_BLOCK_MODEL_SECTION_STRINGS_TO"
-max_length 252
-tip "FRM_SAVESECTIONCONFIRM_3"
-translate lower
}
GuidoFileBrowserField blocks_styles {
-dependency {[$blocks_file getCurrentValue] > ""}
-display_length 26
-file_mask *.ssi
-format none
-label "PLANES_LABEL_SAVE_BLOCK_MODEL_SECTION_STYLES_TO"
-max_length 252
-tip "FRM_SAVESECTIONCONFIRM_4"
-translate lower
}
GuidoFiller f1 {
-height 0.5
}
GuidoFiller f2 {
-height 0.5
}
GuidoFileBrowserField drillholes_file {
-display_length 26
-file_mask *.str
-format none
-label "PLANES_LABEL_SAVE_DRILLHOLE_SECTION_STRINGS_TO"
-max_length 252
-tip "FRM_SAVESECTIONCONFIRM_5"
-translate lower
}
GuidoFileBrowserField drillholes_styles {
-dependency {[$drillholes_file getCurrentValue] > ""}
-display_length 26
-file_mask *.ssi
-format none
-label "PLANES_LABEL_SAVE_DRILLHOLE_SECTION_STYLES_TO"
-max_length 252
-tip "FRM_SAVESECTIONCONFIRM_6"
-translate lower
}
}
