anchor.diff:          typeMap: Lazy<ClassificationTypeMap>,
           glyphService: IGlyphService
       ) =
  +
  +    do Application.ResourceAssembly <- typeof<Microsoft.VisualStudio.FSharp.UIResources.Strings>.Assembly
  +
  +    let styles = ResourceDictionary(Source = Uri("HyperlinkStyles.xaml", UriKind.Relative))
  +
  +    let getStyle() : Style =
  +        let key =
  +            if Settings.QuickInfo.DisplayLinks then
  +                match Settings.QuickInfo.UnderlineStyle with
  +                | QuickInfoUnderlineStyle.Solid -> "solid_underline"
  +                | QuickInfoUnderlineStyle.Dot -> "dot_underline"
  +                | QuickInfoUnderlineStyle.Dash -> "dash_underline"
  +            else "no_underline"
  +        downcast styles.[key]
   
       let formatMap = lazy typeMap.Value.ClassificationFormatMapService.GetClassificationFormatMap "tooltip"
   
  
positive.code:             DependencyObjectExtensions.SetDefaultTextProperties(tb, formatMap.Value)
              tb.Inlines.AddRange inlines
              if tb.Inlines.Count = 0 then tb.Visibility <- Visibility.Collapsed
              tb.Resources.[typeof<Documents.Hyperlink>] <- HyperlinkStyles.getCurrent()
              tb :> FrameworkElement
              
          { new IDeferredQuickInfoContent with member x.Create() = createTextLinks() }
  
negative.code:                   member __.AugmentQuickInfoSession(session,_,_) = currentSession <- Some session
                    member __.Dispose() = () }
  
  
  [<Export>]
  type internal QuickInfoViewProvider
  