From d22c7b8f00303de81d0f18df71a3468adc78f42e Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Thu, 8 Mar 2012 09:16:09 -0600 Subject: Update for tqt3 --- PerlTQt/TQt.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'PerlTQt/TQt.pm') diff --git a/PerlTQt/TQt.pm b/PerlTQt/TQt.pm index 0b8a5c9..dee56b5 100644 --- a/PerlTQt/TQt.pm +++ b/PerlTQt/TQt.pm @@ -793,10 +793,10 @@ sub inheritSuperSigSlots { TQt::_internal::installsignal("$class\::$ssn"); } } - TQt::_internal::installqt_invoke($class . '::qt_invoke') - if( !defined &{ $class. '::qt_invoke' } && exists $meta->{slots} && @{ $meta->{slots} }); - TQt::_internal::installqt_invoke($class . '::qt_emit') - if( !defined &{ $class. '::qt_emit' } && exists $meta->{signals} && @{ $meta->{signals} }); + TQt::_internal::installqt_invoke($class . '::tqt_invoke') + if( !defined &{ $class. '::tqt_invoke' } && exists $meta->{slots} && @{ $meta->{slots} }); + TQt::_internal::installqt_invoke($class . '::tqt_emit') + if( !defined &{ $class. '::tqt_emit' } && exists $meta->{signals} && @{ $meta->{signals} }); } } } -- cgit v1.2.3