anchor.diff:                  match symbolUse.Symbol with
                   | :? FSharpEntity as fse ->
                       try
  -                        let cs = getColourScheme()
  -
                           let displayName = fse.DisplayName
   
                           let modifier = match fse.Accessibility with
  -                                       | a when a.IsInternal -> hl "internal " cs.KeywordTypes
  -                                       | a when a.IsPrivate -> hl "private " cs.KeywordTypes
  +                                       | a when a.IsInternal -> Highlight.asKeyword "internal "
  +                                       | a when a.IsPrivate -> Highlight.asKeyword "private "
                                          | _ -> ""
   
                           let attributes =
  
positive.code: | ToolTip of string * XmlDoc * TextSegment
  | EmptyTip
  
  [<AutoOpen>]
  module NewTooltips =
      let getColourScheme () =
          Highlighting.SyntaxModeService.GetColorStyle (IdeApp.Preferences.ColorScheme)
  
  
negative.code:                                 | _                         -> "type"
  
                              let enumtip () =
                                  Highlight.asSymbol " =" + "\n" + 
                                  Highlight.asSymbol "|" ++
                                  (fse.FSharpFields
                                  |> Seq.filter (fun f -> not f.IsCompilerGenerated)
                                  |> Seq.map (fun field -> field.Name) //TODO Fix FSC to expose enum filed literals: field.Name + (hl " = " cs.KeywordOperators) + hl field.LiteralValue cs.UserTypesValueTypes*)
                                  |> String.concat ("\n" + Highlight.asSymbol "| " ) )
                 
  
                              let uniontip () = 
                                  Highlight.asSymbol " =" + "\n" + 
                                  Highlight.asSymbol "|" ++
                                  (fse.UnionCases 
                                  |> Seq.map (fun unionCase -> 
                                                  if unionCase.UnionCaseFields.Count > 0 then
                                                     let typeList =
                                                        unionCase.UnionCaseFields
                                                        |> Seq.map (fun unionField -> unionField.Name ++ Highlight.asSymbol ":" ++ Highlight.asUserType (escapeText (unionField.FieldType.Format symbolUse.DisplayContext)))
                                                        |> String.concat (Highlight.asSymbol " * " )
                                                     unionCase.Name ++ Highlight.asKeyword "of" ++ typeList
                                                   else unionCase.Name)
  
                                  |> String.concat ("\n" + Highlight.asSymbol "| " ) )
                                                       
                              let typeDisplay = modifier + Highlight.asKeyword typeName ++ Highlight.asUserType displayName
                              let fullName = "\n\nFull name: " + fse.FullName
                              match fse.IsFSharpUnion, fse.IsEnum with
                              | true, false -> typeDisplay + uniontip () + fullName
                              | false, true -> typeDisplay + enumtip () + fullName
                              | _ -> typeDisplay + fullName
  
                          ToolTip(signature, getSummaryFromSymbol symbolUse, getSegFromSymbolUse editor symbolUse)
                      with exn -> ToolTips.EmptyTip
  