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 off
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/q_file.tcl
GuidoScript scripts/menus/q_edit.tcl
GuidoScript scripts/menus/q_create.tcl
GuidoScript scripts/menus/q_display.tcl
GuidoScript scripts/menus/q_view.tcl
GuidoScript scripts/menus/planes.tcl
GuidoScript scripts/menus/q_inquire.tcl
GuidoScript scripts/menus/q_tools.tcl
GuidoScript scripts/menus/q_dtms.tcl
GuidoScript scripts/menus/q_volumes.tcl
GuidoScript scripts/menus/plotting.tcl
GuidoScript scripts/menus/customise.tcl
GuidoScript scripts/menus/help.tcl
}
GuidoMenuBar ApplicationsMenu {
-label "Applications menu"
-mode system
GuidoScript scripts/menus/q_blockmodel.tcl
GuidoScript scripts/menus/q_contouring.tcl
GuidoScript scripts/menus/q_database.tcl
GuidoScript scripts/menus/q_stats.tcl
GuidoScript scripts/menus/q_mining_tools.tcl
GuidoScript scripts/menus/q_solids.tcl
::GetOptionalMenuScript surpac_61_minesched_application_menu.tcl
}
GuidoMenuBar BlastDesignMenu {
-label "Blast design"
-mode system
-hidden true
GuidoScript scripts/menus/blastdesign.tcl
GuidoScript scripts/menus/blast_db_database.tcl
GuidoScript scripts/menus/blast_db_edit.tcl
GuidoScript scripts/menus/blast_db_display.tcl
GuidoScript scripts/menus/blast_dbsections.tcl
GuidoScript scripts/menus/blastdelete.tcl
GuidoScript scripts/menus/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 BlockModelMenu {
-label "Block model"
-mode system
-hidden true
GuidoScript scripts/menus/q_bm_blockmodel.tcl
GuidoScript scripts/menus/q_bm_attributes.tcl
GuidoScript scripts/menus/bm_constraints.tcl
GuidoScript scripts/menus/q_bm_display.tcl
GuidoScript scripts/menus/q_bm_estimation.tcl
}
GuidoMenuBar DatabaseMenu {
-label "Database"
-mode system
-hidden true
GuidoScript scripts/menus/q_db_database.tcl
GuidoScript scripts/menus/db_edit.tcl
GuidoScript scripts/menus/db_display.tcl
GuidoScript scripts/menus/dbsections.tcl
GuidoScript scripts/menus/q_db_compositing.tcl
GuidoScript scripts/menus/q_db_tools.tcl
GuidoScript scripts/menus/q_databasereports.tcl
}
GuidoMenuBar SequencerMenu {
-label "Graphical sequencer"
-mode system
-hidden true
GuidoScript scripts/menus/sequencer_setup.tcl
GuidoScript scripts/menus/sequencer_define.tcl
GuidoScript scripts/menus/sequencer_sequence.tcl
}
GuidoMenuBar MineDesignMenu {
-label "Mine design"
-mode system
-hidden true
GuidoScript scripts/menus/pit_setup.tcl
GuidoScript scripts/menus/pit_expand_segment.tcl
GuidoScript scripts/menus/pit_expand_string.tcl
GuidoScript scripts/menus/blastmenu.tcl
GuidoScript scripts/menus/q_gradecontrol.tcl
GuidoScript scripts/menus/graphicalsequencer.tcl
GuidoScript scripts/menus/roaddesign_tools.tcl
}
GuidoMenuBar SolidsMenu {
-label "Solids"
-mode system
-hidden true
GuidoScript scripts/menus/q_solidscreate.tcl
GuidoScript scripts/menus/q_edit_object.tcl
GuidoScript scripts/menus/q_edit_trisolation.tcl
GuidoScript scripts/menus/edit_triangle.tcl
GuidoScript scripts/menus/solidsdisplay.tcl
GuidoScript scripts/menus/solidsvalidate.tcl
GuidoScript scripts/menus/q_solidstools.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/inquireDisplay.tcl
-tip "Inquire/Display"
}
GuidoToolBar DigitiseToolbar {
-label "Digitise"
-mode system
-hidden true
-delayed_script scripts/toolbars/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/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/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/display.tcl
-tip "Display and hide"
}
}
GuidoControlBarGroup CreateControlBarGroup {
-label "Create"
GuidoToolBar CreateToolbar {
-label "Create"
-mode system
-hidden true
-delayed_script scripts/toolbars/Creation.tcl
-tip "Create"
}
GuidoToolBar GenerateToolbar {
-label "Generate"
-mode system
-hidden true
-delayed_script scripts/toolbars/Generate.tcl
-tip "Generate"
}
}
GuidoToolBar EditToolbar {
-label "Edit"
-mode system
-hidden true
-delayed_script scripts/toolbars/q_edit.tcl
}
GuidoToolBar InquireToolbar {
-label "Inquire"
-mode system
-hidden true
-delayed_script scripts/toolbars/inquire.tcl
}
GuidoToolBar FileToolsToolbar {
-label "File tools"
-mode system
-hidden true
-delayed_script scripts/toolbars/q_file_tools.tcl
}
GuidoToolBar BlockModelToolbar {
-label "Block model"
-mode system
-hidden true
-delayed_script scripts/toolbars/blockmodel.tcl
}
GuidoToolBar DatabaseToolbar {
-label "Database"
-mode system
-hidden true
-delayed_script scripts/toolbars/database.tcl
}
GuidoToolBar MineDesignToolbar {
-label "Mine design"
-mode system
-hidden true
-delayed_script scripts/toolbars/q_mine_design.tcl
}
GuidoToolBar BlastDesignToolbar {
-label "Blast design"
-mode system
-hidden true
-delayed_script scripts/toolbars/blastdesign.tcl
}
GuidoToolBar SolidsToolbar {
-label "Solids"
-mode system
-hidden true
-delayed_script scripts/toolbars/q_solids.tcl
}
GuidoToolBar SolidsRepairToolbar {
-label "Solids repair"
-mode system
-hidden true
-delayed_script scripts/toolbars/solids_repair.tcl
-tip "Solids repair"
}
GuidoToolBar MeshToolsToolbar {
-label "Mesh tools"
-mode system
-hidden true
-delayed_script scripts/toolbars/mesh_tools.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 ToolsToolbar {
-label "Tools"
-mode system
-hidden true
-delayed_script scripts/toolbars/q_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 550
-icon "icons/SolidsRepair.png"
-initState hidden
-available_buttons floating|autohide
GuidoScript scripts/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 {
GuidoContextMenu context_menu {
GuidoScript scripts/menus/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/statusregion.tcl
}
}
