From 301b5380792b7a368488aa485d3bdb3df81e0808 Mon Sep 17 00:00:00 2001 From: Michele Calgaro Date: Wed, 10 Jan 2024 10:12:24 +0900 Subject: Use new TQ_METHOD, TQ_SIGNAL, TQ_SLOT defines Signed-off-by: Michele Calgaro --- doc/en/PerlQt.pod | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'doc/en/PerlQt.pod') diff --git a/doc/en/PerlQt.pod b/doc/en/PerlQt.pod index 592fccc..ebc1fa5 100644 --- a/doc/en/PerlQt.pod +++ b/doc/en/PerlQt.pod @@ -489,12 +489,12 @@ component. The general syntax of this connection process is either : -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)'); or -myObject->connect( sender, TQT_SIGNAL 'mysignal(arg_type)', TQT_SLOT +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 @@ -523,8 +523,8 @@ B 15: shift->SUPER::NEW(@_[0..2]); 16: itsTime = TQt::Time; 17: itsTime->start; - 18: this->connect(this, TQT_SIGNAL 'clicked()', TQT_SLOT 'wasClicked()'); - 19: this->connect(this, TQT_SIGNAL 'changeIt(int,int)', TQT_SLOT 'change(int,int)'); + 18: this->connect(this, TQ_SIGNAL 'clicked()', TQ_SLOT 'wasClicked()'); + 19: this->connect(this, TQ_SIGNAL 'changeIt(int,int)', TQ_SLOT 'change(int,int)'); 20: } 21: 22: sub wasClicked @@ -558,7 +558,7 @@ 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; @@ -567,7 +567,7 @@ Finally, since PerlTQt-3.008, an alternative syntax can be used to declare Signa and - sub a_signal : TQT_SIGNAL(TQString); + sub a_signal : TQ_SIGNAL(TQString); This syntax is perfectly compatible with the traditional C and C declarations. -- cgit v1.2.1