set menu_items {
GuidoMenuItem item1 {
-label "Add new attributes to model"
-icon "icons/16/bm_add_attribute.png"
-command server "BM ADD ATTRIBUTE"
}
GuidoMenuItem item2 {
-label "Clear attributes to background"
-icon "icons/16/bm_clear_attributes.png"
-command server "BM CLEAR ATTRIBUTES"
}
GuidoMenuItem item3 {
-label "Delete attributes"
-icon "icons/16/bm_delete_attributes.png"
-command server "BM DELETE ATTRIBUTES"
}
GuidoMenuItem item4 {
-label "Edit/rename attributes"
-icon "icons/16/bm_edit_attributes.png"
-command server "BM EDIT ATTRIBUTES"
}
GuidoMenuItem item5 {
-label "Reorder Attributes"
-command script scripts/attribOrder.tcl
-icon "icons/16/bm_reorder_attribs.png"
}
}
GuidoMenu blockmodelattribsmenu {
-label "Attribute management"
-delayed_script $menu_items
}
