debconf 1.5.58ubuntu1 / usr / share / perl5 / Debconf / FrontEnd / Kde / Wizard.pm

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


package Debconf::FrontEnd::Kde::Wizard;
use strict;
use utf8;
use Debconf::Log ':all';
use QtCore4;
use QtGui4;
use QtCore4::isa qw(Qt::Widget Debconf::FrontEnd::Kde::Ui_DebconfWizard);
use QtCore4::slots 'goNext' => [], 'goBack' => [], 'goBye' => [];
use Debconf::FrontEnd::Kde::Ui_DebconfWizard;

use Data::Dumper;
sub NEW {
	
	my ( $class, $parent ) = @_;
	$class->SUPER::NEW($parent );
	this->{frontend} = $_[3];
	
	my $ui = this->{ui} = $class->setupUi(this);

	my $bNext = $ui->{bNext};
	my $bBack = $ui->{bBack};
	my $bCancel = $ui->{bCancel};
	this->setObjectName("Wizard");
	this->connect($bNext, SIGNAL 'clicked ()', SLOT 'goNext ()');
	this->connect($bBack, SIGNAL 'clicked ()', SLOT 'goBack ()');
	this->connect($bCancel, SIGNAL 'clicked ()', SLOT 'goBye ()');

	this->{ui}->mainFrame->setObjectName("mainFrame");;
}


sub setTitle {
	this->{ui}->{title}->setText($_[0]);
}


sub setNextEnabled {
	this->{ui}->{bNext}->setEnabled(shift);
}


sub setBackEnabled {
	this->{ui}->{bBack}->setEnabled(shift);
}


sub goNext {
	debug frontend => "QTF: -- LEAVE EVENTLOOP --------";
	this->{frontend}->goback(0);
	this->{frontend}->win->close;
}


sub goBack {
	debug frontend => "QTF: -- LEAVE EVENTLOOP --------";
	this->{frontend}->goback(1);
	this->{frontend}->win->close;
}

sub setMainFrameLayout {
	debug frontend => "QTF: -- SET MAIN LAYOUT --------";
   if(this->{ui}->mainFrame->layout) {
      this->{ui}->mainFrame->layout->DESTROY;
    }
   this->{ui}->mainFrame->setLayout(shift);
}


sub goBye {
	debug developer => "QTF: -- LEAVE EVENTLOOP --------";
	this->{frontend}->cancelled(1);
	this->{frontend}->win->close;
}


1;