set graphical_geology_menu_items {
GuidoMenuItem new_gdb {
-label "Open database"
-icon "icons/16/dhl_database_definition.png"
-command server "DHL DATABASE DEFINITION"
}
GuidoSeparator sep0 {
}
GuidoMenuItem drawholesfunction {
-label "Draw drillholes"
-icon "icons/16/display_drillholes.png"
-command script scripts/drawholes.tcl
}
GuidoMenuItem refreshholesfunction {
-label "Refresh drillholes"
-icon "icons/16/refresh_drillholes.png"
-command server "REFRESH DRILLHOLES"
}
GuidoMenuItem editholeattributes {
-label "Edit drillhole styles"
-icon "icons/16/edit_drillhole_styles.png"
-command script forms/editstyles.tcl
}
GuidoSeparator sep1 {
}
GuidoCheckBoxMenuItem dh_selectability {
-status_item "drillhole selectablility"
-label "Drillhole traces selectable"
-default true
-command server "DRILLHOLES NOT SELECTABLE"
-icon "icons/16/drillholes_selectable.png"
-command server "DRILLHOLES SELECTABLE"
}
GuidoMenuItem editholefunction {
-label "Edit drillhole"
-icon "icons/16/edit_hole.png"
-command server "EDIT HOLE"
}
GuidoMenuItem selectholefunction {
-label "Identify drillhole"
-icon "icons/16/identify_drillhole.png"
-command script scripts/selecthole.tcl
}
GuidoMenuItem hideholefunction {
-label "Hide drillhole"
-icon "icons/16/hide_drillhole.png"
-command script scripts/hidehole.tcl
}
GuidoMenuItem hideallholesfunction {
-label "Hide all drillholes"
-icon "icons/16/hide_drillholes.png"
-command script scripts/hideholes.tcl
}
GuidoSeparator sep2 {
}
GuidoScript scripts/menus/dbconstraints.tcl
GuidoScript scripts/menus/dbsections.tcl
GuidoScript scripts/menus/compositing.tcl
GuidoSeparator sep3 {
}
GuidoMenuItem close_db {
-label "Close database"
-icon "icons/16/geology_database_disconnect.png"
-command server "GEOLOGY DATABASE DISCONNECT"
}
}
GuidoMenu graphical_geology_menu {
-label "Graphical geology"
-delayed_script $graphical_geology_menu_items
}
