set gradecontrolmenu_items {
GuidoMenuItem item2 {
-label "Erase sample numbers"
-icon "icons/16/erase_sample_ids.png"
-command server "ERASE SAMPLE IDS"
}
GuidoScript scripts/menus/gradecontroldisplay.tcl
GuidoSeparator sep1 {
}
GuidoMenuItem item3 {
-label "Average grade of polygon"
-icon "icons/16/mean_point_average_grade.png"
-command server "MEAN POINT AVERAGE GRADE"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item6 {
-label "Enter channel survey"
-icon "icons/16/channel_survey_observations.png"
-command server "CHANNEL SURVEY OBSERVATIONS"
}
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/s_cn_gradecontrolid.tcl
}
GuidoMenu gradecontrolmenu {
-label "Grade Control"
-delayed_script $gradecontrolmenu_items
}
