TQt::Object::connect( sender, TQT_SIGNAL 'mysignal(arg_type)',
-receiver, TQT_SLOT 'myslot(arg_type)');
+TQt::Object::connect( sender, TQ_SIGNAL 'mysignal(arg_type)',
+receiver, TQ_SLOT 'myslot(arg_type)');
myObject->connect( sender, TQ_SIGNAL 'mysignal(arg_type)', TQ_SLOT
'myslot(arg_type)');
This mechanism can be extended at will by the declaration of custom Signals and
Slots, through the use TQt::signals and use TQt::slots pragma
@@ -498,8 +498,8 @@ each declared signal can be raised through the emit keyword.
changeIt(int,int) signal [l.27], hence triggering the cha
slot with two arguments.
Finally, since PerlTQt-3.008, an alternative syntax can be used to declare Signals and Slots:
- sub a_slot : TQT_SLOT(int, TQString)
+ sub a_slot : TQ_SLOT(int, TQString)
{
$int = shift;
$string = shift;
@@ -536,7 +536,7 @@ slot with two arguments.
}
and
- sub a_signal : TQT_SIGNAL(TQString);
+ sub a_signal : TQ_SIGNAL(TQString);
This syntax is perfectly compatible with the traditional
use TQt::signals and use TQt::slots declarations.
Eventually, it can prove good programming practice to mix both syntaxes, by first declaring
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 @@ BSUPER::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, 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
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,
Ce mécanisme est extensible à volonté par la déclaration de nouveaux Signaux et
Slots par l'usage des pragma use TQt::signals et use TQt::slots
@@ -506,8 +506,8 @@ objet. Chaque signal d
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
@@ -536,7 +536,7 @@ objet. Chaque signal d
appelant de ce fait le slot 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;
@@ -544,7 +544,7 @@ appelant de ce fait le slot changement(int,int), avec deux argument
}
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
use TQt::signals et use TQt::slots.
Il peut d'ailleurs d'avérer très profitable pour la clarté du programme de déclarer tout d'abord
diff --git a/kalyptus/kalyptusCxxToDcopIDL.pm b/kalyptus/kalyptusCxxToDcopIDL.pm
index 3dd00fc..cb1f40c 100644
--- a/kalyptus/kalyptusCxxToDcopIDL.pm
+++ b/kalyptus/kalyptusCxxToDcopIDL.pm
@@ -736,7 +736,7 @@ sub generateMethod($$$)
my $methodCode = "";
- my $tagType = ($flags !~ /z/) ? "FUNC" : "SIGNAL";
+ my $tagType = ($flags !~ /z/) ? "FUNC" : "TQ_SIGNAL";
my $tagAttr = "";
$tagAttr .= " hidden=\"yes\"" if $flags =~ /y/;
diff --git a/kalyptus/kalyptusCxxToJNI.pm b/kalyptus/kalyptusCxxToJNI.pm
index fd426eb..332b44d 100644
--- a/kalyptus/kalyptusCxxToJNI.pm
+++ b/kalyptus/kalyptusCxxToJNI.pm
@@ -536,12 +536,12 @@ EOF
}
/** Prepend a '2' to a signal string and remove any spaces */
- public static String SIGNAL(String signal) {
+ public static String TQ_SIGNAL(String signal) {
return "2" + sqeezeOut(signal, ' ');
}
/** Prepend a '1' to a slot string and remove any spaces */
- public static String SLOT(String slot) {
+ public static String TQ_SLOT(String slot) {
return "1" + sqeezeOut(slot, ' ');
}
@@ -5473,8 +5473,8 @@ sub printJavadocComment($$$$)
$line =~ s/const char/String/g;
$line =~ s/const (\w+)\&/$1/g;
$line =~ s/bool/boolean/g;
- $line =~ s/SLOT\(\s*([^\)]*)\) ?\)/SLOT("$1)")/g;
- $line =~ s/SIGNAL\(\s*([^\)]*)\) ?\)/SIGNAL("$1)")/g;
+ $line =~ s/TQ_SLOT\(\s*([^\)]*)\) ?\)/TQ_SLOT("$1)")/g;
+ $line =~ s/TQ_SIGNAL\(\s*([^\)]*)\) ?\)/TQ_SIGNAL("$1)")/g;
$line =~ s/TQ_OBJECT\n//g;
$line =~ s/class\s+([\w]+)\s*:\s*public/public class $1 implements/g;
$line =~ s/public\s*(slots)?:\n/public /g;
diff --git a/kalyptus/kalyptusCxxToJava.pm b/kalyptus/kalyptusCxxToJava.pm
index 3ad3d6e..b75b9fb 100644
--- a/kalyptus/kalyptusCxxToJava.pm
+++ b/kalyptus/kalyptusCxxToJava.pm
@@ -331,12 +331,12 @@ EOF
}
/** Prepend a '2' to a signal string and remove any spaces */
- public static String SIGNAL(String signal) {
+ public static String TQ_SIGNAL(String signal) {
return "2" + sqeezeOut(signal, ' ');
}
/** Prepend a '1' to a slot string and remove any spaces */
- public static String SLOT(String slot) {
+ public static String TQ_SLOT(String slot) {
return "1" + sqeezeOut(slot, ' ');
}
@@ -3315,8 +3315,8 @@ sub printJavadocComment($$$$)
$line =~ s/const char/String/g;
$line =~ s/const (\w+)\&/$1/g;
$line =~ s/bool/boolean/g;
- $line =~ s/SLOT\(\s*([^\)]*)\) ?\)/SLOT("$1)")/g;
- $line =~ s/SIGNAL\(\s*([^\)]*)\) ?\)/SIGNAL("$1)")/g;
+ $line =~ s/TQ_SLOT\(\s*([^\)]*)\) ?\)/TQ_SLOT("$1)")/g;
+ $line =~ s/TQ_SIGNAL\(\s*([^\)]*)\) ?\)/TQ_SIGNAL("$1)")/g;
$line =~ s/TQ_OBJECT\n//g;
$line =~ s/class\s+([\w]+)\s*:\s*public/public class $1 implements/g;
$line =~ s/public\s*(slots)?:\n/public /g;
diff --git a/kalyptus/kalyptusCxxToKimono.pm b/kalyptus/kalyptusCxxToKimono.pm
index 174bc5f..4f4804c 100644
--- a/kalyptus/kalyptusCxxToKimono.pm
+++ b/kalyptus/kalyptusCxxToKimono.pm
@@ -386,11 +386,11 @@ EOF
public static TQApplication tqApp = null;
- public static string SIGNAL(string signal) {
+ public static string TQ_SIGNAL(string signal) {
return "2"+ signal;
}
- public static string SLOT(string slot) {
+ public static string TQ_SLOT(string slot) {
return "1" + slot;
}
EOF
@@ -3497,8 +3497,8 @@ sub printCSharpdocComment($$$$)
$line =~ s/const char/string/g;
$line =~ s/const (\w+)\&/$1/g;
$line =~ s/bool/bool/g;
- $line =~ s/SLOT\(\s*([^\)]*)\) ?\)/SLOT("$1)")/g;
- $line =~ s/SIGNAL\(\s*([^\)]*)\) ?\)/SIGNAL("$1)")/g;
+ $line =~ s/TQ_SLOT\(\s*([^\)]*)\) ?\)/TQ_SLOT("$1)")/g;
+ $line =~ s/TQ_SIGNAL\(\s*([^\)]*)\) ?\)/TQ_SIGNAL("$1)")/g;
$line =~ s/TQ_OBJECT\n//g;
$line =~ s/public\s*(slots)?:\n/public /g;
$line =~ s/([^0-9"]\s*)\*(\s*[^0-9"-])/$1$2/g;
diff --git a/puic/form.cpp b/puic/form.cpp
index e1e74cc..473eda3 100644
--- a/puic/form.cpp
+++ b/puic/form.cpp
@@ -922,7 +922,7 @@ void Uic::createFormImpl( const TQDomElement &e )
receiver = "this";
out << indent << "TQt::Object::connect(" << sender
- << ", TQT_SIGNAL \"" << signal << "\", "<< receiver << ", TQT_SLOT \"" << slot << "\");" << endl;
+ << ", TQ_SIGNAL \"" << signal << "\", "<< receiver << ", TQ_SLOT \"" << slot << "\");" << endl;
}
} else if ( n.tagName() == "tabstops" ) {
// setup tab order
@@ -1166,7 +1166,7 @@ void Uic::createFormImpl( const TQDomElement &e )
if ( *it == "init()" || *it == "destroy()" )
continue;
int astart = (*it).find('(');
- TQRegExp r( "(\\nsub\\s+" + (*it).left(astart) + "(?:\\s*#\\s*SLOT:[^\\n]+|[ \t]+)?\\n\\{)(\\s*)(\\}\\n)" );
+ TQRegExp r( "(\\nsub\\s+" + (*it).left(astart) + "(?:\\s*#\\s*TQ_SLOT:[^\\n]+|[ \t]+)?\\n\\{)(\\s*)(\\}\\n)" );
r.setMinimal( true );
uiPmInclude.replace( r, "\\1\n" +
indent + "print \"" + nameOfClass + "->" + (*it) +