From 947bc2dba5274c3a87dd0f3dc29972b5a7fde80f Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Wed, 10 Jan 2024 10:12:24 +0900
Subject: Use new TQ_METHOD, TQ_SIGNAL, TQ_SLOT defines

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit 301b5380792b7a368488aa485d3bdb3df81e0808)
---
 doc/fr/PerlQt.pod | 16 ++++++++--------
 doc/fr/index.html | 16 ++++++++--------
 2 files changed, 16 insertions(+), 16 deletions(-)

(limited to 'doc/fr')

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
 
 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
  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>. 
diff --git a/doc/fr/index.html b/doc/fr/index.html
index 2475849..2a4f93a 100644
--- a/doc/fr/index.html
+++ b/doc/fr/index.html
@@ -476,11 +476,11 @@ magn
 d'entrées (slots). La sortie d'un composant peut être potentiellement
 branchée à toute entrée d'un composant (y compris lui-même),</p>
 <p>La syntaxe de ce système de connexion est soit:</p>
-<p>TQt::Object::connect( envoyeur, TQT_SIGNAL 'mon_signal(types_d_arguments)',
-recepteur, TQT_SLOT 'monslot(types_d_arguments)');</p>
+<p>TQt::Object::connect( envoyeur, TQ_SIGNAL 'mon_signal(types_d_arguments)',
+recepteur, TQ_SLOT 'monslot(types_d_arguments)');</p>
 <p>soit:</p>
-<p>unObjet-&gt;connect( envoyeur, TQT_SIGNAL 'mon_signal(types_d_arguments)',
-SLOT 'monslot(types_d_arguments)');</p>
+<p>unObjet-&gt;connect( envoyeur, TQ_SIGNAL 'mon_signal(types_d_arguments)',
+TQ_SLOT 'monslot(types_d_arguments)');</p>
 <p>Dans le second cas, le récepteur est omis car c'est l'objet lui-même,</p>
 <p>Ce mécanisme est extensible à volonté par la déclaration de nouveaux Signaux et
 Slots par l'usage des pragma <code>use TQt::signals</code> et <code>use TQt::slots</code>
@@ -506,8 +506,8 @@ objet. Chaque signal d
  15:   shift-&gt;SUPER::NEW(@_[0..2]);
  16:   itsTime = TQt::Time;
  17:   itsTime-&gt;start;
- 18:   this-&gt;connect(this, TQT_SIGNAL 'clicked()', TQT_SLOT 'aEteClicke()');
- 19:   this-&gt;connect(this, TQT_SIGNAL 'changeLe(int,int)', TQT_SLOT 'changement(int,int)');
+ 18:   this-&gt;connect(this, TQ_SIGNAL 'clicked()', TQ_SLOT 'aEteClicke()');
+ 19:   this-&gt;connect(this, TQ_SIGNAL 'changeLe(int,int)', TQ_SLOT 'changement(int,int)');
  20: }
  21:
  22: sub aEteClicke
@@ -536,7 +536,7 @@ objet. Chaque signal d
 appelant de ce fait le slot <code>changement(int,int)</code>, avec deux arguments.</p>
 <p>Enfin, il existe une syntaxe alternative introduite dans PerlTQt-3.008 :</p>
 <pre>
- sub un_slot : TQT_SLOT(int, TQString)
+ sub un_slot : TQ_SLOT(int, TQString)
  { 
         $int = shift;
         $string = shift;
@@ -544,7 +544,7 @@ appelant de ce fait le slot <code>changement(int,int)</code>, avec deux argument
  }</pre>
 <p>et</p>
 <pre>
- sub un_signal : TQT_SIGNAL(TQString);</pre>
+ sub un_signal : TQ_SIGNAL(TQString);</pre>
 <p>Cette syntaxe est parfaitement compatible avec la déclaration par le biais de
 <code>use TQt::signals</code> et <code>use TQt::slots</code>. 
 Il peut d'ailleurs d'avérer très profitable pour la clarté du programme de déclarer tout d'abord 
-- 
cgit v1.2.1