TextInput with cursorDelegate and clipping: custom cursor gets clipped

import QtQuick 2.0

Rectangle {
    width: 200
    height: 40

    TextInput {
        cursorDelegate: Rectangle { border.color: "red"; color: "lightsteelblue"; opacity: 0.5; width: 10 }
        anchors.centerIn: parent
        text: "some text"
        width: 0
        clip: true
        focus: true
    }
}

QRectF QQuickTextInput::clipRect() const
{
    Q_D(const QQuickTextInput);

    int cursorWidth = d->cursorItem ? d->cursorItem->width() : 1;
    // Could include font max left/right bearings to either side of rectangle.
    QRectF r = QQuickImplicitSizeItem::clipRect();
    r.setRight(r.right() + cursorWidth);
qDebug() << "cursor" << d->cursorItem << "w" << cursorWidth << "clip would be" << QQuickImplicitSizeItem::clipRect() << "now" << r;;
    return r;
}