[Kde-perl] Trap closeEvent

[Roy Souther]

I am trying to trap the close even but cannot get the syntax for the
slot declaration.

use Qt::slots
    closeEvent => [ Qt::Event ];

That is wrong but I don't know what it should be.  I tried [ QEvent ]
and a few other combinations.

When I get that working. What should the slot look like? Can I just use
shift?

sub closeEvent
{
    $QEventPointer = shift;

    if ( User has not selected an option yet )
    {
        $QEventPointer->ignore();
    }
}


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

For security this message is digitally authenticated by GnuPG.




-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.kde.org/pipermail/kde-perl/attachments/20050606/c4c410cc/attachment.html
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: This is a digitally signed message part
Url : http://mail.kde.org/pipermail/kde-perl/attachments/20050606/c4c410cc/attachment.pgp