set rdfilemenu_items {
GuidoMenuItem item1 {
-label "Open string file of drill holes"
-icon "icons/16/recall_ring.png"
-command server "RECALL RING"
}
GuidoSeparator sep1 {
}
GuidoMenuItem item2 {
-label "Save string file of drill holes"
-icon "icons/16/save_ring.png"
-command server "SAVE RING"
}
GuidoMenuItem item3 {
-label "Save stopes and openings"
-icon "icons/16/save_section.png"
-command server "SAVE SECTION"
}
GuidoMenuItem item4 {
-label "Save ring and sections for plotting"
-icon "icons/16/save_rd_plot.png"
-command server "SAVE RD PLOT"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item5 {
-label "Save ring design settings"
-icon "icons/16/save_ring_defaults.png"
-command server "SAVE RING DEFAULTS"
}
GuidoSeparator sep3 {
}
GuidoMenuItem item6 {
-label "Open database"
-icon "icons/16/ring_database_connect.png"
-command server "RING DATABASE CONNECT"
}
GuidoMenuItem item7 {
-label "Close database"
-icon "icons/16/ring_database_disconnect.png"
-command server "RING DATABASE DISCONNECT"
}
GuidoMenuItem item8 {
-label "Create new database"
-icon "icons/16/ring_database_definition.png"
-command server "RING DATABASE DEFINITION"
}
}
GuidoMenu rdfilemenu {
-label "File"
-delayed_script $rdfilemenu_items
}
