anchor.diff:       x.Add (textView)
        x.ShowAll ()
   
  -
     member x.InitialiseEvents() =
       disposables.Add(
         PropertyService.PropertyChanged.Subscribe
  
positive.code:  
  type TokeniserOutput =
    | Token of FSharpTokenInfo * string | EndState of FSharpTokenizerLexState
  
  [<RequireQualifiedAccess>]
  type Prompt = Normal | Multiline | None
  
negative.code:   member x.WriteOutput (line:string, highlight) =
      using (startInputProcessing()) (fun _ ->
      if highlight then
        let tokens = getTokensFromLines "temp.fsx" None (line.Split([|'\n';'\r'|], StringSplitOptions.RemoveEmptyEntries)) 0L
        tokens |>
        List.iter 
          (List.iter (function
                      | Token( t,txt) ->
                          match t with
                          | Keyword _-> applyToken txt tags.[Keyword]
                          | Identifier _-> applyToken txt tags.[User]
                          | UpperIdentifier _-> applyToken txt tags.[User]
                          | Comment _-> applyToken txt tags.[Comment]
                          | String _-> applyToken txt tags.[String]
                          | InactiveCode _-> applyToken txt tags.[Inactive]
                          | Number _-> applyToken txt tags.[Number]
                          | Operator _-> applyToken txt tags.[Operator]
                          | Preprocessor _-> applyToken txt tags.[Preprocessor]
                          | _ -> applyToken txt tags.[PlainText]
                      | EndState _ ->
                          let mutable end' = buffer.EndIter
  