From kde-perl Wed Jun 01 21:40:26 2005 From: Roy Souther Date: Wed, 01 Jun 2005 21:40:26 +0000 To: kde-perl Subject: [Kde-perl] Sub form issues. Message-Id: <1117662026.23197.17.camel () UtopiaPlanetia> X-MARC-Message: https://marc.info/?l=kde-perl&m=111766206118996 MIME-Version: 1 Content-Type: multipart/mixed; boundary="--===============0888485248==" --===============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();
        }
}

Roy Souther
www.SiliconTao.com
Let Open Source help your business move beyond.

For security this message is digitally authenticated by GnuPG.

--=-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==--