GuidoApp app "SAVE VG MODEL"
$app invoke
$app destroy
GuidoForm save_vg_form {
-default_buttons
-help_id 1119
-label "Save Variogram"
-layout BoxLayout Y_AXIS
-tip GST_SAVE_VG_FORM_TIP
GuidoPanel save_exp_vg_panel {
-border etched true
-label "Enter the Name of the Variogram Files to Save"
-layout CentreLineLayout
GuidoFileBrowserField exp_vg_file_name {
-display_length 32
-file_access write
-file_mask "*.evg"
-format none
-label "Experimental variogram"
-max_length 256
-null false
-translate none
}
GuidoFileBrowserField vg_model_file_name {
-display_length 32
-file_access write
-file_mask "*.vgm"
-format none
-label "Variogram model"
-max_length 256
-null false
-translate none
}
}
}
set returnCode [$save_vg_form interact]
if {$returnCode == "apply"} {
GuidoApp app "SAVE EXP VG"
$app setParam exp_vg_name [$exp_vg_file_name getCurrentValue]
$app invoke
$app destroy
GuidoApp app "SAVE VG MODEL"
$app setParam vg_model_name [$vg_model_file_name getCurrentValue]
$app invoke
$app destroy
}
$save_vg_form destroy
