anchor.diff:  //        let documentParsed  = x.DocumentContext.DocumentParsed.Subscribe(fun o e -> x.PathUpdated())
           x.DocumentContext.DocumentParsed.Add(x.UpdateDocumentOutline)
   
  -    //override x.IsValidInContext _ =
  +    override x.IsValidInContext _ =
  +        true
       //    IdeApp.Workbench.ActiveDocument <> null && IdeApp.Workbench.ActiveDocument.Name = x.DocumentContext.Name
   
       member private x.UpdateDocumentOutline _ =
  -        let ast = 
  +        let ast =
               maybe {let! context = x.DocumentContext |> Option.ofNull
                      let! parsedDocument = context.ParsedDocument |> Option.ofNull
                      let! ast = parsedDocument.Ast |> Option.tryCast<ParseAndCheckResults>
  
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:                     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 () =
              ()
  