set dbsectionmenu_items {
GuidoMenuItem display_drillholes {
-label "Display drillholes"
-icon "icons/16/display_drillholes.png"
-command script scripts/drawholes.tcl
}
GuidoSeparator sep1 {
}
GuidoMenuItem savesection {
-label "Save sections to string files"
-icon "icons/16/save_section_to_string_files.png"
-command script forms/string_sections.tcl
}
GuidoSeparator sep7 {
}
GuidoMenuItem reverseview {
-label "Reverse view direction"
-icon "icons/16/reverse_view.png"
-command script scripts/reverseview.tcl
}
GuidoMenuItem zoomplane {
-label "Zoom plane"
-icon "icons/16/zoom_plane.png"
-command script scripts/zoomsection.tcl
}
GuidoSeparator sep4 {
}
GuidoMenuItem uselastsection {
-label "Restore last section"
-command server "LAST SECTION"
}
GuidoMenuItem offplanestyle {
-label "Off section drillholes style"
-command script scripts/s_cn_offsectionstyles.tcl
}
GuidoSeparator sep5 {
}
GuidoMenuItem segmentgrade {
-label "Digitised segment grade"
-icon "icons/16/drillhole_segment_grade.png"
-command script "scripts/segmentgrade.tcl" "segment"
}
GuidoMenuItem stringgrade {
-label "Digitised string grade"
-icon "icons/16/drillhole_string_grade.png"
-command script "scripts/segmentgrade.tcl" "string"
}
}
GuidoMenu dbsections {
-label "Sections"
-delayed_script $dbsectionmenu_items
}
