set s_databasemenu_items {
GuidoMenuItem new_sdb {
-label "New/Open"
-icon "icons/16/survey_database_definition.png"
-command server "SURVEY DATABASE DEFINITION"
}
GuidoSeparator sep0 {
}
GuidoMenuItem map_db {
-label "Map the database"
-icon "icons/16/db_mapper.png"
-command script scripts/DBMapper.tcl "survey_db_mapper.tcl sdb"
}
GuidoMenuItem edit_ddb {
-label "Edit database definition"
-command script scripts/DDBEditor.tcl "survey_db_mapper.tcl sdb"
}
GuidoSeparator sep0a {
}
GuidoMenuItem open_pfdb {
-label "Open PFDB"
-command server "PFDB Interface"
}
GuidoMenuItem stab_window {
-label "Stability monitoring"
-icon "icons/16/stability_monitoring.png"
-command server "STABILITY MONITORING"
}
GuidoSeparator sep1 {
}
GuidoMenuItem load_sdb {
-label "Import data"
-icon "icons/16/load_survey_database.png"
-command server "LOAD SURVEY DATABASE"
}
GuidoMenuItem unload_sdb {
-label "Export data"
-icon "icons/16/unload_survey_database.png"
-command server "UNLOAD SURVEY DATABASE"
}
GuidoSeparator sep2 {
}
GuidoScript scripts/menus/s_administration.tcl
GuidoSeparator sep3 {
}
GuidoMenuItem close_sdb {
-label "Close database"
-icon "icons/16/close_survey_db.png"
-command server "CLOSE SURVEY DB"
}
}
GuidoMenu s_databasemenu {
-label "Survey database"
-delayed_script $s_databasemenu_items
}
