diff options
Diffstat (limited to 'PerlQt/tutorials/t7/t7.pl')
| -rw-r--r-- | PerlQt/tutorials/t7/t7.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/PerlQt/tutorials/t7/t7.pl b/PerlQt/tutorials/t7/t7.pl index c798e28..0d0d0d2 100644 --- a/PerlQt/tutorials/t7/t7.pl +++ b/PerlQt/tutorials/t7/t7.pl @@ -3,28 +3,28 @@ use strict; use blib; package MyWidget; -use Qt; -use Qt::isa qw(Qt::VBox); +use TQt; +use TQt::isa qw(TQt::VBox); use LCDRange; sub NEW { shift->SUPER::NEW(@_); - my $quit = Qt::PushButton("Quit", this, "quit"); - $quit->setFont(Qt::Font("Times", 18, &Qt::Font::Bold)); + my $quit = TQt::PushButton("Quit", this, "quit"); + $quit->setFont(TQt::Font("Times", 18, &TQt::Font::Bold)); - Qt::app->connect($quit, SIGNAL('clicked()'), SLOT('quit()')); + TQt::app->connect($quit, TQT_SIGNAL('clicked()'), TQT_SLOT('quit()')); - my $grid = Qt::Grid(4, this); + my $grid = TQt::Grid(4, this); my $previous; for my $r (0..3) { for my $c (0..3) { my $lr = LCDRange($grid); $previous->connect( - $lr, SIGNAL('valueChanged(int)'), - SLOT('setValue(int)')) if $previous; + $lr, TQT_SIGNAL('valueChanged(int)'), + TQT_SLOT('setValue(int)')) if $previous; $previous = $lr; } } @@ -33,7 +33,7 @@ sub NEW { package main; use MyWidget; -my $a = Qt::Application(\@ARGV); +my $a = TQt::Application(\@ARGV); my $w = MyWidget; $a->setMainWidget($w); $w->show; |