#
# HELP: SYNOPSIS:
# HELP:     angiotux2d/menu/load
# HELP:
# HELP: DESCRIPTION:
# HELP:     Ask for a volume file and load it. Reorganize display for new
# HELP:     geometry.
#
CECHO ${$root.func.var.new("string","tmp")}
CECHO ${$root.func.var.new("string","dir")}
VARFROMPROCESS tmp eccet_openfile load ${$root.func.strings.quote($root.application.angiotux2d.datapath)}
IF ${$tmp=="."} QUIT
VIEW_SET Main
LOAD ${$root.func.strings.quote($tmp)}
IF ${$root.rc!=0} ! generic/info/show_error ${$root.rc}
CECHO ${$dir=$root.func.file.getdir($tmp)}
CECHO ${$root.application.angiotux2d.datapath=$dir}
CECHO ${$root.func.file.chdir($dir)}
CECHO ${$root.func.file.mkdir("pictures")}
! angiotux2d/default/windowinit                                                  
ECHO Load complete
