anchor.diff:                                              elif func.IsInstanceMember then "val"
                                               else "val" //does this need to be static prefixed?
   
  -                                    hl modifiers cs.KeywordTypes ++ func.DisplayName + hl " : " cs.KeywordOperators + "\n" + signature
  +                                    Highlight.asKeyword modifiers ++ func.DisplayName ++ Highlight.asSymbol ":" + "\n" + signature
   
                                   ToolTip(signature, getSummaryFromSymbol symbolUse, getSegFromSymbolUse editor symbolUse)                            
   
                       else
                           //val name : Type
                           let signature =
  -                                let cs = getColourScheme()
  -                                let retType = hl (GLib.Markup.EscapeText(func.ReturnParameter.Type.Format symbolUse.DisplayContext)) cs.UserTypes
  +                                let retType = Highlight.asUserType (escapeText(func.ReturnParameter.Type.Format symbolUse.DisplayContext))
                                   let prefix = 
  -                                    if func.IsMutable then hl "val" cs.KeywordTypes ++ hl "mutable" cs.KeywordModifiers
  -                                    else hl "val" cs.KeywordTypes
  -                                prefix ++ func.DisplayName ++ hl ":" cs.KeywordOperators ++ retType
  +                                    if func.IsMutable then Highlight.asKeyword "val" ++ Highlight.asKeyword "mutable"
  +                                    else Highlight.asKeyword "val"
  +                                prefix ++ func.DisplayName ++ Highlight.asSymbol ":" ++ retType
   
                           ToolTip(signature, getSummaryFromSymbol symbolUse, getSegFromSymbolUse editor symbolUse)
                       with exn -> ToolTips.EmptyTip
  
positive.code:                 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
                                         | _ -> ""
  
                          let attributes =
  
negative.code:             | :? FSharpField as fsf -> fsf.XmlDoc, fsf.XmlDocSig
              | _ -> ResizeArray() :> IList<_>, ""
  
          if xmlDoc.Count > 0 then Full (String.Join( "\n", xmlDoc |> Seq.map escapeText))
          else
              if String.IsNullOrWhiteSpace xmlDocSig then XmlDoc.EmptyDoc
              else Lookup(xmlDocSig, symbolUse.Symbol.Assembly.FileName)
  