set rdchargemenu_items {
GuidoMenuItem item1 {
-label "Charge holes"
-icon "icons/16/charge_holes.png"
-command server "CHARGE HOLES"
}
GuidoMenuItem item2 {
-label "Edit charge"
-icon "icons/16/edit_charge.png"
-command server "EDIT CHARGE"
}
GuidoMenuItem item3 {
-label "Clear charging for one hole"
-icon "icons/16/clear_charge.png"
-command server "CLEAR CHARGE"
}
GuidoMenuItem item4 {
-label "Clear all charging"
-icon "icons/16/clear_charges.png"
-command server "CLEAR CHARGES"
}
GuidoSeparator sep1 {
}
GuidoMenuItem item5 {
-label "Intersect Hole with Zone"
-icon "icons/16/intersect_blast_zone_hole.png"
-command server "INTERSECT BLAST ZONE HOLE"
}
GuidoMenuItem item6 {
-label "Intersect Hole range with Zone"
-icon "icons/16/intersect_blast_zone_holes.png"
-command server "INTERSECT BLAST ZONE HOLES"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item7 {
-label "Manual sequencing"
-icon "icons/16/sequence_manual.png"
-command server "SEQUENCE MANUAL"
}
GuidoMenuItem item8 {
-label "Sequence anticlockwise"
-icon "icons/16/sequence_anticlockwise.png"
-command server "SEQUENCE ANTICLOCKWISE"
}
GuidoMenuItem item9 {
-label "Sequence clockwise"
-icon "icons/16/sequence_clockwise.png"
-command server "SEQUENCE CLOCKWISE"
}
GuidoMenuItem item10 {
-label "Simultaneous firing"
-icon "icons/16/sequence_simultaneous.png"
-command server "SEQUENCE SIMULTANEOUS"
}
}
GuidoMenu rdchargemenu {
-label "Charging"
-delayed_script $rdchargemenu_items
}
