set filemenu_items {
GuidoScript scripts/menus/q_filenew.tcl
GuidoScript scripts/menus/q_fileopen.tcl
GuidoScript scripts/menus/q_fileclose.tcl
GuidoScript scripts/menus/q_filesave.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/q_import.tcl
GuidoScript scripts/menus/q_export.tcl
GuidoSeparator sep2 {
}
GuidoScript scripts/menus/images.tcl
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/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 files"
-icon "icons/16/plot_driver.png"
-command server "PLOT DRIVER"
}
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
}
