set fileclosemenu_items {
GuidoMenuItem close_bm {
-label "Block model"
-icon "icons/16/bm_exit.png"
-command server "BM EXIT"
}
GuidoMenuItem close_gdb {
-label "Geological database"
-icon "icons/16/geology_database_disconnect.png"
-command server "GEOLOGY DATABASE DISCONNECT"
}
GuidoMenuItem close_gdb {
-label "Survey database"
-icon "icons/16/close_survey_db.png"
-command server "CLOSE SURVEY DB"
}
}
GuidoMenu fileclosemenu {
-label "Close"
-delayed_script $fileclosemenu_items
}
