anchor.diff:              SnapshotPoint.OfPos(snapshot, r.End))
   
   type Tagger
  -    ( buffer: ITextBuffer
  -    , textDocument: ITextDocument
  -    , serviceProvider : IServiceProvider
  -    , projectFactory: ProjectFactory
  -    , languageService: VSLanguageService) as self = 
  +    (buffer: ITextBuffer,
  +     textDocument: ITextDocument,
  +     serviceProvider : IServiceProvider,
  +     projectFactory: ProjectFactory,
  +     languageService: VSLanguageService) as self = 
   
       let tagsChanged = Event<_,_>()
       let mutable snapshotSpans : SnapshotSpan [] = [||]
  
positive.code:             UpdateDelay,
              doUpdate)
  
      do
          doUpdate ()
  
      interface ITagger<IOutliningRegionTag> with
  
          member __.GetTags nssc  = getTags nssc
  
          [<CLIEvent>]
          member __.TagsChanged : IEvent<_,_> = tagsChanged.Publish
  
negative.code: open System.Threading
  open System.Diagnostics
  
  let [<Literal>] private UpdateDelay = 200us
  let [<Literal>] private MaxTooltipLines = 25
  
  let visitBinding (b: SynBinding) =
      let r1 = b.RangeOfBindingSansRhs
  