← Back to branch summary

~kubuntu-members/perlkde/4.11

« back to all changes in this revision

Viewing changes to kdeui/examples/introduction/tutorial4/tutorial4.pl

  • Committer: Arno Rehn
  • Date: 2011-01-06 17:49:41 UTC
  • Revision ID: git-v1:ada9e4b459cf6fabd0f3b9b164387469cb19d9bc
A patch by Ian Monroe and myself to modularize the repository.
See README.MODULARIZATION for details.

svn path=/trunk/KDE/kdebindings/perl/; revision=1212365

Show diffs side-by-side

added added

removed removed

Lines of Context:
kdeui/examples/introduction/tutorial4/tutorial4.pl
1
 
#!/usr/bin/perl
2
 
 
3
 
use strict;
4
 
use warnings;
5
 
 
6
 
use KDEUi4;
7
 
use Qt::GlobalSpace qw( ki18n );
8
 
use MainWindow;
9
 
 
10
 
sub main
11
 
{
12
 
    my $aboutData = KDE::AboutData( Qt::ByteArray('tutorial4'), Qt::ByteArray('tutorial4'),
13
 
            ki18n('Tutorial 4'), Qt::ByteArray('1.0'),
14
 
            ki18n('A simple text area which can load and save.'),
15
 
            KDE::AboutData::License_GPL(),
16
 
            ki18n('Copyright (c) 2007 Developer') );
17
 
    KDE::CmdLineArgs::init( scalar @ARGV, \@ARGV, $aboutData );
18
 
    my $app = KDE::Application();
19
 
 
20
 
    my $window = MainWindow();
21
 
    $window->show();
22
 
    return $app->exec();
23
 
}
24
 
 
25
 
exit main();