anchor.diff:          DispatchService.AssertGuiThread ()
           Gdk.Threads.Enter ()
           ast |> Option.iter (fun ast ->
  -            treeStore.AppendValues("2") |> ignore
  +            //treeStore.AppendValues(TreeIter.Zero, [|"1"|]) |> ignore
  +            treeStore.AppendValues("1") |> ignore
   
               match treeView with
  -            | Some(treeView) -> treeView.ExpandAll ()
  +            | Some(treeView) -> 
  +                treeView.ExpandAll ()
  +                //treeView.Selection.SelectIter (TreeIter.Zero)
               | None -> ()
               ()
  +
           )
           Gdk.Threads.Leave ()
  - 
  +
           ()
   
       override x.Dispose () =
  
positive.code:                     let setCellIcon (column: TreeViewColumn) (cellRenderer: CellRenderer) (treeModel: TreeModel) (iter: TreeIter) =
                          ()
  
                      let refillTree _ = 
                          DispatchService.AssertGuiThread ()
                          Gdk.Threads.Enter ()
                          treeStore.AppendValues("1") |> ignore
                          Gdk.Threads.Leave ()
                          ()
                      let treeStore = new TreeStore(typedefof<Object>)
                      let padTreeView = new PadTreeView(treeStore)
                      let treeView = Some padTreeView
                      let pixRenderer = new CellRendererImage ()
                      pixRenderer.Xpad <- 0u
                      pixRenderer.Ypad <- 0u
  
negative.code:                     padTreeView.TextRenderer.Ypad <- 0u
  
                      let treeCol = new TreeViewColumn ()
                      treeCol.Title <- "HI I AM A COLUMN"
                      treeCol.PackStart (pixRenderer, false)
                      // treeCol.AddAttribute (padTreeView.TextRenderer,"text",1)
  
                      treeCol.SetCellDataFunc (pixRenderer, new TreeCellDataFunc (setCellIcon))
                      treeCol.PackStart (padTreeView.TextRenderer, true);
  
                      treeCol.SetCellDataFunc (padTreeView.TextRenderer, new TreeCellDataFunc (setCellText))
                      padTreeView.AppendColumn (treeCol) |> ignore
  
                      padTreeView.HeadersVisible <- true
                      padTreeView.Realized.Add refillTree
                      let sw = new CompactScrolledWindow()
                      //padTreeView.Model <- treeStore
                      sw.Add padTreeView
                      sw.ShowAll ()
                      sw :> Widget
  
  
          member x.GetToolbarWidgets () =
              List.empty<Widget> :> _
          member x.ReleaseOutlineWidget () =
              ()
  