home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Element / Dialog / Boolean.pm next >
Encoding:
Perl POD Document  |  2006-07-24  |  729 b   |  33 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Dialog::Boolean;
  6. use strict;
  7. use base qw(Debconf::Element);
  8.  
  9.  
  10. sub show {
  11.     my $this=shift;
  12.  
  13.     my @params=('--yesno');
  14.     push @params, $this->frontend->dashsep if $this->frontend->dashsep;
  15.     push @params, $this->frontend->makeprompt($this->question, 1);
  16.     if (defined $this->question->value && $this->question->value eq 'false') {
  17.         unshift @params, '--defaultno';
  18.     }
  19.  
  20.     my ($ret, $value)=$this->frontend->showdialog($this->question, @params);
  21.     if (defined $ret) {
  22.         $this->value($ret eq 0 ? 'true' : 'false');
  23.     }
  24.     else {
  25.         my $default='';
  26.         $default=$this->question->value
  27.             if defined $this->question->value;
  28.         $this->value($default);
  29.     }
  30. }
  31.  
  32. 1
  33.