set filemenu_items {
GuidoMenuItem new_layer {
-label "New layer"
-icon "icons/16/new_layer.png"
-command server "NEW LAYER"
}
GuidoMenuItem new_gdb {
-label "New database"
-icon "icons/16/dhl_database_definition.png"
-command server "DHL DATABASE DEFINITION"
}
GuidoSeparator sep1 {
}
GuidoScript scripts/menus/x_fileopen.tcl
GuidoScript scripts/menus/x_filesave.tcl
GuidoSeparator sep2 {
}
GuidoScript scripts/menus/x_import.tcl
GuidoScript scripts/menus/x_export.tcl
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/images.tcl
GuidoSeparator sep4 {
}
GuidoScript scripts/menus/fileutilities.tcl
GuidoSeparator sep5 {
}
GuidoScript scripts/menus/licence.tcl
GuidoSeparator sep6 {
}
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 close_gdb {
-label "Close database"
-icon "icons/16/geology_database_disconnect.png"
-command server "GEOLOGY DATABASE DISCONNECT"
}
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
}
