1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
package MainWindow;
use strict;
use warnings;
use blib;
use QtCore4;
use QtGui4;
use QtCore4::isa qw( Qt::MainWindow );
use StyleSheetEditor;
use Ui_MainWindow;
use QtCore4::slots
on_editStyleAction_triggered => [],
on_aboutAction_triggered => [];
sub NEW {
my ( $class, $parent ) = @_;
$class->SUPER::NEW( $parent );
my $ui = Ui_MainWindow->setupUi(this);
$ui->nameLabel()->setProperty("class", Qt::Variant(Qt::String("mandatory Qt::Label")));
my $styleSheetEditor = StyleSheetEditor(this);
this->{styleSheetEditor} = $styleSheetEditor;
this->statusBar()->addWidget(Qt::Label(this->tr("Ready")));
this->connect($ui->exitAction(), SIGNAL 'triggered()', qApp, SLOT 'quit()');
this->connect($ui->aboutQtAction(), SIGNAL 'triggered()', qApp, SLOT 'aboutQt()');
}
sub styleSheetEditor {
return this->{styleSheetEditor};
}
sub on_editStyleAction_triggered {
this->styleSheetEditor()->show();
this->styleSheetEditor()->activateWindow();
}
sub on_aboutAction_triggered {
Qt::MessageBox::about(this, this->tr('About Style sheet'),
this->tr('The <b>Style Sheet</b> example shows how widgets can be styled ' .
'using <a href=\'http://doc.trolltech.com/4.2/stylesheet.html\'>Qt4 ' .
'Style Sheets</a>. Click <b>File|Edit Style Sheet</b> to pop up the ' .
'style editor, and either choose an existing style sheet or design ' .
'your own.'));
}
1;
|
