home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl5 / Debconf / FrontEnd / Kde / Wizard.pm next >
Encoding:
Perl POD Document  |  2006-07-24  |  1.1 KB  |  63 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::FrontEnd::Kde::Wizard;
  6. use strict;
  7. use utf8;
  8. use Debconf::Log ':all';
  9. use Qt;
  10. use Qt::isa qw(Debconf::FrontEnd::Kde::WizardUi);
  11. use Qt::slots 'goNext' => [], 'goBack' => [], 'goBye' => [];
  12. use Qt::attributes qw(frontend);
  13. use Debconf::FrontEnd::Kde::WizardUi;
  14.  
  15.  
  16. sub NEW {
  17.     shift->SUPER::NEW(@_[0..2]);
  18.     frontend = $_[2];
  19.     this->connect(bNext, SIGNAL 'clicked ()', SLOT 'goNext ()');
  20.     this->connect(bBack, SIGNAL 'clicked ()', SLOT 'goBack ()');
  21.     this->connect(bCancel, SIGNAL 'clicked ()', SLOT 'goBye ()');
  22.     this->title->show;
  23. }
  24.  
  25.  
  26. sub setTitle {
  27.     this->title->setText($_[0]);
  28. }
  29.  
  30.  
  31. sub setNextEnabled {
  32.     bNext->setEnabled(shift);
  33. }
  34.  
  35.  
  36. sub setBackEnabled {
  37.     bBack->setEnabled(shift);
  38. }
  39.  
  40.  
  41. sub goNext {
  42.     debug frontend => "QTF: -- LEAVE EVENTLOOP --------";
  43.     frontend->goback(0);
  44.     Qt::app->exit(0);
  45. }
  46.  
  47.  
  48. sub goBack {
  49.     debug frontend => "QTF: -- LEAVE EVENTLOOP --------";
  50.     frontend->goback(1);
  51.     Qt::app->exit(0);
  52. }
  53.  
  54.  
  55. sub goBye {
  56.     debug developer => "QTF: -- LEAVE EVENTLOOP --------";
  57.     frontend->cancelled(1);
  58.     Qt::app->exit (0);
  59. }
  60.  
  61.  
  62. 1;
  63.