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"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item6 {
-label "Enter channel survey"
-icon "icons/16/channel_survey_observations.png"
-command server "CHANNEL SURVEY OBSERVATIONS"
}
GuidoMenuItem item7 {
-label "Modify channel survey"
-icon "icons/16/transform_channel.png"
-command server "TRANSFORM CHANNEL"
}
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/gradecontrolid.tcl
GuidoMenuItem item8 {
-label "Load numbered holes into database"
-command server "LOAD DRILL HOLES TO DATABASE"
}
GuidoMenuItem item9 {
-label "Load channels into database"
-icon "icons/16/load_channels_to_database.png"
-command server "LOAD CHANNELS TO DATABASE"
}
}
GuidoMenu gradecontrolmenu {
-label "Grade Control"
-delayed_script $gradecontrolmenu_items
}
