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>

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