anchor.diff:      [<Name(FSharpClassificationTypes.Function)>]
       [<UserVisible(true)>]
       [<Order(After = PredefinedClassificationTypeNames.Keyword)>]
  -    type internal FSharpFunctionTypeFormat() as self =
  +    type internal FSharpFunctionTypeFormat [<ImportingConstructor>](theme: ThemeColors) as self =
           inherit ClassificationFormatDefinition()
  -        // Not setting any colors here, so it will inherit from "Plain Text" by default
  +
           do self.DisplayName <- SR.FSharpFunctionsOrMethodsClassificationType.Value
  +           self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.Function
   
       [<Export(typeof<EditorFormatDefinition>)>]
       [<ClassificationType(ClassificationTypeNames = FSharpClassificationTypes.MutableVar)>]
       [<Name(FSharpClassificationTypes.MutableVar)>]
       [<UserVisible(true)>]
       [<Order(After = PredefinedClassificationTypeNames.Keyword)>]
  -    type internal FSharpMutableVarTypeFormat() as self =
  +    type internal FSharpMutableVarTypeFormat [<ImportingConstructor>](theme: ThemeColors) as self =
           inherit ClassificationFormatDefinition()
  -        
  +
           do self.DisplayName <- SR.FSharpMutableVarsClassificationType.Value
  -           self.ForegroundColor <- Nullable Colors.Red
  +           self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.MutableVar
   
       [<Export(typeof<EditorFormatDefinition>)>]
       [<ClassificationType(ClassificationTypeNames = FSharpClassificationTypes.Printf)>]
       [<Name(FSharpClassificationTypes.Printf)>]
       [<UserVisible(true)>]
       [<Order(After = PredefinedClassificationTypeNames.String)>]
  -    type internal FSharpPrintfTypeFormat() as self =
  +    type internal FSharpPrintfTypeFormat [<ImportingConstructor>](theme: ThemeColors) as self =
           inherit ClassificationFormatDefinition()
  -        
  +
           do self.DisplayName <- SR.FSharpPrintfFormatClassificationType.Value
  -           self.ForegroundColor <- Nullable (Color.FromRgb(43uy, 145uy, 175uy))
  -    
  +           self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.Printf
  +
       [<Export(typeof<EditorFormatDefinition>)>]
       [<ClassificationType(ClassificationTypeNames = FSharpClassificationTypes.Property)>]
       [<Name(FSharpClassificationTypes.Property)>]
       [<UserVisible(true)>]
       [<Order(After = PredefinedClassificationTypeNames.Keyword)>]
  -    type internal FSharpPropertyFormat() as self =
  +    type internal FSharpPropertyFormat [<ImportingConstructor>](theme: ThemeColors) as self =
           inherit ClassificationFormatDefinition()
  -        
  +
           do self.DisplayName <- SR.FSharpPropertiesClassificationType.Value
  +           self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.Property
  
positive.code:         | SemanticClassificationType.Interface -> Interface
  
  module internal ClassificationDefinitions =
      [<Export; Name(FSharpClassificationTypes.Function); BaseDefinition(PredefinedClassificationTypeNames.FormalLanguage)>]
      let FSharpFunctionClassificationType : ClassificationTypeDefinition = null
  
  
negative.code: open System.ComponentModel.Composition
  open System.Windows.Media
  
  open Microsoft.VisualStudio
  open Microsoft.VisualStudio.Editor
  open Microsoft.VisualStudio.PlatformUI
  open Microsoft.VisualStudio.Shell
  open Microsoft.VisualStudio.Shell.Interop
  open Microsoft.Internal.VisualStudio.Shell.Interop
  open Microsoft.VisualStudio.Language.StandardClassification
  open Microsoft.VisualStudio.Text.Classification
  open Microsoft.VisualStudio.Utilities
  