set rd_ringdesign_items {
GuidoMenuItem init_ring {
-label "Start ring design"
-icon "icons/16/init_ring.png"
-command server "init ring"
}
GuidoSeparator separator1 {
}
GuidoMenuItem recall_sections {
-label "Open section files of stopes and openings"
-icon "icons/16/recall_sections.png"
-command server "recall sections"
}
GuidoScript scripts/menus/rd_ringdesign_edit.tcl
GuidoMenuItem save_section {
-label "Save section files of stopes and openings"
-icon "icons/16/save_section.png"
-command server "save section"
}
GuidoSeparator separator2 {
}
GuidoMenuItem load_next_section {
-label "View next section"
-icon "icons/16/load_next_section.png"
-command server "load next section"
}
GuidoMenuItem load_prior_section {
-label "View previous section"
-icon "icons/16/load_prior_section.png"
-command server "load prior section"
}
GuidoSeparator separator3 {
}
GuidoMenuItem recall_ring {
-label "Recall holes"
-icon "icons/16/recall_ring.png"
-command server "recall ring"
}
GuidoMenuItem save_ring {
-label "Save holes"
-icon "icons/16/save_ring.png"
-command server "save ring"
}
GuidoMenuItem save_rd_plot {
-label "Save holes and sections for plotting"
-icon "icons/16/save_rd_plot.png"
-command server "save rd plot"
}
GuidoSeparator separator4 {
}
GuidoMenuItem rd_map_db {
-label "Map the ring design database"
-icon "icons/16/db_mapper.png"
-command script scripts/DBMapper.tcl "ringdes_db_mapper.tcl ddb"
}
GuidoMenuItem rd_edit_ddb {
-label "Edit ring design database definition"
-command script scripts/DDBEditor.tcl "ringdes_db_mapper.tcl ddb"
}
GuidoMenuItem ring_database_connect {
-label "Open ring design database"
-icon "icons/16/ring_database_connect.png"
-command server "ring database connect"
}
GuidoMenuItem ring_database_disconnect {
-label "Close ring design database"
-icon "icons/16/ring_database_disconnect.png"
-command server "ring database disconnect"
}
GuidoMenuItem ring_database_definition {
-label "Create ring design database"
-icon "icons/16/ring_database_definition.png"
-command server "ring database definition"
}
GuidoSeparator separator5 {
}
GuidoMenuItem save_ring_defaults {
-label "Save ring design settings"
-icon "icons/16/save_ring_defaults.png"
-command server "save ring defaults"
}
GuidoMenuItem exit_ring {
-label "End ring design"
-icon "icons/16/exit_ring.png"
-command server "exit ring"
}
}
GuidoMenu rd_ringdesign {
-label "Ring design"
-delayed_script $rd_ringdesign_items
}
