--===============0888485248==
Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="=-c+PlLhx0ScCxPkMwVkF3"
--=-c+PlLhx0ScCxPkMwVkF3
Content-Type: multipart/alternative; boundary="=-2DNgaCcNzXHXwu+dN7pE"
--=-2DNgaCcNzXHXwu+dN7pE
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
New to PerlQt. Long time expert with Qt C++. So-so with Perl, and very
to to Object Perl.
I am trying to make a form pop up when a button is clicked. I have tried
dozens of combinations but cannot get this to work. I get different
errors that I think are caused by the variable for the sub form object.=20
Where can I put the $SubForm1 variable? Does Object Perl have any way to
define a member variable that is global only to the parent object?
package MainForm;
use Qt;
use MainFormGUI;
use Qt::isa "MainFormGUI";
use SubForm;
use Qt::slots
OnButtonPress =3D> [];
$SubForm1 =3D SubForm;
sub NEW
{
my $self =3D shift;
$self->SUPER::NEW(@_);
setCaption("Tester");
this->connect(pushButton1, SIGNAL('clicked()'),
SLOT('OnInstall()'));
pushButton1->setFocus();
}
sub OnButtonPress
{
print "OnButtonPress\n";
hide();
if(radioButton1->isChecked() =3D=3D 1)
{
$SubForm1->show();
}
}
Roy Souther
www.SiliconTao.com
Let Open Source help your business move beyond.
For security this message is digitally authenticated by GnuPG.
--=-2DNgaCcNzXHXwu+dN7pE
Content-Type: text/html; charset=utf-8
Content-Transfer-Encoding: quoted-printable
New to PerlQt. Long time expert with Qt C++. So-so with Perl, and very to t=
o Object Perl.
I am trying to make a form pop up when a button is clicked. I have tried do=
zens of combinations but cannot get this to work. I get different errors th=
at I think are caused by the variable for the sub form object.
Where can I put the $SubForm1 variable? Does Object Perl have any way to de=
fine a member variable that is global only to the parent object?
package MainForm;
use Qt;
use MainFormGUI;
use Qt::isa "MainFormGUI";
use SubForm;
use Qt::slots
OnButtonPress =3D> [];
$SubForm1 =3D SubForm;
sub NEW
{
my $self =3D shift;
$self->SUPER::NEW(@_);
setCaption("Tester");<=
BR>
this->connect(pushButton1, SI=
GNAL('clicked()'), SLOT('OnInstall()'));
pushButton1->setFocus();
}
sub OnButtonPress
{
print "OnButtonPress\n"=
;;
hide();
if(radioButton1->isChecked() =
=3D=3D 1)
{
&nb=
sp; $SubForm1->show();
}
}
--=-2DNgaCcNzXHXwu+dN7pE--
--=-c+PlLhx0ScCxPkMwVkF3
Content-Type: application/pgp-signature; name=signature.asc
Content-Description: This is a digitally signed message part
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)
iD8DBQBCnitKY62fql08qicRAk/eAJ9k12fzEzESmrAWrUBB4IYaA8AyVACfeipc
1ID1yF99jSWHIZsmG8zn8VU=
=N9Kc
-----END PGP SIGNATURE-----
--=-c+PlLhx0ScCxPkMwVkF3--
--===============0888485248==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
Kde-perl mailing list
Kde-perl@kde.org
https://mail.kde.org/mailman/listinfo/kde-perl
--===============0888485248==--