← Back to branch summary

~kubuntu-members/perlkde/4.11

« back to all changes in this revision

Viewing changes to kde/kate/lib/Kate.pm

  • 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:
kde/kate/lib/Kate.pm
 
1
#***************************************************************************
 
2
#                          Kate.pm  -  Kate perl client lib
 
3
#                             -------------------
 
4
#    begin                : 11-14-2010
 
5
#    copyright            : (C) 2010 by Chris Burel
 
6
#    email                : chrisburel@gmail.com
 
7
# ***************************************************************************
 
8
 
 
9
#***************************************************************************
 
10
# *                                                                         *
 
11
# *   This program is free software; you can redistribute it and/or modify  *
 
12
# *   it under the terms of the GNU General Public License as published by  *
 
13
# *   the Free Software Foundation; either version 2 of the License, or     *
 
14
# *   (at your option) any later version.                                   *
 
15
# *                                                                         *
 
16
# ***************************************************************************
 
17
 
 
18
package Kate::_internal;
 
19
 
 
20
use strict;
 
21
use warnings;
 
22
use QtCore4;
 
23
use base qw(Qt::_internal);
 
24
 
 
25
sub init {
 
26
    foreach my $c ( @{getClassList()} ) {
 
27
        Kate::_internal->init_class($c);
 
28
    }
 
29
    foreach my $e ( @{getEnumList()} ) {
 
30
        Kate::_internal->init_enum($e);
 
31
    }
 
32
}
 
33
 
 
34
sub normalize_classname {
 
35
    my ( $self, $cxxClassName ) = @_;
 
36
    $cxxClassName = $self->SUPER::normalize_classname( $cxxClassName );
 
37
    return $cxxClassName;
 
38
}
 
39
 
 
40
package Kate;
 
41
 
 
42
use strict;
 
43
use warnings;
 
44
use QtCore4;
 
45
 
 
46
require XSLoader;
 
47
 
 
48
our $VERSION = '0.01';
 
49
 
 
50
XSLoader::load('Kate', $VERSION);
 
51
 
 
52
Kate::_internal::init();
 
53
 
 
54
1;
 
 
b'\\ No newline at end of file'