anchor.diff:                | Some iface, Some sy -> 
                    match sy.Symbol with
                    | :? FSharpEntity as e when e.IsInterface ->
  -                     //TODO: Check if completely implemented -> no command
  -                     yield ImplementInterfaceCodeAction(doc.Editor.Document, iface, sy, location.Line) :> _
  +                    let sourceTok = SourceTokenizer([], "C:\\test.fsx")
  +                    let tokenizer = sourceTok.CreateLineTokenizer(lineStr)
  +                    let tokens = Seq.unfold (fun s -> match tokenizer.ScanToken(s) with
  +                                                      | Some t, s -> Some(t,s)
  +                                                      | _         -> None) 0L
  +
  +                    let hasWith = 
  +                        tokens |> Seq.tryPick (fun (t: TokenInformation) ->
  +                                    if t.CharClass = TokenCharKind.Keyword && 
  +                                       t.LeftColumn >= location.Column &&
  +                                       t.TokenName = "WITH" then Some() else None)
  +                    let withCol = if hasWith.IsSome then None else Some sy.RangeAlternate.EndColumn
  +                    yield ImplementInterfaceCodeAction(doc.Editor.Document, iface, sy, location.Line, withCol) :> _
                    | _ -> ()
                 | _ -> ()
               | _ -> ()
  
positive.code:      let startindent = (doc.GetLineIndent line).Length + indent
       let e = fsSymbolUse.Symbol :?> FSharpEntity
       
       let iii = InterfaceStubGenerator.formatInterface startindent indent interfaceData.TypeParameters "x" "raise (System.NotImplementedException())" fsSymbolUse.DisplayContext e
       let insertpoint = doc.GetLine(line).NextLine.Offset
       doc.Replace(insertpoint, 0, iii)
       ()
  
  /// <summary>
  
negative.code: /// <summary>
  /// A code action represents a menu entry that does edit operation in one document.
  /// </summary>
  type ImplementInterfaceCodeAction(doc:TextDocument, interfaceData: InterfaceData, fsSymbolUse:FSharpSymbolUse, line:int, insertWithAt) as x =
    inherit  CodeAction()
    do 
      x.Title    <- "Implement Interface"
  