set viewspecialmenu_items {
GuidoMenuItem plan {
-label "Plan view"
-icon "icons/16/plan.png"
-command server "PLAN"
}
GuidoMenuItem section_view {
-label "Section view"
-icon "icons/16/section.png"
-command server "SECTION"
}
GuidoMenuItem longsection_view {
-label "Long section view"
-icon "icons/16/long_section.png"
-command server "LONG SECTION"
}
GuidoMenuItem reverseview {
-label "Reverse view direction"
-icon "icons/16/reverse_view.png"
-command script scripts/reverseview.tcl
}
GuidoSeparator sep1 {
}
GuidoMenuItem item6 {
-label "View by camera & target"
-icon "icons/16/view_by_coords.png"
-command server "VIEW BY COORDS"
}
GuidoMenuItem item7 {
-label "View by bearing & dip"
-icon "icons/16/view_by_bearing.png"
-command server "VIEW BY BEARING"
}
GuidoMenuItem item8 {
-label "View along a string"
-icon "icons/16/view_along_string.png"
-command server "VIEW ALONG STRING"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item8 {
-label "View scale factors"
-icon "icons/16/view_scale.png"
-command server "VIEW SCALE"
}
}
GuidoMenu viewspecialmenu {
-label "Data view options"
-delayed_script $viewspecialmenu_items
}
