set bm_blockmodel_items {
GuidoMenuItem bm_graphics {
-label "New / Open"
-icon "icons/16/block_model_open.png"
-command server "BLOCK MODEL OPEN"
}
GuidoMenuItem bm_graphics_draw {
-label "Display"
-icon "icons/16/bm_graphics_draw.png"
-command server "bm graphics draw"
}
GuidoMenuItem bm_save {
-label "Save"
-icon "icons/16/bm_save_model.png"
-command server "BM SAVE MODEL"
}
GuidoMenuItem bm_save_as {
-label "Save as"
-icon "icons/16/bm_save_as.png"
-command server "BM SAVE AS"
}
GuidoSeparator separator0 {
}
GuidoMenuItem bm_simple_reblocking {
-label MENU_SIMPLE_REBLOCKING
-command script scripts/bmReblock.tcl
}
GuidoSeparator separator1 {
}
GuidoScript scripts/menus/s_cn_bm_blockmodel_import.tcl
GuidoScript scripts/menus/s_cn_bm_blockmodel_export.tcl
GuidoSeparator separator2 {
}
GuidoCheckBoxMenuItem bm_audit_state {
-status_item "recording bm audit"
-label "Recording Audit"
-icon "icons/16/audit_record.png"
-command script "forms/AuditRecord.tcl" "BLOCK_MODEL_AUDIT N"
-command script "forms/AuditRecord.tcl" "BLOCK_MODEL_AUDIT Y"
}
GuidoMenuItem bm_audit_trail {
-label "Flush Audit Trail"
-icon "icons/16/audit_flush.png"
-command script "forms/AuditFlush.tcl" "BLOCK_MODEL_AUDIT"
}
GuidoMenuItem bm_audit_trail {
-label "Display Model Audit Trail"
-icon "icons/16/bm_audit_trail.png"
-command script "forms/AuditTrail.tcl" "BLOCK_MODEL_AUDIT"
}
GuidoSeparator sep4 {
}
GuidoMenuItem bm_mine {
-label "Mine blocks graphically"
-icon "icons/16/bm_graphics_mine_blocks.png"
-command server "BM GRAPHICS MINE BLOCKS"
}
GuidoSeparator sep5 {
}
GuidoMenuItem bm_model_summary {
-label "Summary"
-icon "icons/16/bm_model_summary.png"
-command server "BM MODEL SUMMARY"
}
GuidoMenuItem bm_report {
-label "Report"
-icon "icons/16/bm_vol_ton_report.png"
-command server "BM VOL TON REPORT"
}
GuidoSeparator separator3 {
}
GuidoMenuItem bm_close {
-label "Close"
-icon "icons/16/bm_exit.png"
-command server "BM EXIT"
}
}
GuidoMenu bm_blockmodel {
-label "Block model"
-delayed_script $bm_blockmodel_items
}
