proc ::GetOptionalToolbarScript { script_name } {
if { ![catch {GuidoResource get scripts/toolbars/$script_name}] } {
GuidoScript scripts/toolbars/$script_name
}
}
proc ::GetOptionalMenuScript { script_name } {
if { ![catch {GuidoResource get scripts/menus/$script_name}] } {
GuidoScript scripts/menus/$script_name
}
}
GuidoScript scripts/SolidsRepairProcs.tcl
set horizWidth 20%
set vertWidth 80%
set enableOldStyleToolbars [ GuidoSSIOption get "enable_old_style_toolbars" ]
GuidoConfig surpac_config {
-use_report_dialog false
GuidoFrame basic_frame {
-label "PRODUCT_VERSION"
-status_item "cwd"
-location 0 0
-context graphics
-shutdown_callback "KILL GRAPHICS"
GuidoControlPanel control_panel {
GuidoMenuBar MainMenu {
-label "Main Menu"
-mode system
GuidoScript scripts/menus/s_cn_file.tcl
GuidoScript scripts/menus/s_cn_edit.tcl
GuidoScript scripts/menus/s_cn_create.tcl
GuidoScript scripts/menus/s_cn_display.tcl
GuidoScript scripts/menus/s_cn_view.tcl
GuidoScript scripts/menus/planes.tcl
GuidoScript scripts/menus/s_cn_inquire.tcl
GuidoScript scripts/menus/s_cn_tools.tcl
GuidoScript scripts/menus/s_cn_survey.tcl
GuidoScript scripts/menus/s_cn_database.tcl
GuidoScript scripts/menus/s_cn_dtms.tcl
GuidoScript scripts/menus/s_cn_solids.tcl
GuidoScript scripts/menus/s_cn_blockmodel.tcl
GuidoScript scripts/menus/s_cn_undergrounddesign.tcl
GuidoScript scripts/menus/s_cn_design.tcl
GuidoScript scripts/menus/s_cn_plotting.tcl
GuidoScript scripts/menus/s_cn_customise.tcl
GuidoScript scripts/menus/help.tcl
}
GuidoMenuBar MainMenu2 {
-label "Main (Short)"
-mode system
-hidden true
GuidoScript scripts/menus/s_cn_file.tcl
GuidoScript scripts/menus/s_cn_edit.tcl
GuidoScript scripts/menus/s_cn_create.tcl
GuidoScript scripts/menus/s_cn_display.tcl
GuidoScript scripts/menus/s_cn_view.tcl
GuidoScript scripts/menus/s_cn_inquire.tcl
GuidoScript scripts/menus/s_cn_tools.tcl
GuidoScript scripts/menus/s_cn_dtms.tcl
GuidoScript scripts/menus/s_cn_volumes.tcl
GuidoScript scripts/menus/s_cn_plotting.tcl
GuidoScript scripts/menus/s_cn_customise.tcl
GuidoScript scripts/menus/help.tcl
}
GuidoMenuBar ApplicationsMenu {
-label "Applications menu"
-mode system
GuidoScript scripts/menus/s_cn_blockmodel.tcl
GuidoScript scripts/menus/s_cn_contouring.tcl
GuidoScript scripts/menus/s_cn_database.tcl
GuidoScript scripts/menus/s_cn_geostatistics.tcl
GuidoScript scripts/menus/s_cn_mining_tools.tcl
GuidoScript scripts/menus/s_cn_undergrounddesign.tcl
GuidoScript scripts/menus/s_cn_solids.tcl
GuidoScript scripts/menus/s_cn_survey.tcl
::GetOptionalMenuScript surpac_61_minesched_application_menu.tcl
}
GuidoMenuBar DemosMenu {
-label "Demo"
-mode system
-hidden true
GuidoScript scripts/menus/Demos.tcl
}
GuidoMenuBar FreeFunctionsMenu {
-label "Free functions"
-mode system
-hidden true
GuidoScript scripts/menus/s_cn_FreeFunctions.tcl
}
GuidoMenuBar BlastDesignMenu {
-label "Blast design"
-mode system
-hidden true
GuidoScript scripts/menus/blastdesign.tcl
GuidoScript scripts/menus/s_cn_blast_db_database.tcl
GuidoScript scripts/menus/s_cn_blast_db_edit.tcl
GuidoScript scripts/menus/blast_db_display.tcl
GuidoScript scripts/menus/s_cn_blast_dbsections.tcl
GuidoScript scripts/menus/blastdelete.tcl
GuidoScript scripts/menus/s_cn_blastmove.tcl
GuidoScript scripts/menus/blastcharge.tcl
GuidoScript scripts/menus/blastuncharge.tcl
GuidoScript scripts/menus/blast_firing_sequence.tcl
GuidoScript scripts/menus/blastreport.tcl
}
GuidoMenuBar UndergroundDesignMenu {
-label "Underground design"
-mode system
-hidden true
GuidoScript scripts/menus/s_cn_create_underground.tcl
GuidoScript scripts/menus/s_cn_modify.tcl
GuidoScript scripts/menus/s_cn_tools_underground.tcl
GuidoScript scripts/menus/ringdesign.tcl
}
GuidoMenuBar BlockModelMenu {
-label "Block Model"
-mode system
-hidden true
GuidoScript scripts/menus/s_cn_bm_blockmodel.tcl
GuidoScript scripts/menus/s_cn_bm_attributes.tcl
GuidoScript scripts/menus/bm_constraints.tcl
GuidoScript scripts/menus/s_cn_bm_display.tcl
GuidoScript scripts/menus/s_cn_bm_columnprocessing.tcl
GuidoScript scripts/menus/s_cn_bm_estimation.tcl
}
GuidoMenuBar DatabaseMenu {
-label "Database"
-mode system
-hidden true
GuidoScript scripts/menus/s_cn_db_database.tcl
GuidoScript scripts/menus/s_cn_db_edit.tcl
GuidoScript scripts/menus/s_cn_analysis.tcl
GuidoScript scripts/menus/db_display.tcl
GuidoScript scripts/menus/s_cn_dbsections.tcl
GuidoScript scripts/menus/s_cn_db_compositing.tcl
GuidoScript scripts/menus/s_cn_databaseextract.tcl
GuidoScript scripts/menus/s_cn_databasereports.tcl
}
GuidoMenuBar SurfaceDesignMenu {
-label "Surface design"
-mode system
-hidden true
GuidoScript scripts/menus/pit_setup.tcl
GuidoScript scripts/menus/s_cn_pit_expand_segment.tcl
GuidoScript scripts/menus/pit_expand_string.tcl
GuidoScript scripts/menus/blastmenu.tcl
GuidoScript scripts/menus/s_cn_gradecontrol.tcl
}
GuidoMenuBar RingDesignMenu {
-label "Ring design"
-mode system
-hidden true
GuidoScript scripts/menus/rd_ringdesign.tcl
GuidoScript scripts/menus/rd_setup.tcl
GuidoScript scripts/menus/rd_move_mast.tcl
GuidoScript scripts/menus/rd_rotate_mast.tcl
GuidoScript scripts/menus/rd_createholes.tcl
GuidoScript scripts/menus/rd_edit.tcl
GuidoScript scripts/menus/rd_view.tcl
GuidoScript scripts/menus/rd_charging.tcl
GuidoScript scripts/menus/rd_reports.tcl
}
GuidoMenuBar SolidsMenu {
-label "Solids"
-mode system
-hidden true
GuidoScript scripts/menus/s_cn_solidscreate.tcl
GuidoScript scripts/menus/s_cn_edit_object.tcl
GuidoScript scripts/menus/s_cn_edit_trisolation.tcl
GuidoScript scripts/menus/edit_triangle.tcl
GuidoScript scripts/menus/s_cn_solidsdisplay.tcl
GuidoScript scripts/menus/solidsvalidate.tcl
GuidoScript scripts/menus/s_cn_solidstools.tcl
}
GuidoMenuBar SurveyMenu {
-label "Surveying"
-mode system
-hidden true
GuidoScript scripts/menus/s_cn_s_database.tcl
GuidoScript scripts/menus/s_cn_s_db_edit.tcl
GuidoScript scripts/menus/s_cn_surfacesurvey.tcl
GuidoScript scripts/menus/s_cn_ugsurvey.tcl
GuidoScript scripts/menus/stationerrors.tcl
GuidoScript scripts/menus/surveyreports.tcl
}
::GetOptionalMenuScript surpac_61_minesched_application_menu_bar.tcl
GuidoControlBarGroup MainControlBarGroup {
-label "Main"
GuidoToolBar FileToolbar {
-label "File"
-mode system
-hidden true
-delayed_script scripts/toolbars/File.tcl
-tip "File"
}
GuidoToolBar NavToolbar {
-label "Navigate"
-mode system
-hidden true
-delayed_script scripts/toolbars/Navigate.tcl
-tip "Navigate"
}
GuidoToolBar InqDisToolbar {
-label "Inquire/Display"
-mode system
-hidden false
-delayed_script scripts/toolbars/s_cn_inquireDisplay.tcl
-tip "Inquire/Display"
}
GuidoToolBar DigitiseToolbar {
-label "Digitise"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_Digitise.tcl
-tip "Digitise"
}
}
GuidoControlBarGroup PlanesAndSectionsControlBarGroup {
-label "Planes and sections"
GuidoToolBar PlanesToolbar {
-label "Planes"
-mode system
-hidden true
-delayed_script scripts/toolbars/Planes.tcl
-tip "Planes"
}
GuidoToolBar ClassicSlicingToolbar {
-label "Classic slicing"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_ClassicSlicing.tcl
-tip "Classic slicing"
}
}
GuidoControlBarGroup StatusItemsControlBarGroup {
-label "Status items"
GuidoToolBar MacroToolbar {
-label "Macro"
-mode system
-hidden true
-delayed_script scripts/toolbars/macros.tcl
-tip "Macro"
}
}
GuidoControlBarGroup ViewControlBarGroup {
-label "View"
GuidoToolBar ScaleAndTransparencyToolbar {
-label "Scale and transparency"
-mode system
-hidden true
-delayed_script scripts/toolbars/ScaleAndTransparency.tcl
-tip "Scale and transparency"
}
GuidoToolBar StereoDisplay {
-label "Stereo 3D"
-mode system
-hidden true
-delayed_script scripts/toolbars/StereoDisplay.tcl
-tip "Stereo 3D"
}
GuidoToolBar SpinAndScaleToolbar {
-label "Spin and scale"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_SpinAndScale.tcl
-tip "Spin and scale"
}
GuidoToolBar ViewLightingAndProjectionToolbar {
-label "View, lighting and projection"
-mode system
-hidden true
-delayed_script scripts/toolbars/ViewLightingAndProjection.tcl
-tip "View, lighting and projection"
}
}
GuidoControlBarGroup DisplayHideControlBarGroup {
-label "Display / Hide"
GuidoToolBar DisplayHideToolbar {
-label "Display and hide"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_display.tcl
-tip "Display and hide"
}
}
GuidoControlBarGroup CreateControlBarGroup {
-label "Create"
GuidoToolBar CreateToolbar {
-label "Create"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_Creation.tcl
-tip "Create"
}
GuidoToolBar GenerateToolbar {
-label "Generate"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_Generate.tcl
-tip "Generate"
}
}
GuidoToolBar EditToolbar {
-label "Edit"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_edit.tcl
-tip "Edit"
}
GuidoToolBar InquireToolbar {
-label "Inquire"
-mode system
-hidden true
-delayed_script scripts/toolbars/inquire.tcl
-tip "Inquire"
}
GuidoToolBar FileToolsToolbar {
-label "File tools"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_file_tools.tcl
-tip "File tools"
}
GuidoToolBar BlockModelToolbar {
-label "Block model"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_blockmodel.tcl
-tip "Block model"
}
GuidoToolBar DatabaseToolbar {
-label "Database"
-mode system
-hidden true
-delayed_script scripts/toolbars/database.tcl
-tip "Database"
}
GuidoToolBar SurfaceDesignToolbar {
-label "Surface design"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_mine_design.tcl
-tip "Surface design"
}
GuidoToolBar BlastDesignToolbar {
-label "Blast design"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_blastdesign.tcl
-tip "Blast design"
}
GuidoToolBar UndergroundDesignToolbar {
-label "Underground design"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_undergrounddesign.tcl
}
GuidoToolBar RingDesignToolbar {
-label "Ring design"
-mode system
-hidden true
-delayed_script scripts/toolbars/ringdesign.tcl
-tip "Ring design"
}
GuidoToolBar SolidsToolbar {
-label "Solids"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_solids.tcl
-tip "Solids"
}
GuidoToolBar SolidsRepairToolbar {
-label "Solids repair"
-mode system
-hidden true
-delayed_script scripts/toolbars/solids_repair.tcl
-tip "Solids repair"
}
::GetOptionalToolbarScript surpac_61_minesched_production.tcl
::GetOptionalToolbarScript surpac_61_minesched_development.tcl
::GetOptionalToolbarScript surpac_61_minesched_parameters.tcl
::GetOptionalToolbarScript surpac_61_minesched_legacy_main.tcl
::GetOptionalToolbarScript surpac_61_minesched_legacy_development.tcl
GuidoToolBar StatusFreeToolbar {
-label "Status free"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_StatusFree.tcl
-tip "Status free"
}
GuidoToolBar ApplicationsFreeToolbar {
-label "Applications free"
-mode system
-hidden true
-delayed_script scripts/toolbars/ApplicationsFree.tcl
-tip "Applications free"
}
if { $enableOldStyleToolbars == "on" } {
GuidoToolBar OLD_StatusItemsToolbar {
-label "Status items (old)"
-mode system
-hidden true
-delayed_script scripts/toolbars/s_cn_old_status_items.tcl
}
GuidoToolBar OLD_MainToolbar {
-label "Main (old)"
-mode system
-hidden true
-delayed_script scripts/toolbars/old_main.tcl
}
}
GuidoMenuBar AppletsMenu   {
-label "Applets"
-mode system
-hidden fully
}
GuidoMenuBar MineDesignMenu {
-label "Mine design"
-mode system
-hidden fully
}
GuidoToolBar MineDesignToolbar {
-label "Mine design"
-mode system
-hidden fully
}
GuidoToolBar ToolsToolbar {
-label "Tools"
-mode system
-hidden true
-delayed_script scripts/toolbars/interactivetools.tcl
}
}
GuidoDockableFrame messager_docker {
-show_title false
-trackable true
-dock south
-caption "Message window"
GuidoTitleBarButton clearButton {
-caption "Clear"
-action valueChanged { [ $messager clearBuffer ] }
}
GuidoPanel mpanel {
-position Center
-layout BorderLayout
GuidoMessager messager {
-position Center
}
GuidoCommandChooser command_chooser {
-tip "Select or enter a function"
-width 17
-ui_active
-history_size 32
-position South
-auto_complete true
}
}
}
GuidoDockableFrame nav_docker {
-trackable true
-dock west
-caption "Navigator"
-width 250
-icon "icons/Navigator.png"
GuidoTitleBarButton previewButton {
-caption "Preview"
-action valueChanged { [ $nav togglePreviewer ] }
}
GuidoNavigator nav  {
-position Center
}
}
GuidoDockableFrame planes_docker1 {
-trackable true
-dock west
-caption "Planes"
-width 230
-layout BorderLayout
-icon "icons/16/viewing_planes.png"
GuidoScript scripts/planes.tcl
}
GuidoDockableFrame solids_docker {
-trackable false
-dock east
-caption node_solid_repair
-width 300
-height 720
-icon "icons/16/solids_repair_open.png"
-initState hidden
-available_buttons floating|autohide
GuidoScript scripts/s_cn_SolidsDoctor.tcl
-action initial {[::SolidsRepairOpenProc]}
-action final {[::SolidsRepairClearProc]}
}
GuidoDockableFrame property_docker {
-trackable true
-dock east
-caption "Properties"
-width 150
-icon "icons/16/properties_settings.png"
GuidoPropertiesPane properties_pane {
-position Center
}
}
GuidoDockableFrame tool_property_docker {
-trackable true
-dock east
-caption "Tool properties"
-width 150
-icon "icons/Tools.png"
GuidoToolPropertiesPane properties_pane {
-context graphics
-position Center
}
}
GuidoDockableFrame layer_docker {
-trackable true
-dock east
-caption "Layers"
-width 150
-icon "icons/16/layers.png"
GuidoTitleBarButton createButton {
-caption "New"
-command server "NEW LAYER"
}
GuidoLayersPane layers_pane {
-position Center
}
}
GuidoDocumentPane docPane {
-show_tabs false
GuidoContextMenu context_menu {
GuidoScript scripts/menus/s_cn_GraphicsContextMenu.tcl
}
}
GuidoDockableFrame legend_docker1 {
-trackable true
-dock east
-caption "Legend"
-height 150
-icon "icons/16/Legend.png"
GuidoScrollPane legend_scroll {
GuidoLegendTree legend_tree {
-label "Legends"
}
}
}
GuidoScript scripts/toolbars/s_cn_statusregion.tcl
}
}
