set processingCode "startup"

if {[info exists argv]} {
 set processingCode [lindex $argv 0]
}

if { $processingCode != "import" } {
  if { $processingCode == "startup" } {

    # This section for when starting the software

    $surpac_config setDebugEnabled off
    $surpac_config setInformationalEnabled on
    $surpac_config setWarningEnabled on
    $surpac_config setBeepEnabled off
    $surpac_config useReportDialog false
    $surpac_config setMessageWindowVisible false
    $surpac_config setAutoSaveConfigEnabled false
    $surpac_config setLookAndFeel windows

    set horizWidth 227 
    set vertWidth 582 

  } elseif { $processingCode == "change" } {

    # This section for when changing profiles

    package require java
    set customConfigCM [java::call com.surpac.client.ClientManager getSharedInstance]
    set customConfigCP [$customConfigCM getControlPanel]

    set MainMenu [$customConfigCP getGuidoMenuBar "Main Menu"]
    set ApplicationsMenu [$customConfigCP getGuidoMenuBar "Applications Menu"]
    set AppletsMenu [$customConfigCP getGuidoMenuBar "Applets"]
    set MineDesignMenu [$customConfigCP getGuidoMenuBar "Mine Design"]
    set BlastDesignMenu [$customConfigCP getGuidoMenuBar "Blast Design"]
    set UndergroundDesignMenu [$customConfigCP getGuidoMenuBar "Underground Design"]
    set BlockModelMenu [$customConfigCP getGuidoMenuBar "Block Model"]
    set DatabaseMenu [$customConfigCP getGuidoMenuBar "Database"]
    set SequencerMenu [$customConfigCP getGuidoMenuBar "Graphical Sequencer"]
    set SurfaceDesignMenu [$customConfigCP getGuidoMenuBar "Surface Design"]
    set RingDesignMenu [$customConfigCP getGuidoMenuBar "Ring Design"]
    set SolidsMenu [$customConfigCP getGuidoMenuBar "Solids"]
    set SurveyMenu [$customConfigCP getGuidoMenuBar "Surveying"]
    set StatusItemsToolbar [$customConfigCP getGuidoToolBar "Status Items"]
    set MainToolbar [$customConfigCP getGuidoToolBar "Main"]
    set EditToolbar [$customConfigCP getGuidoToolBar "Edit"]
    set CreateToolbar [$customConfigCP getGuidoToolBar "Create"]
    set DisplayHideToolbar [$customConfigCP getGuidoToolBar "Display / Hide"]
    set ViewToolbar [$customConfigCP getGuidoToolBar "View"]
    set InquireToolbar [$customConfigCP getGuidoToolBar "Inquire"]
    set FileToolsToolbar [$customConfigCP getGuidoToolBar "File Tools"]
    set BlockModelToolbar [$customConfigCP getGuidoToolBar "Block Model"]
    set DatabaseToolbar [$customConfigCP getGuidoToolBar "Database"]
    set DB_StringSectionsToolbar [$customConfigCP getGuidoToolBar "DB String sections"]
    set MineDesignToolbar [$customConfigCP getGuidoToolBar "Mine Design"]
    set SurfaceDesignToolbar [$customConfigCP getGuidoToolBar "Surface Design"]
    set BlastDesignToolbar [$customConfigCP getGuidoToolBar "Blast Design"]
    set UndergroundDesignToolbar [$customConfigCP getGuidoToolBar "Underground Design"]
    set RingDesignToolbar [$customConfigCP getGuidoToolBar "Ring Design"]
    set SolidsToolbar [$customConfigCP getGuidoToolBar "Solids"]
    set MineschedProdToolbar [$customConfigCP getGuidoToolBar "Minesched Production"]
    set MineschedDevToolbar [$customConfigCP getGuidoToolBar "Minesched Development"]

  }

  $MainMenu setHidden false
  $MainMenu setLabel "Main Menu"
  $MainMenu setMode system
  $ApplicationsMenu setHidden false
  $ApplicationsMenu setLabel "Applications Menu"
  $ApplicationsMenu setMode system
  $AppletsMenu setHidden true
  $AppletsMenu setLabel "Applets"
  $AppletsMenu setMode system
  $MineDesignMenu setHidden true
  $MineDesignMenu setLabel "Mine Design"
  $MineDesignMenu setMode system
  $BlastDesignMenu setHidden true
  $BlastDesignMenu setLabel "Blast Design"
  $BlastDesignMenu setMode system
  $UndergroundDesignMenu setHidden true
  $UndergroundDesignMenu setLabel "Underground Design"
  $UndergroundDesignMenu setMode system
  $BlockModelMenu setHidden true
  $BlockModelMenu setLabel "Block Model"
  $BlockModelMenu setMode system
  $DatabaseMenu setHidden true
  $DatabaseMenu setLabel "Database"
  $DatabaseMenu setMode system
  $SequencerMenu setHidden true
  $SequencerMenu setLabel "Graphical Sequencer"
  $SequencerMenu setMode system
  $SurfaceDesignMenu setHidden true
  $SurfaceDesignMenu setLabel "Surface Design"
  $SurfaceDesignMenu setMode system
  $RingDesignMenu setHidden true
  $RingDesignMenu setLabel "Ring Design"
  $RingDesignMenu setMode system
  $SolidsMenu setHidden true
  $SolidsMenu setLabel "Solids"
  $SolidsMenu setMode system
  $SurveyMenu setHidden true
  $SurveyMenu setLabel "Surveying"
  $SurveyMenu setMode system
  $StatusItemsToolbar setHidden false
  $StatusItemsToolbar setFloating false
  $StatusItemsToolbar setDelayedScript scripts/toolbars/status_items.tcl
  $StatusItemsToolbar setMode system
  $StatusItemsToolbar setLabel "Status Items"
  $MainToolbar setHidden false
  $MainToolbar setFloating false
  $MainToolbar setDelayedScript scripts/toolbars/main.tcl
  $MainToolbar setMode system
  $MainToolbar setLabel "Main"
  $EditToolbar setHidden true
  $EditToolbar setFloating false
  $EditToolbar setDelayedScript scripts/toolbars/edit.tcl
  $EditToolbar setMode system
  $EditToolbar setLabel "Edit"
  $CreateToolbar setHidden true
  $CreateToolbar setFloating false
  $CreateToolbar setDelayedScript scripts/toolbars/create.tcl
  $CreateToolbar setMode system
  $CreateToolbar setLabel "Create"
  $DisplayHideToolbar setHidden true
  $DisplayHideToolbar setFloating false
  $DisplayHideToolbar setDelayedScript scripts/toolbars/display.tcl
  $DisplayHideToolbar setMode system
  $DisplayHideToolbar setLabel "Display / Hide"
  $ViewToolbar setHidden true
  $ViewToolbar setFloating false
  $ViewToolbar setDelayedScript scripts/toolbars/view.tcl
  $ViewToolbar setMode system
  $ViewToolbar setLabel "View"
  $InquireToolbar setHidden true
  $InquireToolbar setFloating false
  $InquireToolbar setDelayedScript scripts/toolbars/inquire.tcl
  $InquireToolbar setMode system
  $InquireToolbar setLabel "Inquire"
  $FileToolsToolbar setHidden true
  $FileToolsToolbar setFloating false
  $FileToolsToolbar setDelayedScript scripts/toolbars/file_tools.tcl
  $FileToolsToolbar setMode system
  $FileToolsToolbar setLabel "File Tools"
  $BlockModelToolbar setHidden true
  $BlockModelToolbar setFloating false
  $BlockModelToolbar setDelayedScript scripts/toolbars/blockmodel.tcl
  $BlockModelToolbar setMode system
  $BlockModelToolbar setLabel "Block Model"
  $DatabaseToolbar setHidden true
  $DatabaseToolbar setFloating false
  $DatabaseToolbar setDelayedScript scripts/toolbars/database.tcl
  $DatabaseToolbar setMode system
  $DatabaseToolbar setLabel "Database"
  $DB_StringSectionsToolbar setHidden true
  $DB_StringSectionsToolbar setFloating false
  $DB_StringSectionsToolbar setDelayedScript scripts/toolbars/db_stringsections.tcl
  $DB_StringSectionsToolbar setMode system
  $DB_StringSectionsToolbar setLabel "DB String sections"
  $MineDesignToolbar setHidden true
  $MineDesignToolbar setFloating false
  $MineDesignToolbar setMode system
  $MineDesignToolbar setLabel "Mine Design"
  $SurfaceDesignToolbar setHidden true
  $SurfaceDesignToolbar setFloating false
  $SurfaceDesignToolbar setDelayedScript scripts/toolbars/mine_design.tcl
  $SurfaceDesignToolbar setMode system
  $SurfaceDesignToolbar setLabel "Surface Design"
  $BlastDesignToolbar setHidden true
  $BlastDesignToolbar setFloating false
  $BlastDesignToolbar setDelayedScript scripts/toolbars/blastdesign.tcl
  $BlastDesignToolbar setMode system
  $BlastDesignToolbar setLabel "Blast Design"
  $UndergroundDesignToolbar setHidden true
  $UndergroundDesignToolbar setFloating false
  $UndergroundDesignToolbar setDelayedScript scripts/toolbars/undergrounddesign.tcl
  $UndergroundDesignToolbar setMode system
  $UndergroundDesignToolbar setLabel "Underground Design"
  $RingDesignToolbar setHidden true
  $RingDesignToolbar setFloating false
  $RingDesignToolbar setDelayedScript scripts/toolbars/ringdesign.tcl
  $RingDesignToolbar setMode system
  $RingDesignToolbar setLabel "Ring Design"
  $SolidsToolbar setHidden true
  $SolidsToolbar setFloating false
  $SolidsToolbar setDelayedScript scripts/toolbars/solids.tcl
  $SolidsToolbar setMode system
  $SolidsToolbar setLabel "Solids"
  $MineschedProdToolbar setHidden true
  $MineschedProdToolbar setFloating false
  $MineschedProdToolbar setDelayedScript scripts/toolbars/ms_main.tcl
  $MineschedProdToolbar setMode system
  $MineschedProdToolbar setLabel "Minesched Production"
  $MineschedDevToolbar setHidden true
  $MineschedDevToolbar setFloating false
  $MineschedDevToolbar setDelayedScript scripts/toolbars/ms_minesched.tcl
  $MineschedDevToolbar setMode system
  $MineschedDevToolbar setLabel "Minesched Development"

}


GuidoMenuBar Tutorials {
    -mode user
    -hidden false
    set Menu0_items {
        GuidoMenuItem item0 {
            -label "CD to drill and blast folder"
            -command server macro:ssi_tutorials:cd.tcl|drill_and_blast
        }

        GuidoMenuItem item1 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|drill_and_blast.pdf
        }

        GuidoSeparator separator0 {
        }

        GuidoMenuItem item2 {
            -label "Data setup"
            -command server macro:01_data_setup.tcl
        }

        GuidoMenuItem item3 {
            -label "Auto rmc patterns"
            -command server macro:02_auto_rmc_patterns.tcl
        }

        GuidoMenuItem item4 {
            -label "Load and tie pattern"
            -command server macro:03a_load_&_tie_pattern1.tcl
        }

        GuidoMenuItem item5 {
            -label "V pattern"
            -command server macro:03b_v_pattern.tcl
        }

        GuidoMenuItem item6 {
            -label "Custom pattern"
            -command server macro:03c_custom_pattern.tcl
        }

        GuidoMenuItem item7 {
            -label "Blast boundary and solid"
            -command server macro:04_blast_boundary_&_solid.tcl
        }

        GuidoMenuItem item8 {
            -label "Blast report"
            -command server macro:05a_blast_report.tcl
        }

        GuidoMenuItem item9 {
            -label "Blast work order"
            -command server macro:05b_blast_work_order.tcl
        }

        GuidoMenuItem item10 {
            -label "Presplit holes segment"
            -command server macro:06a_presplit_holes_segment.tcl
        }

        GuidoMenuItem item11 {
            -label "Presplit holes line"
            -command server macro:06b_presplit_holes_line.tcl
        }

        GuidoMenuItem item12 {
            -label "Blast database"
            -command server macro:07_blast_database.tcl
        }

    }

    GuidoMenu Menu0 {
        -label Drill_and_blast
        -delayed_script $Menu0_items
    }

    set Menu1_items {
        GuidoMenuItem item13 {
            -label "CD to DTM surfaces folder"
            -command server macro:ssi_tutorials:cd.tcl|dtm_surfaces
        }

        GuidoMenuItem item14 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|dtm_surfaces.pdf
        }

        GuidoSeparator separator1 {
        }

        GuidoMenuItem item15 {
            -label "Create DTM from layer"
            -command server macro:_01a_create_dtm_from_layer.tcl
        }

        GuidoMenuItem item16 {
            -label "Create DTM from string file"
            -command server macro:_01b_create_dtm_from_string_file.tcl
        }

        GuidoMenuItem item17 {
            -label "Colour DTM by elevation"
            -command server macro:_02_colour_dtm_by_elevation.tcl
        }

        GuidoMenuItem item18 {
            -label "Fly through"
            -command server macro:_03_fly_through.tcl
        }

        GuidoMenuItem item19 {
            -label "Create boundary string"
            -command server macro:_04_create_boundary_string.tcl
        }

        GuidoMenuItem item20 {
            -label "Create cut and fill volumes"
            -command server macro:_05_cut_and_fill_volumes.tcl
        }

        GuidoMenuItem item21 {
            -label "Apply boundary string to trim DTM"
            -command server macro:_06_apply_boundary_string_trim_dtm.tcl
        }

        GuidoMenuItem item22 {
            -label "Sectioning pit"
            -command server macro:_07a_sectioning_pit.tcl
        }

        GuidoMenuItem item23 {
            -label "Sectioning pit by elevation"
            -command server macro:_07b_section_pit_by_elevation.tcl
        }

        GuidoMenuItem item24 {
            -label "Extract contours"
            -command server macro:_08_extract_contours.tcl
        }

        GuidoMenuItem item25 {
            -label "Draping a string over a DTM"
            -command server macro:_09_draping_a_string_over_a_dtm.tcl
        }

        GuidoMenuItem item26 {
            -label "Image drape"
            -command server macro:_10_image_drape.tcl
        }

        GuidoMenuItem item27 {
            -label "Upper triangles of 2 DTMs"
            -command server macro:_11a_upper_triangles_of_2dtm's.tcl
        }

        GuidoMenuItem item28 {
            -label "Lower triangles of 2 DTMs"
            -command server macro:_11b_lower_triangles_of_2dtm's.tcl
        }

        GuidoMenuItem item29 {
            -label "Create solid by intersecting 2 DTMs"
            -command server macro:_11c_create_solid_intersecting_2dtm's.tcl
        }

    }

    GuidoMenu Menu1 {
        -label DTM_surfaces
        -delayed_script $Menu1_items
    }

    set Menu2_items {
        GuidoMenuItem item30 {
            -label "CD to geostatistics folder"
            -command server macro:ssi_tutorials:cd.tcl|geostatistics
        }

        GuidoMenuItem item31 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|geostatistics.pdf
        }

        GuidoSeparator separator2 {
        }

        GuidoMenuItem item32 {
            -label Introduction
            -command server macro:_00_introduction.tcl
        }

        GuidoMenuItem item33 {
            -label "Create downhole composites"
            -command server macro:_01_create_downhole_composites.tcl
        }

        GuidoMenuItem item34 {
            -label "Cut outliers"
            -command server macro:_03_cut_outliers.tcl
        }

        GuidoMenuItem item35 {
            -label "Omnidirectional variogram"
            -command server macro:_04_omnidirectional_variogram.tcl
        }

        GuidoMenuItem item36 {
            -label "Data geometry and anisotrophy"
            -command server macro:_05_data_geometry_and_anisotropy.tcl
        }

        GuidoMenuItem item37 {
            -label "Primary variogram map"
            -command server macro:_06_primary_variogram_map.tcl
        }

        GuidoMenuItem item38 {
            -label "Secondary variogram map"
            -command server macro:_07_secondary_variogram_map.tcl
        }

        GuidoMenuItem item39 {
            -label "Anisotrophy ellipsoid"
            -command server macro:_08_anisotropy_ellipsoid.tcl
        }

        GuidoMenuItem item40 {
            -label "Create block model"
            -command server macro:_09_create_block_model.tcl
        }

        GuidoMenuItem item41 {
            -label "Ordinary kriging"
            -command server macro:_10_ordinary_kriging.tcl
        }

        GuidoMenuItem item42 {
            -label "Partial percentage"
            -command server macro:_11_partial_percentage.tcl
        }

        GuidoMenuItem item43 {
            -label "Block model basic statistics"
            -command server macro:_12_bm_basic_stats.tcl
        }

        GuidoMenuItem item44 {
            -label "Display partial percentage"
            -command server macro:_15a_display_partial_percent.tcl
        }

        GuidoMenuItem item45 {
            -label "Display blocks and composites"
            -command server macro:_15b_display_blocks&composites.tcl
        }

        GuidoMenuItem item46 {
            -label "Block model report"
            -command server macro:_16a_bm_report.tcl
        }

        GuidoMenuItem item47 {
            -label "Export centroids"
            -command server macro:_16b_export_centroids.tcl
        }

        GuidoMenuItem item48 {
            -label "Block model vs composites"
            -command server macro:_16c_bm_vs_composites.tcl
        }

    }

    GuidoMenu Menu2 {
        -label Geostatistics
        -delayed_script $Menu2_items
    }

    set Menu3_items {
        GuidoMenuItem item49 {
            -label "CD to introduction folder"
            -command server macro:ssi_tutorials:cd.tcl|introduction
        }

        GuidoMenuItem item50 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|introduction.pdf
        }

        GuidoSeparator separator3 {
        }

        GuidoMenuItem item51 {
            -label "String maths"
            -command server macro:_01a_string_maths.tcl
        }

        GuidoMenuItem item52 {
            -label "String maths pit ramp 2D distance"
            -command server macro:_02a_string_maths_pit_ramp_2d_dist.tcl
        }

        GuidoMenuItem item53 {
            -label "Apply boundary"
            -command server macro:_02b_apply_boundary.tcl
        }

        GuidoMenuItem item54 {
            -label "Classify strings"
            -command server macro:_03a_classify_strings.tcl
        }

        GuidoMenuItem item55 {
            -label "String styles"
            -command server macro:_03b_string_styles.tcl
        }

        GuidoMenuItem item56 {
            -label "2D transform"
            -command server macro:_04_2d_transform.tcl
        }

    }

    GuidoMenu Menu3 {
        -label Introduction
        -delayed_script $Menu3_items
    }

    set Menu4_items {
        GuidoMenuItem item57 {
            -label "CD to QuickStart folder"
            -command server macro:ssi_tutorials:cd.tcl|introduction
        }

        GuidoMenuItem item58 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|quick_start.pdf
        }

    }

    GuidoMenu Menu4 {
        -label QuickStart
        -delayed_script $Menu4_items
    }

    set Menu5_items {
        GuidoMenuItem item59 {
            -label "CD to Solids folder"
            -command server macro:ssi_tutorials:cd.tcl|solids
        }

        GuidoMenuItem item60 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|solids.pdf
        }

        GuidoSeparator separator4 {
        }

        GuidoMenuItem item61 {
            -label "Data preparation"
            -command server macro:_01_data_preparation.tcl
        }

        GuidoMenuItem item62 {
            -label "Create solid automatic triangulation"
            -command server macro:_02a_create_solid_automatic_triangulation.tcl
        }

        GuidoMenuItem item63 {
            -label "Create solid control strings"
            -command server macro:_02b_create_solid_control_strings.tcl
        }

        GuidoMenuItem item64 {
            -label "Create solid triangulate many segments"
            -command server macro:_02c_create_solid_triangulate_many_segments.tcl
        }

        GuidoMenuItem item65 {
            -label "Segment to a point"
            -command server macro:_03a_segment_to_a_point.tcl
        }

        GuidoMenuItem item66 {
            -label "Triangulate inside segment"
            -command server macro:_03b_triangulate_inside_segment.tcl
        }

        GuidoMenuItem item67 {
            -label "Triangulate one triangle"
            -command server macro:_03c_triangulate_one_triangle.tcl
        }

        GuidoMenuItem item68 {
            -label "Triangulate manual"
            -command server macro:_03d_triangulate_manual.tcl
        }

        GuidoMenuItem item69 {
            -label Bifurcation
            -command server macro:_04_bifurcation.tcl
        }

        GuidoMenuItem item70 {
            -label "Centre line and profile"
            -command server macro:_05_centre_line_and_profile.tcl
        }

        GuidoMenuItem item71 {
            -label "Edit solid"
            -command server macro:_06_edit_solid.tcl
        }

        GuidoMenuItem item72 {
            -label "Solids validation"
            -command server macro:_07_solids_validation.tcl
        }

        GuidoMenuItem item73 {
            -label "Solids union"
            -command server macro:_08a_solids_union.tcl
        }

        GuidoMenuItem item74 {
            -label "Solids intersection"
            -command server macro:_08b_solids_intersection.tcl
        }

        GuidoMenuItem item75 {
            -label "DTM outesect solid"
            -command server macro:_08c_dtm_outersect_solid.tcl
        }

        GuidoMenuItem item76 {
            -label "{0} Solid above DTM {1}"
            -command server macro:_08d_solid_above_dtm.tcl
        }

        GuidoMenuItem item77 {
            -label "DTM outside solid"
            -command server macro:_08e_dtm_outside_solid.tcl
        }

        GuidoMenuItem item78 {
            -label "Upper triangles of 2 DTMs"
            -command server macro:_08f_upper_triangles_of_2dtm.tcl
        }

        GuidoMenuItem item79 {
            -label "Lower triangles of 2 DTMs"
            -command server macro:_08g_lower_triangles_of_2dtm.tcl
        }

        GuidoMenuItem item80 {
            -label "Create solid intersecting 2 DTMs"
            -command server macro:_08h_create_solid_intersecting_2dtms.tcl
        }

        GuidoMenuItem item81 {
            -label "View solid model"
            -command server macro:_09_view_solid_model.tcl
        }

        GuidoMenuItem item82 {
            -label "Slice objects"
            -command server macro:_10a_slice_objects.tcl
        }

        GuidoMenuItem item83 {
            -label "Centre line slice"
            -command server macro:_10b_centre_line_slice.tcl
        }

        GuidoMenuItem item84 {
            -label "Solids volume report"
            -command server macro:_11_solids_volume_report.tcl
        }

        GuidoMenuItem item85 {
            -label "Intersect drillholes solids"
            -command server macro:_12_intersect_drillholes_solids.tcl
        }

        GuidoMenuItem item86 {
            -label "Optimise trisolation"
            -command server macro:_13_optimise_trisolation.tcl
        }

        GuidoMenuItem item87 {
            -label "Import CMS"
            -command server macro:_14a_import_cms.tcl
        }

        GuidoMenuItem item88 {
            -label "Section CMS"
            -command server macro:_14b_section_cms.tcl
        }

        GuidoMenuItem item89 {
            -label "Retriangulate CMS slices"
            -command server macro:_14c_retriangulate_cms_slices.tcl
        }

        GuidoMenuItem item90 {
            -label "CMS volumes"
            -command server macro:_14d_cms_volumes.tcl
        }

        GuidoMenuItem item91 {
            -label "Create underground model"
            -command server macro:_15_create_underground_model.tcl
        }

        GuidoMenuItem item92 {
            -label "Triangulation algorithm"
            -command server macro:_16_triangulation_algorithm.tcl
        }

    }

    GuidoMenu Menu5 {
        -label Solids
        -delayed_script $Menu5_items
    }

    set Menu6_items {
        GuidoMenuItem item93 {
            -label "CD to Underground mine design folder"
            -command server macro:ssi_tutorials:cd.tcl|underground_mine_design
        }

        GuidoMenuItem item94 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|underground_mine_design.pdf
        }

        GuidoSeparator separator5 {
        }

        GuidoMenuItem item95 {
            -label "Create centre line between ore zones"
            -command server macro:_01_create_centreline_between_ore_zones.tcl
        }

        GuidoMenuItem item96 {
            -label "Create access drives to ore zones"
            -command server macro:_02_create_access_drives_to_ore_zones.tcl
        }

        GuidoMenuItem item97 {
            -label "Create main decline"
            -command server macro:_03_create_main_decline.tcl
        }

        GuidoMenuItem item98 {
            -label "Create road outline"
            -command server macro:_04_create_road_outline.tcl
        }

        GuidoMenuItem item99 {
            -label "Display profiles"
            -command server macro:_05a_display_profiles.tcl
        }

        GuidoMenuItem item100 {
            -label "Triangulate centreline"
            -command server macro:_05b_triangulate_centreline.tcl
        }

        GuidoMenuItem item101 {
            -label "Drive volume"
            -command server macro:_05c_drive_volume.tcl
        }

    }

    GuidoMenu Menu6 {
        -label Underground_mine_design
        -delayed_script $Menu6_items
    }

    set Menu7_items {
        GuidoMenuItem item102 {
            -label "CD to Underground ring design folder"
            -command server macro:ssi_tutorials:cd.tcl|underground_ring_design
        }

        GuidoMenuItem item103 {
            -label "View PDF Tutorial"
            -command server macro:ssi_tutorials:open_file.tcl|underground_ring_design.pdf
        }

        GuidoSeparator separator6 {
        }

        GuidoMenuItem item104 {
            -label "Create centre line"
            -command server macro:01_create_centreline.tcl
        }

        GuidoMenuItem item105 {
            -label "Slice objects"
            -command server macro:02_slice_objects.tcl
        }

        GuidoMenuItem item106 {
            -label Setup
            -command server macro:03_setup.tcl
        }

        GuidoMenuItem item107 {
            -label "Move mast"
            -command server macro:04_move_mast.tcl
        }

        GuidoMenuItem item108 {
            -label "Create holes"
            -command server macro:05a_create_holes.tcl
        }

        GuidoMenuItem item109 {
            -label "Report holes"
            -command server macro:05b_report_holes.tcl
        }

        GuidoMenuItem item110 {
            -label Plotting
            -command server macro:06_plotting.tcl
        }

    }

    GuidoMenu Menu7 {
        -label Underground_ring_design
        -delayed_script $Menu7_items
    }

}

