#!/usr/bin/perl -w use strict; use warnings; package MyWidget; use QtCore4; use QtGui4; use QtCore4::isa qw(Qt::Widget); sub NEW { shift->SUPER::NEW(@_); my $quit = Qt::PushButton("Quit"); $quit->setFont(Qt::Font("Times", 18, Qt::Font::Bold())); my $lcd = Qt::LCDNumber(2); $lcd->setSegmentStyle(Qt::LCDNumber::Filled()); my $slider = Qt::Slider(Qt::Horizontal()); $slider->setRange(0, 99); $slider->setValue(0); this->connect($quit, SIGNAL "clicked()", qApp, SLOT "quit()"); this->connect($slider, SIGNAL "valueChanged(int)", $lcd, SLOT "display(int)"); my $layout = Qt::VBoxLayout; $layout->addWidget($quit); $layout->addWidget($lcd); $layout->addWidget($slider); this->setLayout($layout); } package main; use QtCore4; use QtGui4; use MyWidget; sub main { my $app = Qt::Application( \@ARGV ); my $widget = MyWidget(); $widget->show(); return $app->exec(); } main();