← Back to branch summary

~ubuntu-branches/ubuntu/maverick/qvamps/maverick

« back to all changes in this revision

Viewing changes to install.pl

  • Committer: Bazaar Package Importer
  • Author(s): Claudio Moratti
  • Date: 2006-04-24 14:28:30 UTC
  • Revision ID: james.westby@ubuntu.com-20060424142830-mf5kk65fv3xc2ztz
Tags: upstream-0.97
Import upstream version 0.97

Show diffs side-by-side

added added

removed removed

Lines of Context:
install.pl
 
1
#! /usr/bin/perl
 
2
#
 
3
# This file is part of qVamps.
 
4
#
 
5
# qVamps is free software; you can redistribute it and/or modify
 
6
# it under the terms of the GNU General Public License as published by
 
7
# the Free Software Foundation; version 2 of the License.
 
8
#
 
9
# qVamps is distributed in the hope that it will be useful,
 
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
12
# GNU General Public License for more details.
 
13
#
 
14
# You should have received a copy of the GNU General Public License
 
15
# along with qVamps; if not, write to the Free Software
 
16
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
17
 
 
18
 
 
19
use strict;
 
20
use warnings;
 
21
use Qt;
 
22
use InstWiz;
 
23
use InstSplash;
 
24
use DesignerMimeSourceFactory_qvamps;
 
25
 
 
26
 
 
27
my $app    = Qt::Application (\@ARGV);
 
28
my $pixmap = Qt::Pixmap ("images/inst_splash.png");
 
29
my $splash = InstSplash ($pixmap);
 
30
my $font   = $splash -> font ();
 
31
 
 
32
$splash -> show ();
 
33
 
 
34
$font   -> setPixelSize (22);
 
35
$splash -> setFont ($font);
 
36
$splash -> repaint ();
 
37
 
 
38
my $win  = InstWiz;
 
39
my $icon = Qt::Pixmap::fromMimeSource ("icon.png");
 
40
 
 
41
$win    -> setIcon ($icon);
 
42
$app    -> setMainWidget ($win);
 
43
$win    -> show ();
 
44
$splash -> finish ($win);
 
45
 
 
46
undef $pixmap;
 
47
undef $splash;
 
48
 
 
49
exit ($app -> exec ());