diff options
Diffstat (limited to 'PerlQt/t/e_sigslot_inherit.t')
-rw-r--r-- | PerlQt/t/e_sigslot_inherit.t | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/PerlQt/t/e_sigslot_inherit.t b/PerlQt/t/e_sigslot_inherit.t index aa3bd76..338a405 100644 --- a/PerlQt/t/e_sigslot_inherit.t +++ b/PerlQt/t/e_sigslot_inherit.t @@ -1,19 +1,19 @@ BEGIN { print "1..6\n" } package MyApp; -use Qt; -use Qt::isa('Qt::Application'); -use Qt::slots +use TQt; +use TQt::isa('TQt::Application'); +use TQt::slots foo => ['int'], baz => []; -use Qt::signals +use TQt::signals bar => ['int']; sub NEW { shift->SUPER::NEW(@_); - this->connect(this, SIGNAL 'bar(int)', SLOT 'foo(int)'); - this->connect(this, SIGNAL 'aboutToQuit()', SLOT 'baz()'); + this->connect(this, TQT_SIGNAL 'bar(int)', TQT_SLOT 'foo(int)'); + this->connect(this, TQT_SIGNAL 'aboutToQuit()', TQT_SLOT 'baz()'); } sub foo @@ -36,8 +36,8 @@ sub coincoin 1; package MySubApp; -use Qt; -use Qt::isa('MyApp'); +use TQt; +use TQt::isa('MyApp'); sub NEW @@ -61,12 +61,12 @@ sub baz package main; -use Qt; +use TQt; use MySubApp; $a = 0; $a = MySubApp(\@ARGV); -Qt::Timer::singleShot( 300, Qt::app(), SLOT "quit()" ); +TQt::Timer::singleShot( 300, TQt::app(), TQT_SLOT "quit()" ); -exit Qt::app()->exec; +exit TQt::app()->exec; |