anchor.diff:      let pathChanged = new Event<_,_>()
       let mutable currentPath = [||]
       let mutable subscriptions = []
  -    member x.Document = base.Document
  +    member x.Document = base.Editor
       member x.GetEntityMarkup(node: FSharpNavigationDeclarationItem) =
           let prefix = match node.Kind with
                        | NamespaceDecl-> "Namespace: "
  
positive.code: 
      override x.Initialize() =
          currentPath <- [| new PathEntry("No selection", Tag = null) |]
          let positionChanged = x.Document.Editor.Caret.PositionChanged.Subscribe(fun o e -> x.PathUpdated())
          let documentParsed  = x.Document.DocumentParsed.Subscribe(fun o e -> x.PathUpdated())
          subscriptions <- positionChanged :: documentParsed :: subscriptions
          
      member private x.PathUpdated() =
          let loc = x.Document.Editor.Caret.Location
          
          if x.Document.ParsedDocument = null ||
             IdeApp.Workbench.ActiveDocument <> x.Document then () else
          match x.Document.ParsedDocument.Ast with
          | :? ParseAndCheckResults as ast ->
  
              let posGt (p1Column, p1Line) (p2Column, p2Line) = 
  
negative.code: open MonoDevelop.Core
  open MonoDevelop.Components
  open MonoDevelop.Ide
  open MonoDevelop.Ide.Editor.Extension
  open MonoDevelop.Ide.Gui
  open MonoDevelop.Ide.Gui.Content
  open Microsoft.FSharp.Compiler.SourceCodeServices
  