diff options
| author | Lars Knoll <lars.knoll@nokia.com> | 2009-03-23 09:18:55 (GMT) |
|---|---|---|
| committer | Simon Hausmann <simon.hausmann@nokia.com> | 2009-03-23 09:18:55 (GMT) |
| commit | e5fcad302d86d316390c6b0f62759a067313e8a9 (patch) | |
| tree | c2afbf6f1066b6ce261f14341cf6d310e5595bc1 /tools/activeqt/testcon/scripts/perlscript.pl | |
| download | Qt-e5fcad302d86d316390c6b0f62759a067313e8a9.zip Qt-e5fcad302d86d316390c6b0f62759a067313e8a9.tar.gz Qt-e5fcad302d86d316390c6b0f62759a067313e8a9.tar.bz2 | |
Long live Qt 4.5!
Diffstat (limited to 'tools/activeqt/testcon/scripts/perlscript.pl')
| -rw-r--r-- | tools/activeqt/testcon/scripts/perlscript.pl | 24 |
1 files changed, 24 insertions, 0 deletions
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'}; +} |