Right aligned TextInput scroll position not updated when width changes.

import QtQuick 2.0

Item {
    width: 800; height: 300
    Rectangle {
        id: main
        width: 160
        height: 200

        anchors.centerIn: parent

        color: "white"
        border.width: 1

        NumberAnimation on width {from: 80; to: 160; duration: 2000; running: true; loops: NumberAnimation.Infinite }

        Column {
            anchors.fill: parent
            TextInput {
                width: parent.width
                focus: true
                text: "كلمة السركلمة السركلمة السركلمة "
            }
        }
    }
}