diff options
-rw-r--r-- | tools/testcon/scripts/hierarchyax.vbs | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/tools/testcon/scripts/hierarchyax.vbs b/tools/testcon/scripts/hierarchyax.vbs new file mode 100644 index 0000000..2340442 --- /dev/null +++ b/tools/testcon/scripts/hierarchyax.vbs @@ -0,0 +1,55 @@ +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +'' +'' Copyright (C) 2015 The Qt Company Ltd. +'' Contact: http://www.qt.io/licensing/ +'' +'' This file is part of the ActiveQt module of the Qt Toolkit. +'' +'' $QT_BEGIN_LICENSE:LGPL21$ +'' Commercial License Usage +'' Licensees holding valid commercial Qt licenses may use this file in +'' accordance with the commercial license agreement provided with the +'' Software or, alternatively, in accordance with the terms contained in +'' a written agreement between you and The Qt Company. For licensing terms +'' and conditions see http://www.qt.io/terms-conditions. For further +'' information use the contact form at http://www.qt.io/contact-us. +'' +'' GNU Lesser General Public License Usage +'' Alternatively, this file may be used under the terms of the GNU Lesser +'' General Public License version 2.1 or version 3 as published by the Free +'' Software Foundation and appearing in the file LICENSE.LGPLv21 and +'' LICENSE.LGPLv3 included in the packaging of this file. Please review the +'' following information to ensure the GNU Lesser General Public License +'' requirements will be met: https://www.gnu.org/licenses/lgpl.html and +'' http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html. +'' +'' As a special exception, The Qt Company gives you certain additional +'' rights. These rights are described in The Qt Company LGPL Exception +'' version 1.1, included in the file LGPL_EXCEPTION.txt in this package. +'' +'' $QT_END_LICENSE$ +'' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +' This script can be loaded in Qt TestCon, and used to script +' the hierarchyax project. +' +' Instructions: Open testcon, insert the QParentWidget class, +' load this script, run "Main()" macro. + +Sub Main + ' Create new widget object + QParentWidget.createSubWidget("ABC") + + ' Retrieve widget + Set widget = QParentWidget.subWidget("ABC") + + ' Read label property + label = widget.label + MainWindow.logMacro 0, "Old widget label: "&label, 0, "" + + ' Write label property + widget.label = "renamed "&label + label = widget.label + MainWindow.logMacro 0, "New widget label: "&label, 0, "" +End Sub |