diff options
author | Fredrik Orderud <forderud@gmail.com> | 2015-11-17 20:34:41 +0100 |
---|---|---|
committer | Fredrik Orderud <forderud@gmail.com> | 2015-11-19 07:57:49 +0000 |
commit | 635f2a07bb33f1a28b0b3fc2d0d997f32e9dc7fc (patch) | |
tree | e83be405f31c75aaaee402685136b3311d79681f /tools | |
parent | 6b0be66831556649c0b8a7e2cd0cf421eef629cd (diff) |
Add VBScript example for the "hierarchyax" project.
The script demonstrates how to navigate between custom Qt objects
from a scripting language. None of the existing scripts demonstrate
this capability, so the script should therefore be useful.
The background for sending this patch is that scripting ActiveQt
can be a bit tricky. Adding more sample scripts will hopefully
make it easier for newcomers to get started.
Change-Id: I06820339bc92b556229af101ca2cc177da96ccc2
Reviewed-by: Andy Shaw <andy.shaw@theqtcompany.com>
Reviewed-by: Friedemann Kleint <Friedemann.Kleint@theqtcompany.com>
Diffstat (limited to 'tools')
-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 |