diff options
Diffstat (limited to 'PerlQt/examples/opengl/box/glbox')
| -rw-r--r-- | PerlQt/examples/opengl/box/glbox | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/PerlQt/examples/opengl/box/glbox b/PerlQt/examples/opengl/box/glbox index 613a274..fed74a3 100644 --- a/PerlQt/examples/opengl/box/glbox +++ b/PerlQt/examples/opengl/box/glbox @@ -3,9 +3,9 @@ package GLObjectWindow; use strict; -use Qt; -use Qt::isa qw(Qt::Widget); -use Qt::attributes qw( +use TQt; +use TQt::isa qw(TQt::Widget); +use TQt::attributes qw( file frame menu @@ -22,50 +22,50 @@ sub NEW shift->SUPER::NEW(@_); # Create a menu - file = Qt::PopupMenu( this ); - file->insertItem( "Exit", Qt::app(), SLOT 'quit()', Qt::KeySequence(int &CTRL + &Key_Q )); + file = TQt::PopupMenu( this ); + file->insertItem( "Exit", TQt::app(), TQT_SLOT 'quit()', TQt::KeySequence(int &CTRL + &Key_Q )); # Create a menu bar - menu = Qt::MenuBar( this ); - menu->setSeparator( &Qt::MenuBar::InWindowsStyle ); + menu = TQt::MenuBar( this ); + menu->setSeparator( &TQt::MenuBar::InWindowsStyle ); menu->insertItem("&File", file ); # Create a nice frame to put around the OpenGL widget - frame = Qt::Frame( this, "frame" ); - frame->setFrameStyle( &Qt::Frame::Sunken | &Qt::Frame::Panel ); + frame = TQt::Frame( this, "frame" ); + frame->setFrameStyle( &TQt::Frame::Sunken | &TQt::Frame::Panel ); frame->setLineWidth( 2 ); # Create our OpenGL widget box = GLBox( frame, "glbox"); # Create the three sliders; one for each rotation axis - xpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "xsl" ); - xpos->setTickmarks( &Qt::Slider::Left ); - Qt::Object::connect( xpos, SIGNAL 'valueChanged(int)', box, SLOT 'setXRotation(int)' ); + 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)' ); - ypos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "ysl" ); - ypos->setTickmarks( &Qt::Slider::Left ); - Qt::Object::connect( ypos, SIGNAL 'valueChanged(int)', box, SLOT 'setYRotation(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)' ); - zpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "zsl" ); - zpos->setTickmarks( &Qt::Slider::Left ); - Qt::Object::connect( zpos, SIGNAL 'valueChanged(int)', box, SLOT 'setZRotation(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)' ); # Now that we have all the widgets, put them into a nice layout # Put the sliders on top of each other - my $vlayout = Qt::VBoxLayout( 20, "vlayout"); + my $vlayout = TQt::VBoxLayout( 20, "vlayout"); $vlayout->addWidget( xpos ); $vlayout->addWidget( ypos ); $vlayout->addWidget( zpos ); # Put the GL widget inside the frame - my $flayout = Qt::HBoxLayout( frame, 2, 2, "flayout"); + my $flayout = TQt::HBoxLayout( frame, 2, 2, "flayout"); $flayout->addWidget( box, 1 ); # Top level layout, puts the sliders to the left of the frame/GL widget - my $hlayout = Qt::HBoxLayout( this, 20, 20, "hlayout"); + my $hlayout = TQt::HBoxLayout( this, 20, 20, "hlayout"); $hlayout->setMenuBar( menu ); $hlayout->addLayout( $vlayout ); $hlayout->addWidget( frame, 1 ); @@ -75,10 +75,10 @@ sub NEW package main; -use Qt; +use TQt; use GLObjectWindow; -my $a = Qt::Application(\@ARGV); +my $a = TQt::Application(\@ARGV); my $w = GLObjectWindow; $w->resize(350,350); |