anchor.diff:                      let setCellIcon (column: TreeViewColumn) (cellRenderer: CellRenderer) (treeModel: TreeModel) (iter: TreeIter) =
                           ()
   
  -                    let refillTree _ = 
  +                    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("1") |> ignore
  +                        treeStore.AppendValues("23") |> ignore
                           Gdk.Threads.Leave ()
                           ()
  -                    let treeStore = new TreeStore(typedefof<Object>)
  +                    treeStore <- new TreeStore(typedefof<obj>)
                       let padTreeView = new PadTreeView(treeStore)
  -                    let treeView = Some padTreeView
  +                    treeView <- Some padTreeView
                       let pixRenderer = new CellRendererImage ()
                       pixRenderer.Xpad <- 0u
                       pixRenderer.Ypad <- 0u
  
positive.code: //        let documentParsed  = x.DocumentContext.DocumentParsed.Subscribe(fun o e -> x.PathUpdated())
          x.DocumentContext.DocumentParsed.Add(x.UpdateDocumentOutline)
  
      //override x.IsValidInContext _ =
      //    IdeApp.Workbench.ActiveDocument <> null && IdeApp.Workbench.ActiveDocument.Name = x.DocumentContext.Name
  
      member private x.UpdateDocumentOutline _ =
          let ast = 
              maybe {let! context = x.DocumentContext |> Option.ofNull
                     let! parsedDocument = context.ParsedDocument |> Option.ofNull
                     let! ast = parsedDocument.Ast |> Option.tryCast<ParseAndCheckResults>
  
negative.code:         DispatchService.AssertGuiThread ()
          Gdk.Threads.Enter ()
          ast |> Option.iter (fun ast ->
              //treeStore.AppendValues(TreeIter.Zero, [|"1"|]) |> ignore
              treeStore.AppendValues("1") |> ignore
  
              match treeView with
              | Some(treeView) -> 
                  treeView.ExpandAll ()
                  //treeView.Selection.SelectIter (TreeIter.Zero)
              | None -> ()
              ()
  
          )
          Gdk.Threads.Leave ()
  
          ()
  
      override x.Dispose () =
  