set filenewmenu_items {
GuidoMenuItem new_layer {
-label "Layer"
-icon "icons/16/new_layer.png"
-command server "NEW LAYER"
}
GuidoMenuItem new_bm {
-label "Block model"
-icon "icons/16/block_model_open.png"
-command server "BLOCK MODEL"
}
GuidoMenuItem new_gdb {
-label "Geological database"
-icon "icons/16/dhl_database_definition.png"
-command server "DHL DATABASE DEFINITION"
}
}
GuidoMenu filenewmenu {
-label "New"
-delayed_script $filenewmenu_items
}
