#############################################################################

##

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

## All rights reserved.

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

##

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

##

## $QT_BEGIN_LICENSE:LGPL$

## No Commercial Usage

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

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

## contained in the Technology Preview License Agreement accompanying

## this package.

##

## 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 as published by the Free Software

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

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

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

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

##

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

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

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

##

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

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

##

##

##

##

##

##

##

##

## $QT_END_LICENSE$

##

#############################################################################

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'};

}