%PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY
| Server IP : 14.207.165.8 / Your IP : 216.73.216.26 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/proc/thread-self/root/usr/share/perl5/Debconf/Element/ |
Upload File : |
#!/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