-editable true

-editable false

-menu $treePopup

-menu $treeSwitcher

-menu_enabled true

-menu_enabled false

-branch_menu $branchPopup

-branch_menu $branchSorter

-branch_menu_enabled true

-branch_menu_enabled false

-leaf_menu $leafPopup

-leaf_menu $leafDeleter

set rootNode [$plotParameters getRootNode]

set currentNode [$plotParameters getSelectedNode]

set node [$companyInfo getSelectedNode]

$treeHandle setSelectedNode $survey

$plotParams setSelectedNode $A0params

$plotParameters addSelectedNode $newPlotNode

$plotParameters removeSelectedNode

set selectedNode 0
set node [$siteInfo getSelectedNodes $selectedNode]
for {set i 0} {$node != -1} {
  puts [$node getName]
  incr selectedNode
  set node [$siteInfo getSelectedNodes $selectedNode]
}       

for {set i 0} {$i < [$siteInfo getSelectionCount]} {incr i} {
  set node [$siteInfo getSelectedNodes $i]
  puts [$node getName]
}       

$siteInfo removeAllSelections

$tree setTreeIcons icons/op.gif icons/cl.gif icons/leaf.gif

$siteInfo setEditable false

$plotParameters setbranchMenu $treeBranchMenu

$siteInfo setBranchMenu $companyPopup

$plotParameters setLeafMenu $treeLeafMenu

$siteInfo setLeafMenu $openPitPopup

$plotParameters setRefreshedEnabled true

$siteInfo setRefreshedEnabled false

$plotParameters scrollPathToVisible $A0

$siteInfo scrollPathToVisible $surveyBranch

$plotParameters graftTreeNode $A3 $A0parameters

$siteInfo graftTreeNode $surveyBranch geoGrid

set node [$plotParameters getLastDropNode]

-menu $branchPopup

-menu $treeSwitcher

-menu_enabled true

-menu_enabled false

$rootNode addChild $childNode

$easternAreaBranch addChild $newProjectBranch

set totalBranches [$rootNode getChildCount]

set noPits [$operatingPits getChildCount]

set firstBranch [$rootNode getChildAt 0]

set pit [$operatingPits getChildAt 3]

set ndx [$rootNode getChildIndex $newProjectBranch]

set pos [$operatingPits getChildIndex $bigPit]

$rootNode setChildIndex $newProjectBranch 0

$operatingPits setChildIndex $bigPit 4

$rootNode removeChild $childNode

$operatingPits removeChild $bigPit

-menu $branchPopup

-menu $treeSwitcher

-menu_enabled true

-menu_enabled false

set parentNode [$node getParent]

set leaf [$node isLeaf]

if {[$node isLeaf]} then {puts "Leaf node"}

set menuHandle [$treeNode getMenu]

$eastProject setmenu $branchPopup

$pit1Node setmenu $LeafPopup

set menuState [$treeNode isMenuEnabled]

if {![$node isMenuEnabled]} then {$node setMenuEnabled true}

$treeNode setMenuEnabled true

$pitNode setMenuEnabled false

# GuidoTree Example 1
set formDef {
  proc showPanel {panelHandle} {
    global siteInfo surveyGrid XXX
    $panelHandle setVisible true
    set selectedNode 0
  }
  proc hidePanel {panelHandle} {
    $panelHandle setVisible false
  }
  GuidoForm guidoTree {
    -label "Using GuidoTree"
    -layout BoxLayout Y_AXIS
    -default_buttons
    GuidoSplitPane splitPane {
      -divider_location 30%
      GuidoScrollPane scrollPane {
        -height 10
        -width 10
        GuidoTree siteInfo {
          -label "Site Information"
          -editable false
          GuidoTreeBranch survey {
            -label "Survey"
            GuidoTreeLeaf surveyStaff {
              -label Staff
              -action focusGained {[showPanel $surveyStaffPanel]}
              -action focusLost   {[hidePanel $surveyStaffPanel]}
            }
            GuidoTreeLeaf surveySetup {
              -label Setup
              -action focusGained {[showPanel $surveySetupPanel]}
              -action focusLost   {[hidePanel $surveySetupPanel]}
            }
            GuidoTreeLeaf surveyGrid {
              -label Grid
              -action focusGained {[showPanel $surveyGridPanel]}
              -action focusLost   {[hidePanel $surveyGridPanel]}
            }
          }
          GuidoTreeBranch geology {
            -label Geology
            GuidoTreeLeaf geologyStaff {
              -label Staff
              -action focusGained {[showPanel $geologyStaffPanel]}
              -action focusLost   {[hidePanel $geologyStaffPanel]}
            }
            GuidoTreeLeaf geologySetup {
              -label Setup
              -action focusGained {[showPanel $geologySetupPanel]}
              -action focusLost   {[hidePanel $geologySetupPanel]}
            }
            GuidoTreeLeaf geologyGrid {
              -label Grid
              -action focusGained {[showPanel $geologyGridPanel]}
              -action focusLost   {[hidePanel $geologyGridPanel]}
            }
          }
          GuidoTreeBranch engineering {
            -label Engineering
            GuidoTreeLeaf engineeringStaff {
              -label Staff
              -action focusGained {[showPanel $engineeringStaffPanel]}
              -action focusLost   {[hidePanel $engineeringStaffPanel]}
            }
            GuidoTreeLeaf engineeringSetup {
              -label Setup
              -action focusGained {[showPanel $engineeringSetupPanel]}
              -action focusLost   {[hidePanel $engineeringSetupPanel]}
            }
            GuidoTreeLeaf engineeringGrid {
              -label Grid
              -action focusGained {[showPanel $engineeringGridPanel]}
              -action focusLost   {[hidePanel $engineeringGridPanel]}
            }
          }
        }
      }
      GuidoPanel content {
        -width 40
        -height 10
        -layout OverlayLayout
        # --------------------------------------------------
        # Survey
        GuidoPanel surveyStaffPanel {
          -label "Survey Staff"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout BoxLayout
          GuidoScrollPane surveyScroller {
            -height 5
            GuidoTable surveyStaffTable {
              -instances 1 1 50
              GuidoField surveyName {
                -label "Name"
                -width 14
              }
              GuidoField surveyJob {
                -label "Job Title"
                -width 14
              }
            }
          }
        }
        GuidoPanel surveySetupPanel {
          -label "Survey System Setup"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout CentreLineLayout
          GuidoFileBrowserField surveyTransFile {
            -label "Translate file"
            -width 27
            -file_mask "*.ssi"
          }
          GuidoFileBrowserField surveyDir {
            -label "Master folder"
            -width 27
            -browser_type Directory
          }
        }
        GuidoPanel surveyGridPanel {
          -label "Survey Grid Transformation Coordinates"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout BorderLayout
          GuidoPanel surveyGridPanel1 {
            -position West
            -layout CentreLineLayout
            GuidoField surveyX1 {
              -label "X1"
              -width 10
            }
            GuidoField surveyY1 {
              -label "Y1"
              -width 10
            }
          }
          GuidoPanel surveyGridPanel2 {
            -position Center
            -layout CentreLineLayout
            GuidoField surveyX2 {
              -label "X2"
              -width 10
            }
            GuidoField surveyY2 {
              -label "Y2"
              -width 10
            }
          }
        }
        # --------------------------------------------------
        # Geology
        GuidoPanel geologyStaffPanel {
          -label "Geology Staff"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout BoxLayout
          GuidoScrollPane geologyScroller {
            -height 5
            GuidoTable geologyStaffTable {
              -instances 1 1 50
              GuidoField geologyName {
                -label "Name"
                -width 14
              }
              GuidoField geologyJob {
                -label "Job Title"
                -width 14
              }
            }
          }
        }
        GuidoPanel geologySetupPanel {
          -label "Geology System Setup"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout CentreLineLayout
          GuidoFileBrowserField geologyTransFile {
            -label "Translate file"
            -width 27
            -file_mask "*.ssi"
          }
          GuidoFileBrowserField geologyDir {
            -label "Master folder"
            -width 27
            -browser_type Directory
          }
        }
        GuidoPanel geologyGridPanel {
          -label "Geology Grid Transformation Coordinates"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout BorderLayout
          GuidoPanel geologyGridPanel1 {
            -position West
            -layout CentreLineLayout
            GuidoField geologyX1 {
              -label "X1"
              -width 10
            }
            GuidoField geologyY1 {
              -label "Y1"
              -width 10
            }
          }
          GuidoPanel geologyGridPanel2 {
            -position Center
            -layout CentreLineLayout
            GuidoField geologyX2 {
              -label "X2"
              -width 10
            }
            GuidoField geologyY2 {
              -label "Y2"
              -width 10
            }
          }
        }
        # --------------------------------------------------
        # Engineering
        GuidoPanel engineeringStaffPanel {
          -label "Engineering Staff"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout BoxLayout
          GuidoScrollPane engineeringScroller {
            -height 5
            GuidoTable engineeringStaffTable {
              -instances 1 1 50
              GuidoField engineeringName {
                -label "Name"
                -width 14
              }
              GuidoField engineeringJob {
                -label "Job Title"
                -width 14
              }
            }
          }
        }
        GuidoPanel engineeringSetupPanel {
          -label "Engineering System Setup"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout CentreLineLayout
          GuidoFileBrowserField engineeringTransFile {
            -label "Translate file"
            -width 27
            -file_mask "*.ssi"
          }
          GuidoFileBrowserField engineeringDir {
            -label "Master folder"
            -width 27
            -browser_type Directory
          }
        }
        GuidoPanel engineeringGridPanel {
          -label "Engineering Grid Transformation Coordinates"
          -border etched true
          -width 40
          -height 10
          -visible false
          -layout BorderLayout
          GuidoPanel engineeringGridPanel1 {
            -position West
            -layout CentreLineLayout
            GuidoField engineeringX1 {
              -label "X1"
              -width 10
            }
            GuidoField engineeringY1 {
              -label "Y1"
              -width 10
            }
          }
          GuidoPanel engineeringGridPanel2 {
            -position Center
            -layout CentreLineLayout
            GuidoField engineeringX2 {
              -label "X2"
              -width 10
            }
            GuidoField engineeringY2 {
              -label "Y2"
              -width 10
            }
          }
        }
      }
    }
  }
}
# setup some data for demonstration purposes. In the real world this information
# would more than likely be read from a configuration file or database.
set surveyName(0)   "B Accurate"
set surveyJob(0)    "Senior Surveyor"
set surveyName(1)   "C M Perfect"
set surveyJob(1)    "Surveyor"
set surveyTransFile "/Surpac/Survey/trans_srv.ssi"
set surveyDir       "/MiningData/Survey"
set surveyX1        "1000"
set surveyY1        "1000"
set surveyX2        "2000"
set surveyY2        "2000"
set geologyName(0)   "A Composite"
set geologyJob(0)    "Senior Geologist"
set geologyName(1)   "D H Sampler"
set geologyJob(1)    "Geologist"
set geologyTransFile "/Surpac/Geology/trans_geo.ssi"
set geologyDir       "/MiningData/Geology"
set geologyX1        "3000"
set geologyY1        "3000"
set geologyX2        "4000"
set geologyY2        "4000"
set engineeringName(0)   "P Ramp"
set engineeringJob(0)    "Senior Surveyor"
set engineeringName(1)   "Z Ring"
set engineeringJob(1)    "Surveyor"
set engineeringTransFile "/Surpac/Engineering/trans_eng.ssi"
set engineeringDir       "/MiningData/Engineering"
set engineeringX1        "5000"
set engineeringY1        "5000"
set engineeringX2        "6000"
set engineeringY2        "6000"
# Create and run the form
SclCreateGuidoForm formHandle $formDef {}
$formHandle SclRun {}
if {"$_status" == "cancel"} {
  puts "Cancelling"
  return
}
      

# GuidoTree Example 2 - A Dynamic Tree
set formDef {
  # procedure to create the tree prior to the form being displayed
  proc populateTree {} {
    global company companyName companyOpps
    set rootNode [$company getRootNode]
    $rootNode setLabel [$companyName getCurrentValue]
    set dataBuf [$companyOpps getCurrentValue]
    foreach project $dataBuf {
      set projectName  [lindex $project 0]
      set pits         [lindex $project 5]
      GuidoTreeBranch "$projectName" {
        -label $projectName
        -action focusGained {[projects]}
      }
      upvar 0 $projectName branchNode
      $rootNode addChild $branchNode
      foreach pit $pits {
        set pitName [lindex $pit 0]
        GuidoTreeLeaf "$pitName" {
          -label $pitName
          -action focusGained {[pits]}
        }
        upvar 0 $pitName leafNode
        $branchNode addChild $leafNode
      }
    }
    $company setSelectedNode $branchNode
    
  }
  # procedure to set the content of the project panel
  # when one of the project tree nodes is selected
  proc displayProject {} {
    global company companyName companyOpps
    global projectStatus startDate finishDate pitSuper
    set currentNode [$company getSelectedNode]
    set thisProject [$currentNode getName]
    set dataBuf [$companyOpps getCurrentValue]
    foreach project $dataBuf {
      set projectName  [lindex $project 0]
      if {"$thisProject" == "$projectName"} {
        $projectStatus setCurrentValue [lindex $project 1]
        $startDate     setCurrentValue [lindex $project 2]
        $finishDate    setCurrentValue [lindex $project 3]
        $pitSuper      setCurrentValue [lindex $project 4]
        break
      }
    }
  }
  # procedure to set the content of the pit panel
  # when one of the pit tree nodes is selected
  proc displayPit {} {
    global company companyName companyOpps
    global pitStatus a4 a3 a0
    set currentNode [$company getSelectedNode]
    set thisPit     [$currentNode getName]
    set thisProject [[$currentNode getParent] getName]
    set dataBuf [$companyOpps getCurrentValue]
    foreach project $dataBuf {
      set projectName  [lindex $project 0]
      if {"$thisProject" == "$projectName"} {
        foreach pit [lindex $project 5] {
          set pitName  [lindex $pit 0]
          if {"$thisPit" == "$pitName"} {
            $pitStatus setCurrentValue [lindex $pit 1]
            $a4 setCurrentValue [lindex $pit 2]
            $a3 setCurrentValue [lindex $pit 3]
            $a0 setCurrentValue [lindex $pit 4]
            break;
          }
        }
      }
    }
  }
  # procedure to set the content of the project panel and then make it visible
  proc projects {} {
    global projectPanel pitPanel tb1
    $projectPanel setVisible true
    $pitPanel setVisible false
    displayProject
  }
  # procedure to set the content of the pit panel and then make it visible
  proc pits {} {
    global projectPanel pitPanel
    $projectPanel setVisible false
    $pitPanel setVisible true
    displayPit
  }
  # procedure invoked from the add menu item on the branch menu
  proc addProject {} {
    puts "Adding a new project"
  }
  # procedure invoked from the rename menu item on the branch menu
  proc renameProject {} {
    puts "Rename a project"
  }
  # procedure invoked from the delete menu item on the branch menu
  proc deleteProject {} {
    puts "Delete a project"
  }
  # the branch menu definition
  GuidoPopupMenu branchMenu {
    GuidoMenuItem bAdd {
      -label "New project"
       -action mouseReleased {[addProject]}
    }
    GuidoMenuItem bRename {
      -label "Rename project"
      -action mouseReleased {[renameProject]}
    }
    GuidoMenuItem bDelete {
      -label "Delete project"
      -action mouseReleased {[deleteProject]}
    }
  }
  # procedure invoked from the add menu item on the leaf menu
  proc addPit {} {
    puts "Adding a new pit"
  }
  # procedure invoked from the rename menu item on the leaf menu
  proc renamePit {} {
    puts "Rename a pit"
  }
  # procedure invoked from the delete menu item on the leaf menu
  proc deletePit {} {
    puts "Delete a pit"
  }
  # the leaf menu definition
  GuidoPopupMenu leafMenu {
    GuidoMenuItem lAdd {
      -label "New pit"
       -action mouseReleased {[addPit]}
    }
    GuidoMenuItem lRename {
      -label "Rename pit"
      -action mouseReleased {[renamePit]}
    }
    GuidoMenuItem lDelete {
      -label "Delete pit"
      -action mouseReleased {[deletePit]}
    }
  }
  # the actual form definition starts here
  GuidoForm guidoTree {
    -label "Using GuidoTree"
    -layout BoxLayout Y_AXIS
    -default_buttons
    -action initial {[populateTree]}
    GuidoSplitPane splitPane {
      GuidoScrollPane scrollPane {
        -height 10
        -width 10
        GuidoTree company {
          -editable false
          -branch_menu $branchMenu
          -leaf_menu $leafMenu
        }
      }
      GuidoPanel content {
        -width 30
        -height 10
        -layout OverlayLayout
        # this panel is never visible, its is used to hold the data buffers
        GuidoPanel projectPanel {
          -visible false
          GuidoField companyName {}
          GuidoField companyOpps {}
        }
        GuidoPanel projectPanel {
          -label "Project Options"
          -border etched true
          -width 30
          -height 10
          -visible false
          -layout CentreLineLayout
          GuidoComboBox projectStatus {
            -label "Project status"
            -width 7
            -value_in Exploration Production Both
          }
          GuidoFiller fil1a {
            -height 1
          }
          GuidoFiller fil1b {}
          GuidoFiller fil2a {}
          GuidoLabel lab1 {
            -label "Project Details"
            -font_highlight 0 0 200
          }
          GuidoField startDate {
            -label "Start date"
            -width 10
          }
          GuidoField finishDate {
            -label "Finish date"
            -width 10
          }
          GuidoField pitSuper {
            -label "Pit Super"
            -width 10
          }
        }
        GuidoPanel pitPanel {
          -label "Open Pit Options"
          -border etched true
          -width 30
          -height 10
          -visible false
          -layout CentreLineLayout
          GuidoComboBox pitStatus {
            -label "Pits status"
            -width 7
            -value_in Design Production Completed
          }
          GuidoFiller fil1a {
            -height 1
          }
          GuidoFiller fil1b {}
          GuidoFiller fil2a {}
          GuidoLabel lab1 {
            -label "Plotting scales"
            -font_highlight 0 0 200
          }
          GuidoComboBox a4 {
            -label "A4 plots"
            -width 7
            -value_in 250 500 1000 2000 5000
          }
          GuidoComboBox a3 {
            -label "A3 plots"
            -width 7
            -value_in 250 500 1000 2000 5000
          }
          GuidoComboBox a0 {
            -label "A0 plots"
            -width 7
            -value_in 250 500 1000 2000 5000
          }
        }
      }
    }
  }
}
# setup some data for demonstration purposes. In the real world this information
# would more than likely be read from a configuration file or database.
set companyName "Ninja Turtle Mining"
set companyOpps [list [list \
                      [list "Donatello" "Production" "12-Apr-05" "" "Donatello" [list \
                             [list "Master Splinter" Completed 250 250 1000] \
                             [list "The Shreder" Production 250 500 1000] \
                             [list "Rat King" Production 500 1000 5000] \
                             [list "Slash" Design 250 500 1000] \
                       ]] \
                       [list "Leonardo" "Production" "12-Apr-05" "" "Leonardo" [list \
                             [list "April O'Niel" Production 250 250 1000] \
                             [list "Casey Jones" Design 250 500 1000] \
                       ]] \
                       [list "Michelangelo" "Production" "12-Apr-05" "" "Michelangelo" [list \
                             [list "Hun" Completed 250 250 1000] \
                             [list "Krangr" Production 250 500 1000] \
                             [list "Behop" Production 500 1000 5000] \
                             [list "Rock Steady" Production 250 500 1000] \
                       ]] \
                       [list "Raphael" "Exploration" "12-Apr-05" "" "Raphael" [list \
                             [list "Wingnut" Production 250 250 1000] \
                             [list "Screwloose" Production 250 500 1000] \
                             [list "Mondo Gecko" Design 500 1000 5000] \
                       ]] \
                ]]
# Create and run the form
# Note that the value for the invisible form fields companyName & companyOpps is set above!
SclCreateGuidoForm formHandle $formDef {}
$formHandle SclRun {}
if {"$_status" == "cancel"} {
  puts "Cancelling"
  return
}