diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm | 141 |
1 files changed, 0 insertions, 141 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm deleted file mode 100644 index 0b74574..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm +++ /dev/null @@ -1,141 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Kde::ElementWidget; -use QtCore4; -use QtCore4::isa @ISA = qw(Qt::Widget); -use QtGui4; - - -sub NEW { - shift->SUPER::NEW ($_[0]); - this->{mytop} = undef; -} - - -sub settop { - this->{mytop} = shift; -} - - -sub init { - this->{toplayout} = Qt::VBoxLayout(this); - this->{mytop} = Qt::Widget(this); - this->{toplayout}->addWidget (this->{mytop}); - this->{layout} = Qt::VBoxLayout(); - this->{mytop}->setLayout(this->{layout}); -} - - -sub destroy { - this->{toplayout} -> removeWidget (this->{mytop}); - undef this->{mytop}; -} - - -sub top { - return this->{mytop}; -} - - -sub addwidget { - this->{layout}->addWidget(@_); -} - - -sub addlayout { - this->{layout}->addLayout (@_); -} - - - - - - -package Debconf::Element::Kde; -use strict; -use QtCore4; -use QtGui4; -use Debconf::Gettext; -use base qw(Debconf::Element); -use Debconf::Element::Kde::ElementWidget; -use Debconf::Encoding qw(to_Unicode); - - -sub create { - my $this=shift; - $this->parent(shift); - $this->top(Debconf::Element::Kde::ElementWidget($this->parent, undef, - undef, undef)); - $this->top->init; - $this->top->show; -} - - -sub destroy { - my $this=shift; - $this->top(undef); -} - - -sub addwidget { - my $this=shift; - my $widget=shift; - $this->cur->addwidget($widget); -} - - -sub description { - my $this=shift; - my $label=Qt::Label($this->cur->top); - $label->setText("<b>".to_Unicode($this->question->description."</b>")); - $label->show; - return $label; -} - - -sub startsect { - my $this = shift; - my $ew = Debconf::Element::Kde::ElementWidget($this->top); - $ew->init; - $this->cur($ew); - $this->top->addwidget($ew); - $ew->show; -} - - -sub endsect { - my $this = shift; - $this->cur($this->top); -} - - -sub adddescription { - my $this=shift; - my $label=$this->description; - $this->addwidget($label); -} - - -sub addhelp { - my $this=shift; - - my $help=to_Unicode($this->question->extended_description); - return unless length $help; - my $label=Qt::Label($this->cur->top); - $label->setText($help); - $label->setWordWrap(1); - $this->addwidget($label); # line1 - $label->setMargin(5); - $label->show; -} - - -sub value { - my $this=shift; - return ''; -} - - -1 |
