<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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-&gt;SUPER::NEW ($_[0]);
	this-&gt;{mytop} = undef;
}


sub settop {
    this-&gt;{mytop} = shift;
}


sub init {
	this-&gt;{toplayout} =  Qt::VBoxLayout(this);
	this-&gt;{mytop} = Qt::Widget(this);
	this-&gt;{toplayout}-&gt;addWidget (this-&gt;{mytop});
	this-&gt;{layout} = Qt::VBoxLayout();
	this-&gt;{mytop}-&gt;setLayout(this-&gt;{layout});
}


sub destroy {
	this-&gt;{toplayout} -&gt; removeWidget (this-&gt;{mytop});
	undef this-&gt;{mytop};
}


sub top {
    return this-&gt;{mytop};
}


sub addwidget {
    this-&gt;{layout}-&gt;addWidget(@_);
}


sub addlayout {
    this-&gt;{layout}-&gt;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-&gt;parent(shift);
	$this-&gt;top(Debconf::Element::Kde::ElementWidget($this-&gt;parent, undef,
	                                                undef, undef));
	$this-&gt;top-&gt;init;
	$this-&gt;top-&gt;show;
}


sub destroy {
	my $this=shift;
	$this-&gt;top(undef);
}


sub addwidget {
	my $this=shift;
	my $widget=shift;
	$this-&gt;cur-&gt;addwidget($widget);
}


sub description {
	my $this=shift;
	my $label=Qt::Label($this-&gt;cur-&gt;top);
	$label-&gt;setText("&lt;b&gt;".to_Unicode($this-&gt;question-&gt;description."&lt;/b&gt;"));
	$label-&gt;show;
	return $label;
}


sub startsect {
	my $this = shift;
	my $ew = Debconf::Element::Kde::ElementWidget($this-&gt;top);
	$ew-&gt;init;
	$this-&gt;cur($ew);
	$this-&gt;top-&gt;addwidget($ew);
	$ew-&gt;show;
}


sub endsect {
	my $this = shift;
	$this-&gt;cur($this-&gt;top);
}


sub adddescription {
	my $this=shift;
	my $label=$this-&gt;description;
	$this-&gt;addwidget($label);
}


sub addhelp {
	my $this=shift;
    
	my $help=to_Unicode($this-&gt;question-&gt;extended_description);
	return unless length $help;
	my $label=Qt::Label($this-&gt;cur-&gt;top);
	$label-&gt;setText($help);
	$label-&gt;setWordWrap(1);
	$this-&gt;addwidget($label); # line1
	$label-&gt;setMargin(5);
	$label-&gt;show;
}


sub value {
	my $this=shift;
	return '';
}


1
</pre></body></html>