proc DepProc {function panel} {
set function [$function getCurrentValue]
if {$function == "GIF DUMP STATISTICS" ||
$function == "GIF DUMP STABILITY" ||
$function == "GIF DUMP VARIOGRAM" ||
$function == "LEGEND SNAPSHOT"} {
return 0
} else {
return 1
}
}
GuidoForm frm00321 {
-default_buttons
-help_id 594
-layout CentreLineLayout
-label "Image File Dump"
-tip "00321_TIP_001"
GuidoLabel l2 {
-label Function
}
GuidoLabel function {
-input false
}
GuidoFiller f1 {
-height 1
-width 1
}
GuidoFiller f2 {
-height 1
-width 1
}
GuidoLabel l0 {
-label "Define file type to create"
}
GuidoButtonGroupPanel file_type {
-layout BoxLayout X_AXIS
-tip "VIEWSTRING_IMAGETYPE_TIP"
GuidoRadioButton frm00321_8 {
-caption gif
-default true
-selected_value gif
}
GuidoRadioButton frm00321_9 {
-caption png
-selected_value png
}
}
GuidoFileBrowserField filename {
-label Filename
-display_length 20
-extension false
-file_mask "*.gif *.png"
-format none
-max_length 256
-null false
-tip "00321_TIP_003"
-translate lower
-file_access write
}
GuidoFiller f0 {
-height 1
-width 1
}
GuidoLabel frm00321_4 {
-label "(no extension required)"
}
GuidoLabel l1 {
-dependency {[DepProc $function $l1]}
-label "Area to save"
}
GuidoButtonGroupPanel copy_type {
-layout BoxLayout X_AXIS
-tip "Either the current graphics workspace, or the active viewport can be saved to the output image."
-legacy_action
-dependency {[DepProc $function $copy_type]}
GuidoRadioButton frm00321_13 {
-caption workspace
-selected_value workspace
}
GuidoRadioButton frm00321_14 {
-caption viewport
-default true
-selected_value viewport
}
}
GuidoField xres {
-display_length 5
-format integer
-high_bound 10000
-label "X resolution"
-low_bound 1
-max_length 5
-null false
-tip "VIEWSTRING_XRES_TIP"
-translate none
-dependency {"[ $function getCurrentValue]" != "LEGEND SNAPSHOT"}
}
GuidoField yres {
-display_length 5
-format integer
-high_bound 10000
-label "Y resolution"
-low_bound 1
-max_length 5
-null false
-tip "VIEWSTRING_XRES_TIP"
-translate none
-dependency {"[ $function getCurrentValue]" != "LEGEND SNAPSHOT"}
}
}
