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-11 09:56:53 +0900 |
| commit | 947bc2dba5274c3a87dd0f3dc29972b5a7fde80f (patch) | |
| tree | 8dece4fa4ebb9fa43f8660095f8084ea580ee2eb /PerlTQt/examples/opengl/box | |
| parent | bb06ec358695c7621148fd6cf0c2af94fd29f799 (diff) | |
| download | libtqt-perl-947bc2dba5274c3a87dd0f3dc29972b5a7fde80f.tar.gz libtqt-perl-947bc2dba5274c3a87dd0f3dc29972b5a7fde80f.zip | |
Use new TQ_METHOD, TQ_SIGNAL, TQ_SLOT defines
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit 301b5380792b7a368488aa485d3bdb3df81e0808)
Diffstat (limited to 'PerlTQt/examples/opengl/box')
| -rw-r--r-- | PerlTQt/examples/opengl/box/glbox | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/PerlTQt/examples/opengl/box/glbox b/PerlTQt/examples/opengl/box/glbox index fed74a3..de7894d 100644 --- a/PerlTQt/examples/opengl/box/glbox +++ b/PerlTQt/examples/opengl/box/glbox @@ -23,7 +23,7 @@ sub NEW # Create a menu file = TQt::PopupMenu( this ); - file->insertItem( "Exit", TQt::app(), TQT_SLOT 'quit()', TQt::KeySequence(int &CTRL + &Key_Q )); + file->insertItem( "Exit", TQt::app(), TQ_SLOT 'quit()', TQt::KeySequence(int &CTRL + &Key_Q )); # Create a menu bar menu = TQt::MenuBar( this ); @@ -41,15 +41,15 @@ sub NEW # Create the three sliders; one for each rotation axis xpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "xsl" ); xpos->setTickmarks( &TQt::Slider::Left ); - TQt::Object::connect( xpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setXRotation(int)' ); + TQt::Object::connect( xpos, TQ_SIGNAL 'valueChanged(int)', box, TQ_SLOT 'setXRotation(int)' ); ypos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "ysl" ); ypos->setTickmarks( &TQt::Slider::Left ); - TQt::Object::connect( ypos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setYRotation(int)' ); + TQt::Object::connect( ypos, TQ_SIGNAL 'valueChanged(int)', box, TQ_SLOT 'setYRotation(int)' ); zpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "zsl" ); zpos->setTickmarks( &TQt::Slider::Left ); - TQt::Object::connect( zpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setZRotation(int)' ); + TQt::Object::connect( zpos, TQ_SIGNAL 'valueChanged(int)', box, TQ_SLOT 'setZRotation(int)' ); # Now that we have all the widgets, put them into a nice layout |