anchor.diff:                      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 (setCellIcon))
  +                    treeCol.SetCellDataFunc (padTreeView.TextRenderer, new TreeCellDataFunc (setCellText))
                       padTreeView.AppendColumn (treeCol) |> ignore
   
  -                    padTreeView.HeadersVisible <- false
  -                    padTreeView.Realized.Add (refillTree)
  +                    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 () =
               ()
  -        
  
positive.code:         DispatchService.AssertGuiThread ()
          Gdk.Threads.Enter ()
          ast |> Option.iter (fun ast ->
              treeStore.AppendValues("2") |> ignore
  
              match treeView with
              | Some(treeView) -> treeView.ExpandAll ()
              | None -> ()
              ()
          )
          Gdk.Threads.Leave ()
   
          ()
  
      override x.Dispose () =
  
negative.code:                     let setCellIcon (column: TreeViewColumn) (cellRenderer: CellRenderer) (treeModel: TreeModel) (iter: TreeIter) =
                          ()
  
                      let setCellText (column: TreeViewColumn) (cellRenderer: CellRenderer) (treeModel: TreeModel) (iter: TreeIter) =
                        Console.WriteLine ("F# tree func");
  
                        let renderer = cellRenderer :?> CellRendererText
                        let o = treeModel.GetValue (iter, 0)
                        renderer.Text <- (string o)
                        ()
  
                      let refillTree _ =
                          DispatchService.AssertGuiThread ()
                          Gdk.Threads.Enter ()
                          treeStore.AppendValues("23") |> ignore
                          Gdk.Threads.Leave ()
                          ()
                      treeStore <- new TreeStore(typedefof<obj>)
                      let padTreeView = new PadTreeView(treeStore)
                      treeView <- Some padTreeView
                      let pixRenderer = new CellRendererImage ()
                      pixRenderer.Xpad <- 0u
                      pixRenderer.Ypad <- 0u
  