Long live Qt 4.5!

4 files changed, 84 insertions, 0 deletions

diff --git a/tools/activeqt/testcon/scripts/javascript.js b/tools/activeqt/testcon/scripts/javascript.js
new file mode 100644
index 0000000..e2bd54b
--- /dev/null
+++ b/tools/activeqt/testcon/scripts/javascript.js
@@ -0,0 +1,25 @@
+function QAxWidget2::Click()
+{
+	QAxWidget2.lineWidth++;
+	MainWindow.logMacro(0, "Hello from JavaScript: QAxWidget2::Click", 0, "");
+}
+
+function fatLines()
+{
+	QAxWidget2.lineWidth = 25;
+}
+
+function thinLines()
+{
+	QAxWidget2.lineWidth = 1;
+}
+
+function setLineWidth(width)
+{
+	QAxWidget2.lineWidth = width;
+}
+
+function getLineWidth()
+{
+	return(QAxWidget2.lineWidth)
+}
diff --git a/tools/activeqt/testcon/scripts/perlscript.pl b/tools/activeqt/testcon/scripts/perlscript.pl
new file mode 100644
index 0000000..029bdc2
--- /dev/null
+++ b/tools/activeqt/testcon/scripts/perlscript.pl
@@ -0,0 +1,24 @@
+sub QAxWidget2_Click {
+	$QAxWidget2->{'lineWidth'} = $QAxWidget2->{'lineWidth'} + 1;
+	$MainWindow->logMacro(0, "Hello from Perl: QAxWidget2_Click", 0, "");
+}
+
+sub fatLines
+{
+	$QAxWidget2->{'lineWidth'} = 25;
+}
+
+sub thinLines
+{
+	$QAxWidget2->{'lineWidth'} = 1;
+}
+
+sub setLineWidth(width)
+{
+	$QAxWidget2->{'lineWidth'} = width;
+}
+
+sub getLineWidth()
+{
+	return $QAxWidget2->{'lineWidth'};
+}
diff --git a/tools/activeqt/testcon/scripts/pythonscript.py b/tools/activeqt/testcon/scripts/pythonscript.py
new file mode 100644
index 0000000..79bca87
--- /dev/null
+++ b/tools/activeqt/testcon/scripts/pythonscript.py
@@ -0,0 +1,15 @@
+def QAxWidget2_Click():
+    QAxWidget2.lineWidth = QAxWidget2.lineWidth + 1;
+    MainWindow.logMacro(0, "Hello from Python: QAxWidget2_Click", 0, "");
+
+def fatLines():
+    QAxWidget2.lineWidth = 25;
+
+def thinLines():
+    QAxWidget2.lineWidth = 1;
+
+def setLineWidth(width):
+    QAxWidget2.lineWidth = width;
+
+def getLineWidth():
+    return QAxWidget2.lineWidth;
diff --git a/tools/activeqt/testcon/scripts/vbscript.vbs b/tools/activeqt/testcon/scripts/vbscript.vbs
new file mode 100644
index 0000000..bd29f19
--- /dev/null
+++ b/tools/activeqt/testcon/scripts/vbscript.vbs
@@ -0,0 +1,20 @@
+Sub QAxWidget2_Click
+	QAxWidget2.lineWidth = QAxWidget2.lineWidth + 1
+	MainWindow.logMacro 0, "Hello from VBScript: QAxWidget2_Click", 0, ""
+End Sub
+
+Sub fatLines
+	QAxWidget2.lineWidth = 25
+End Sub
+
+Sub thinLines
+	QAxWidget2.lineWidth = 1
+End Sub
+
+Sub setLineWidth(width)
+	QAxWidget2.lineWidth = width
+End Sub
+
+Public Function getLineWidth
+	getLineWidth = QAxWidget2.lineWidth
+End Function