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 / WizardUi.pm < prev   
Encoding:
Text File  |  2006-07-24  |  2.1 KB  |  86 lines
  1.  
  2.  
  3. use strict;
  4. use utf8;
  5.  
  6.  
  7. package Debconf::FrontEnd::Kde::WizardUi;
  8. use Qt;
  9. use Qt::isa qw(Qt::Widget);
  10. use Qt::attributes qw(
  11.     title
  12.     line1
  13.     mainFrame
  14.     bHelp
  15.     bBack
  16.     bNext
  17.     bCancel
  18. );
  19.  
  20.  
  21.  
  22. sub NEW
  23. {
  24.     shift->SUPER::NEW(@_[0..2]);
  25.  
  26.     if ( name() eq "unnamed" )
  27.     {
  28.         setName("DebconfWizard" );
  29.     }
  30.  
  31.     my $DebconfWizardLayout = Qt::VBoxLayout(this, 11, 6, '$DebconfWizardLayout');
  32.  
  33.     title = Qt::Label(this, "title");
  34.     title->setSizePolicy( Qt::SizePolicy(5, 0, 0, 0, title->sizePolicy()->hasHeightForWidth()) );
  35.     $DebconfWizardLayout->addWidget(title);
  36.  
  37.     line1 = Qt::Frame(this, "line1");
  38.     line1->setSizePolicy( Qt::SizePolicy(5, 0, 0, 0, line1->sizePolicy()->hasHeightForWidth()) );
  39.     line1->setFrameShape( &Qt::Frame::HLine() );
  40.     line1->setFrameShadow( &Qt::Frame::Sunken() );
  41.     line1->setFrameShape( &Qt::Frame::VLine );
  42.     $DebconfWizardLayout->addWidget(line1);
  43.  
  44.     mainFrame = Qt::Frame(this, "mainFrame");
  45.     mainFrame->setFrameShape( &Qt::Frame::NoFrame() );
  46.     mainFrame->setFrameShadow( &Qt::Frame::Raised() );
  47.     $DebconfWizardLayout->addWidget(mainFrame);
  48.  
  49.     my $layout1 = Qt::HBoxLayout(undef, 0, 6, '$layout1');
  50.  
  51.     bHelp = Qt::PushButton(this, "bHelp");
  52.     $layout1->addWidget(bHelp);
  53.     my $spacer = Qt::SpacerItem(161, 20, &Qt::SizePolicy::Expanding, &Qt::SizePolicy::Minimum);
  54.     $layout1->addItem($spacer);
  55.  
  56.     bBack = Qt::PushButton(this, "bBack");
  57.     $layout1->addWidget(bBack);
  58.  
  59.     bNext = Qt::PushButton(this, "bNext");
  60.     $layout1->addWidget(bNext);
  61.  
  62.     bCancel = Qt::PushButton(this, "bCancel");
  63.     $layout1->addWidget(bCancel);
  64.     $DebconfWizardLayout->addLayout($layout1);
  65.     languageChange();
  66.     my $resize = Qt::Size(660, 460);
  67.     $resize = $resize->expandedTo(minimumSizeHint());
  68.     resize( $resize );
  69.     clearWState( &Qt::WState_Polished );
  70. }
  71.  
  72.  
  73.  
  74. sub languageChange
  75. {
  76.     setCaption(trUtf8("Debconf Wizard for KDE") );
  77.     title->setText( trUtf8("title") );
  78.     bHelp->setText( trUtf8("Help") );
  79.     bBack->setText( trUtf8("< Back") );
  80.     bNext->setText( trUtf8("Next >") );
  81.     bCancel->setText( trUtf8("Cancel") );
  82. }
  83.  
  84.  
  85. 1;
  86.