anchor.diff:   
   type TokeniserOutput =
     | Token of FSharpTokenInfo * string | EndState of FSharpTokenizerLexState
  +  static member PlainHash = Token({LeftColumn=0
  +                                   RightColumn=0
  +                                   ColorClass=FSharpTokenColorKind.PreprocessorKeyword
  +                                   CharClass=FSharpTokenCharKind.Delimiter
  +                                   FSharpTokenTriggerClass=FSharpTokenTriggerClass.None
  +                                   Tag=0
  +                                   TokenName="#"
  +                                   FullMatchedLength=1}, "#")
   
   [<RequireQualifiedAccess>]
   type Prompt = Normal | Multiline | None
  
positive.code:   member x.WriteOutput (line:string, highlight) =
      using (startInputProcessing()) (fun _ ->
      if highlight then
        let tokens = getTokensFromLines "temp.fs" None (line.Split([|'\n';'\r'|], StringSplitOptions.RemoveEmptyEntries)) 0L
        tokens |>
        List.iter 
          (List.iter (function
                      | Token( t,txt) ->
                          match t.ColorClass with
                          | FSharpTokenColorKind.Keyword -> applyToken txt tags.[Keyword]
                          | FSharpTokenColorKind.Identifier -> applyToken txt tags.[User]
                          | FSharpTokenColorKind.UpperIdentifier -> applyToken txt tags.[User]
                          | FSharpTokenColorKind.Comment -> applyToken txt tags.[Comment]
                          | FSharpTokenColorKind.String -> applyToken txt tags.[String]
                          | FSharpTokenColorKind.Text -> applyToken txt tags.[String]
                          | FSharpTokenColorKind.InactiveCode -> applyToken txt tags.[Inactive]
                          | FSharpTokenColorKind.Number -> applyToken txt tags.[Number]
                          | FSharpTokenColorKind.Operator -> applyToken txt tags.[Operator]
                          | FSharpTokenColorKind.PreprocessorKeyword -> applyToken txt tags.[Preprocessor]
                          | FSharpTokenColorKind.Default
                          | _ -> applyToken txt tags.[PlainText]
                      | EndState _ ->
                          let mutable end' = buffer.EndIter
  
negative.code:      x.Add (textView)
       x.ShowAll ()
  
    member x.InitialiseEvents() =
      disposables.Add(
        PropertyService.PropertyChanged.Subscribe
  