1 #############################################################################

     2 ##

     3 ## Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).

     4 ## All rights reserved.

     5 ## Contact: Nokia Corporation (qt-info@nokia.com)

     6 ##

     7 ## This file is part of the ActiveQt module of the Qt Toolkit.

     8 ##

     9 ## $QT_BEGIN_LICENSE:LGPL$

    10 ## No Commercial Usage

    11 ## This file contains pre-release code and may not be distributed.

    12 ## You may use this file in accordance with the terms and conditions

    13 ## contained in the Technology Preview License Agreement accompanying

    14 ## this package.

    15 ##

    16 ## GNU Lesser General Public License Usage

    17 ## Alternatively, this file may be used under the terms of the GNU Lesser

    18 ## General Public License version 2.1 as published by the Free Software

    19 ## Foundation and appearing in the file LICENSE.LGPL included in the

    20 ## packaging of this file.  Please review the following information to

    21 ## ensure the GNU Lesser General Public License version 2.1 requirements

    22 ## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

    23 ##

    24 ## In addition, as a special exception, Nokia gives you certain additional

    25 ## rights.  These rights are described in the Nokia Qt LGPL Exception

    26 ## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

    27 ##

    28 ## If you have questions regarding the use of this file, please contact

    29 ## Nokia at qt-info@nokia.com.

    30 ##

    31 ##

    32 ##

    33 ##

    34 ##

    35 ##

    36 ##

    37 ##

    38 ## $QT_END_LICENSE$

    39 ##

    40 #############################################################################

    41 

    42 sub QAxWidget2_Click {

    43 	$QAxWidget2->{'lineWidth'} = $QAxWidget2->{'lineWidth'} + 1;

    44 	$MainWindow->logMacro(0, "Hello from Perl: QAxWidget2_Click", 0, "");

    45 }

    46 

    47 sub fatLines

    48 {

    49 	$QAxWidget2->{'lineWidth'} = 25;

    50 }

    51 

    52 sub thinLines

    53 {

    54 	$QAxWidget2->{'lineWidth'} = 1;

    55 }

    56 

    57 sub setLineWidth(width)

    58 {

    59 	$QAxWidget2->{'lineWidth'} = width;

    60 }

    61 

    62 sub getLineWidth()

    63 {

    64 	return $QAxWidget2->{'lineWidth'};

    65 }