GuidoForm recall_exp_vg_form {
-default_buttons
-help_id 920
-label "Recall a Set of Experimental Variograms"
-layout BoxLayout Y_AXIS
-tip GST_RECALL_EXP_VG_FORM_TIP
GuidoPanel recall_exp_vg_panel {
-border etched true
-label "Enter the Name of the Experimental Variogram File to Open"
-layout CentreLineLayout
GuidoFileBrowserField exp_vg_file_name {
-display_length 32
-file_access read
-file_mask "*.evg"
-format none
-label "File name"
-max_length 256
-null false
-translate none
}
}
}
GuidoApp app "RECALL EXP VG"
set returnCode [$recall_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
