diff options
| author | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-01-10 10:12:24 +0900 |
|---|---|---|
| committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2024-01-10 10:12:24 +0900 |
| commit | 301b5380792b7a368488aa485d3bdb3df81e0808 (patch) | |
| tree | 02f29183ad7d160b896f76ba08c916e3c97f6226 /doc/fr/PerlQt.pod | |
| parent | 6c02673b584fd4fbd4761057a5b466bca26036bd (diff) | |
| download | libtqt-perl-301b5380792b7a368488aa485d3bdb3df81e0808.tar.gz libtqt-perl-301b5380792b7a368488aa485d3bdb3df81e0808.zip | |
Use new TQ_METHOD, TQ_SIGNAL, TQ_SLOT defines
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
Diffstat (limited to 'doc/fr/PerlQt.pod')
| -rw-r--r-- | doc/fr/PerlQt.pod | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/doc/fr/PerlQt.pod b/doc/fr/PerlQt.pod index 358a542..f35396e 100644 --- a/doc/fr/PerlQt.pod +++ b/doc/fr/PerlQt.pod @@ -501,13 +501,13 @@ branchée à toute entrée d'un composant (y compris lui-même), La syntaxe de ce système de connexion est soit: -TQt::Object::connect( envoyeur, TQT_SIGNAL 'mon_signal(types_d_arguments)', -recepteur, TQT_SLOT 'monslot(types_d_arguments)'); +TQt::Object::connect( envoyeur, TQ_SIGNAL 'mon_signal(types_d_arguments)', +recepteur, TQ_SLOT 'monslot(types_d_arguments)'); soit: -unObjet->connect( envoyeur, TQT_SIGNAL 'mon_signal(types_d_arguments)', -SLOT 'monslot(types_d_arguments)'); +unObjet->connect( envoyeur, TQ_SIGNAL 'mon_signal(types_d_arguments)', +TQ_SLOT 'monslot(types_d_arguments)'); Dans le second cas, le récepteur est omis car c'est l'objet lui-même, @@ -537,8 +537,8 @@ B<Réécrivons encore notre exemple pour illustrer nos propos :> 15: shift->SUPER::NEW(@_[0..2]); 16: itsTime = TQt::Time; 17: itsTime->start; - 18: this->connect(this, TQT_SIGNAL 'clicked()', TQT_SLOT 'aEteClicke()'); - 19: this->connect(this, TQT_SIGNAL 'changeLe(int,int)', TQT_SLOT 'changement(int,int)'); + 18: this->connect(this, TQ_SIGNAL 'clicked()', TQ_SLOT 'aEteClicke()'); + 19: this->connect(this, TQ_SIGNAL 'changeLe(int,int)', TQ_SLOT 'changement(int,int)'); 20: } 21: 22: sub aEteClicke @@ -573,7 +573,7 @@ appelant de ce fait le slot C<changement(int,int)>, avec deux arguments. Enfin, il existe une syntaxe alternative introduite dans PerlTQt-3.008 : - sub un_slot : TQT_SLOT(int, TQString) + sub un_slot : TQ_SLOT(int, TQString) { $int = shift; $string = shift; @@ -582,7 +582,7 @@ Enfin, il existe une syntaxe alternative introduite dans PerlTQt-3.008 : et - sub un_signal : TQT_SIGNAL(TQString); + sub un_signal : TQ_SIGNAL(TQString); Cette syntaxe est parfaitement compatible avec la déclaration par le biais de C<use TQt::signals> et C<use TQt::slots>. |