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/lib/TQt/slots.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'PerlTQt/lib/TQt/slots.pm') diff --git a/PerlTQt/lib/TQt/slots.pm b/PerlTQt/lib/TQt/slots.pm index c12990e..cfbcff1 100644 --- a/PerlTQt/lib/TQt/slots.pm +++ b/PerlTQt/lib/TQt/slots.pm @@ -16,11 +16,11 @@ sub import { my $self = shift; my $caller = $self eq "TQt::slots" ? (caller)[0] : $self; my $parent = ${ $caller . '::ISA' }[0]; - my $parent_qt_invoke = $parent . '::qt_invoke'; + my $parent_qt_invoke = $parent . '::tqt_invoke'; - TQt::_internal::installqt_invoke($caller . '::qt_invoke') unless defined &{ $caller. '::qt_invoke' }; + TQt::_internal::installqt_invoke($caller . '::tqt_invoke') unless defined &{ $caller. '::tqt_invoke' }; -# *{ $caller . '::qt_invoke' } = sub { +# *{ $caller . '::tqt_invoke' } = sub { # my $meta = \%{ $caller . '::META' }; # die unless $meta->{object}; # my $offset = $_[0] - $meta->{object}->slotOffset; @@ -30,7 +30,7 @@ sub import { # } else { # TQt::this()->$parent_qt_invoke(@_); # } -# } unless defined &{ $caller . '::qt_invoke' }; +# } unless defined &{ $caller . '::tqt_invoke' }; my $meta = \%{ $caller . '::META' }; croak "Odd number of arguments in slot declaration" if @_%2; -- cgit v1.2.1