← Back to branch summary

~kubuntu-members/perlkde/4.11

« back to all changes in this revision

Viewing changes to qt/qtgui/examples/widgets/styles/styles.pl

  • Committer: Ian Monroe
  • Date: 2011-01-11 21:59:47 UTC
  • Revision ID: git-v1:137efc29fcf3fc78bad68ad57529a9397154ac9c
Tags: v4.6.90, v4.7.3, v4.7.95, v4.7.97, v4.9.0, v4.9.1, v4.9.2, v4.9.3, v4.9.80
Removed perlqt.

You may need to use git log --follow to see commits after this point.

Show diffs side-by-side

added added

removed removed

Lines of Context:
qt/qtgui/examples/widgets/styles/styles.pl
1
 
#!/usr/bin/perl
2
 
 
3
 
use strict;
4
 
use warnings;
5
 
 
6
 
use QtCore4;
7
 
use QtGui4;
8
 
use WidgetGallery;
9
 
 
10
 
sub main {
11
 
    #Q_INIT_RESOURCE(styles);
12
 
 
13
 
    print "This example lacks necessary support from the underlying Smoke " .
14
 
        "object.  Displaying what I can...\n";
15
 
    my $app = Qt::Application( \@ARGV );
16
 
    my $gallery = WidgetGallery();
17
 
    $gallery->show();
18
 
    return $app->exec();
19
 
}
20
 
 
21
 
exit main();