set filemenu_items {
GuidoScript scripts/menus/filenew.tcl
GuidoScript scripts/menus/s_cn_fileopen.tcl
GuidoScript scripts/menus/fileclose.tcl
GuidoScript scripts/menus/s_cn_filesave.tcl
GuidoMenuItem save_any_file {
-label "Save as"
-icon "icons/16/file_save.png"
-command server "FILE SAVE"
}
GuidoMenuItem convertFile {
-label "Convert"
-icon "icons/16/convert_files.png"
-command script scripts/convertFile.tcl
}
GuidoSeparator sep1 {
}
GuidoMenuItem export_pf {
-label "Save to Stream Control"
-icon "icons/16/export_interchange_format.png"
-command script "scripts/exportStreamFile.tcl"
}
GuidoSeparator sep1 {
}
GuidoScript scripts/menus/s_cn_import.tcl
GuidoScript scripts/menus/s_cn_export.tcl
GuidoSeparator sep1 {
}
GuidoScript scripts/menus/images.tcl
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/s_cn_fileutilities.tcl
GuidoSeparator sep4 {
}
GuidoScript scripts/menus/licence.tcl
GuidoSeparator sep5 {
}
GuidoMenuItem autoplot {
-label "Autoplot"
-icon "icons/16/autoplot.png"
-command server autoplot
}
GuidoMenuItem print {
-label "Print plot file"
-icon "icons/16/send_plot_file_to_plotter.png"
-command server "SEND PLOT FILE TO PLOTTER"
}
GuidoSeparator sep6 {
}
GuidoMenuItem exit_graphics {
-label "Reset graphics"
-icon "icons/16/exit_graphics.png"
-command server "EXIT GRAPHICS"
}
GuidoMenuItem exit {
-label "Exit"
-ui_active
-command client "EXIT FRAME"
}
}
GuidoMenu filemenu {
-label "File"
-delayed_script $filemenu_items
}
