diff options
Diffstat (limited to 'PerlQt/lib/Qt/signals.pm')
| -rw-r--r-- | PerlQt/lib/Qt/signals.pm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/PerlQt/lib/Qt/signals.pm b/PerlQt/lib/Qt/signals.pm index 00aa061..1f454c1 100644 --- a/PerlQt/lib/Qt/signals.pm +++ b/PerlQt/lib/Qt/signals.pm @@ -1,11 +1,11 @@ -package Qt::signals; +package TQt::signals; use Carp; # # Proposed usage: # -# use Qt::signals fooActivated => ['int']; +# use TQt::signals fooActivated => ['int']; # -# use Qt::signals fooActivated => { +# use TQt::signals fooActivated => { # name => 'fooActivated(int)', # args => ['int'] # }; @@ -16,21 +16,21 @@ use Carp; sub import { no strict 'refs'; my $self = shift; - my $caller = $self eq "Qt::signals" ? (caller)[0] : $self; + my $caller = $self eq "TQt::signals" ? (caller)[0] : $self; my $parent = ${ $caller . '::ISA' }[0]; my $parent_qt_emit = $parent . '::qt_emit'; - Qt::_internal::installqt_invoke($caller . '::qt_emit') unless defined &{ $caller. '::qt_emit' }; + TQt::_internal::installqt_invoke($caller . '::qt_emit') unless defined &{ $caller. '::qt_emit' }; # *{ $caller . '::qt_emit' } = sub { # my $meta = \%{ $caller . '::META' }; # die unless $meta->{object}; # my $offset = $_[0] - $meta->{object}->signalOffset; # if($offset >= 0) { -# Qt::_internal::invoke(Qt::this(), $meta->{signals}[$offset], $_[1]); +# TQt::_internal::invoke(TQt::this(), $meta->{signals}[$offset], $_[1]); # return 1; # } else { -# Qt::this()->$parent_qt_emit(@_); +# TQt::this()->$parent_qt_emit(@_); # } # } unless defined &{ $caller . '::qt_emit' }; @@ -49,17 +49,17 @@ sub import { my $signal_index = $#{ $meta->{signals} }; my $argcnt = scalar @$args; - my $mocargs = Qt::_internal::allocateMocArguments($argcnt); + my $mocargs = TQt::_internal::allocateMocArguments($argcnt); my $i = 0; for my $arg (@$args) { my $a = $arg; $a =~ s/^const\s+//; - if($a =~ /^(bool|int|double|char\*|QString)&?$/) { + if($a =~ /^(bool|int|double|char\*|TQString)&?$/) { $a = $1; } else { $a = 'ptr'; } - my $valid = Qt::_internal::setMocType($mocargs, $i, $arg, $a); + my $valid = TQt::_internal::setMocType($mocargs, $i, $arg, $a); die "Invalid type for signal argument ($arg)\n" unless $valid; $i++; } @@ -69,7 +69,7 @@ sub import { $signal->{mocargs} = $mocargs; $signal->{argcnt} = $argcnt; - Qt::_internal::installsignal("$caller\::$signalname"); + TQt::_internal::installsignal("$caller\::$signalname"); } @_ and $meta->{changed} = 1; } |