[Kde-perl] Trap closeEvent

[Roy Souther]

Answer my own question. I must be having a bad day. Time to go find some
beer before I realy mess things up.

use Qt::slots
    closeEvent => [ 'QEvent*' ];

sub closeEvent
{
    $QEventPointer = shift;

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


On Mon, 2005-06-06 at 11:56 -0600, Roy Souther wrote:

> 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.
> 
> 
> 
> 
> 
> 
> _______________________________________________
> Kde-perl mailing list
> Kde-perl at kde.org
> https://mail.kde.org/mailman/listinfo/kde-perl


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/b84d1911/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/b84d1911/attachment.pgp