GuidoForm save_exp_vg_form {
-default_buttons
-help_id 1119
-label "Save a Set of Experimental Variograms to a File"
-layout BoxLayout Y_AXIS
-tip GST_SAVE_EXP_VG_FORM_TIP
GuidoPanel save_exp_vg_panel {
-border etched true
-label "Enter the Name of the Experimental Variogram File to Save"
-layout CentreLineLayout
GuidoFileBrowserField exp_vg_file_name {
-display_length 32
-file_access write
-file_mask "*.evg"
-format none
-label "File name"
-max_length 256
-null false
-translate none
}
}
}
GuidoApp app "SAVE EXP VG"
set returnCode [$save_exp_vg_form interact]
if {$returnCode == "apply"} {
$app setParam exp_vg_name [$exp_vg_file_name getCurrentValue]
set returnCode [$app invoke]
}
$save_exp_vg_form destroy
$app destroy
