set blast_db_database_menu_items {
GuidoMenuItem new_gdb {
-label "Open database"
-icon "icons/16/blast_open_database.png"
-command server "BLAST OPEN DATABASE"
}
GuidoMenuItem CreateBlastDatabase {
-label "Create blast database"
-icon "icons/16/blast_new_database.png"
-command server "macro:ssi_resource:scripts/create_blast_db.tcl|-f"
}
GuidoMenuItem BlastUpload {
-label "Upload blast holes into database"
-icon "icons/16/blast_load_to_database.png"
-command script scripts/upload_blastholes.tcl
}
GuidoMenuItem BlastDownload {
-label "Download blast holes from database"
-icon "icons/16/blast_load_from_database.png"
-command server "BLAST LOAD FROM DATABASE"
}
GuidoMenuItem UpgradeDatabase {
-label "Upgrade blast database"
-icon "icons/16/blast_upgrade_database.png"
-command server "BLAST UPGRADE DATABASE"
-tip "Upgrade blast database"
}
GuidoSeparator sep0 {
}
GuidoMenuItem blast_map_db {
-label "Map the blast database"
-icon "icons/16/blast_db_mapper.png"
-command script scripts/DBMapper.tcl "blast_db_mapper.tcl ddb"
}
GuidoMenuItem blast_edit_ddb {
-label "Edit blast database definition"
-command script scripts/DDBEditor.tcl "blast_db_mapper.tcl ddb"
}
GuidoSeparator sep1 {
}
GuidoMenuItem load_db {
-label "Import data"
-icon "icons/16/load_database.png"
-command server "LOAD DATABASE"
}
GuidoMenuItem unload_db {
-label "Export data"
-icon "icons/16/unload_database.png"
-command server "UNLOAD DATABASE"
}
GuidoMenuItem delete_field {
-label "Display database definition"
-icon "icons/16/display_database_definition.png"
-command server "DISPLAY DATABASE DEFINITION"
}
GuidoSeparator sep2 {
}
GuidoScript scripts/menus/administration.tcl
GuidoSeparator sep3 {
}
GuidoMenuItem close_db {
-label "Close database"
-icon "icons/16/geology_database_disconnect.png"
-command server "GEOLOGY DATABASE DISCONNECT"
}
}
GuidoMenu blast_db_database_menu {
-label "Database"
-delayed_script $blast_db_database_menu_items
}
