OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
Debconf
/
FrontEnd
/
Kde
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📄
Ui_DebconfWizard.pm
4.14 KB
05/06/2019 04:30:30 PM
rw-r--r--
📄
Wizard.pm
1.67 KB
05/06/2019 04:30:30 PM
rw-r--r--
Editing: Wizard.pm
Close
#!/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;