PC Welt 2006 November (DVD)/PCWELT_11_2006.ISO/casper/filesystem.squashfs/usr/share/perl5/Debconf/FrontEnd/Kde.pm

Perl POD Document | 2006-07-24 | 4.2 KB | 184 lines

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!


package Debconf::FrontEnd::Kde;
use strict;
use utf8;
use Debconf::Gettext;
use Debconf::Config;
BEGIN {
    eval { require Qt };
    die "Unable to load Qt -- is libqt-perl installed?\n" if $@;
    Qt->import;
}
use Debconf::FrontEnd::Kde::Wizard;
use Debconf::Log ':all';
use base qw{Debconf::FrontEnd};
use Debconf::Encoding qw(to_Unicode);


our @ARGV_KDE=();

sub init {
    my $this=shift;

    $this->SUPER::init(@_);
    $this->interactive(1);
    $this->cancelled(0);
    $this->createdelements([]);
    $this->dupelements([]);
    $this->capb('backup');

    if (fork) {
        wait(); # for child
        if ($? != 0) {
            die "DISPLAY problem?\n";
        }
    }
    else {
        $this->qtapp(Qt::Application(\@ARGV_KDE));
        exit(0); # success
    }

    debug frontend => "QTF: initializing app";
    $this->qtapp(Qt::Application(\@ARGV_KDE));
    debug frontend => "QTF: initializing wizard";
    $this->win(Debconf::FrontEnd::Kde::Wizard(undef, undef, $this));
    debug frontend => "QTF: setting size";
    $this->win->resize(620, 430);
    my $hostname = `hostname`;
    chomp $hostname;
    $this->hostname($hostname);
    debug frontend => "QTF: setting title";
    $this->win->setCaption(to_Unicode(sprintf(gettext("Debconf on %s"), $this->hostname)));
    debug frontend => "QTF: initializing main widget";
    $this->toplayout(Qt::HBoxLayout($this->win->mainFrame));
    $this->page(Qt::ScrollView($this->win->mainFrame));
    $this->page->setResizePolicy(&Qt::ScrollView::AutoOneFit());
    $this->page->setFrameStyle(&Qt::Frame::NoFrame());
    $this->frame(Qt::Frame($this->page));
    $this->page->addChild($this->frame);
    $this->toplayout->addWidget($this->page);
    $this->vbox(Qt::VBoxLayout($this->frame, 0, 6, "wizard-main-vbox"));
    $this->space(Qt::SpacerItem(1, 1, 1, 5));
    $this->win->setTitle(to_Unicode(sprintf(gettext("Debconf on %s"), $this->hostname)));
}


sub go {
    my $this=shift;
    my @elements=@{$this->elements};

    my $interactive='';
    debug frontend => "QTF: -- START ------------------";
    foreach my $element (@elements) {
        $element->create($this->frame);
        next unless $element->top;
        $interactive=1;
        debug frontend => "QTF: ADD: " . $element->question->description;
        $this->vbox->addWidget ($element->top);
    }

    if ($interactive) {
        foreach my $element (@elements) {
            next unless $element->top;
            debug frontend => "QTF: SHOW: " . $element->question->description;
            $element->top->show;
        }

        $this->vbox->addItem($this->space);

        if ($this->capb_backup) {
            $this->win->setBackEnabled(1);
        }
        else {
            $this->win->setBackEnabled(0);
        }
        $this->win->setNextEnabled(1);

        $this->win->show;
        debug frontend => "QTF: -- ENTER EVENTLOOP --------";
        $this->qtapp->exec;
        debug frontend => "QTF: -- LEFT EVENTLOOP --------";

        foreach my $element (@elements) {
            next unless $element -> top;
            debug frontend => "QTF: HIDE: " . $element->question->description;
            $this->vbox->remove($element->top);
            $element->top->hide;
            debug frontend => "QTF: DESTROY: " . $element->question->description;
            $element->destroy;
        }

        $this->vbox->removeItem($this->space);
    }

    debug frontend => "QTF: -- END --------------------";
    if ($this->cancelled) {
        exit 1;
    }
    return '' if $this->goback;
    return 1;
}

sub progress_start {
    my $this=shift;
    $this->SUPER::progress_start(@_);

    my $element=$this->progress_bar;
    $this->vbox->addWidget($element->top);
    $element->top->show;
    $this->vbox->addItem($this->space);
    $this->win->setBackEnabled(0);
    $this->win->setNextEnabled(0);
    $this->win->show;
    $this->qtapp->processEvents;
}

sub progress_set {
    my $this=shift;
    $this->SUPER::progress_set(@_);

    $this->qtapp->processEvents;
}

sub progress_info {
    my $this=shift;
    $this->SUPER::progress_info(@_);

    $this->qtapp->processEvents;
}

sub progress_stop {
    my $this=shift;
    my $element=$this->progress_bar;
    $this->SUPER::progress_stop(@_);

    $this->qtapp->processEvents;

    $this->vbox->remove($element->top);
    $element->top->hide;
    $element->destroy;
    $this->vbox->removeItem($this->space);

    if ($this->cancelled) {
        exit 1;
    }
}


sub shutdown {
    my $this = shift;
    $this->win->hide;
    $this->frame->reparent(undef, 0, Qt::Point(0, 0), 0);
    $this->frame(undef);
    $this->win->mainFrame->reparent(undef, 0, Qt::Point(0, 0), 0);
    $this->win->mainFrame(undef);
    $this->win(undef);
    $this->space(undef);
}


1