set gradecontrolmenu_items {
GuidoMenuItem item1 {
-label "Open sample file"
-icon "icons/16/recall_sample_file.png"
-command server "RECALL SAMPLE FILE"
}
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"
}
GuidoMenuItem item4 {
-label "Average length weighted grade"
-icon "icons/16/interval_weighted_average_grade.png"
-command server "INTERVAL WEIGHTED AVERAGE GRADE"
}
GuidoMenuItem item5 {
-label "Sichel T grade of polygon"
-icon "icons/16/sichel_point_average_grade.png"
-command server "SICHEL POINT AVERAGE GRADE"
}
}
GuidoMenu gradecontrolmenu {
-label "Grade Control"
-delayed_script $gradecontrolmenu_items
}
