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 / String.pm < prev    next >
Encoding:
Perl POD Document  |  2006-07-24  |  788 b   |  37 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Dialog::String;
  6. use strict;
  7. use base qw(Debconf::Element);
  8.  
  9.  
  10. sub show {
  11.     my $this=shift;
  12.  
  13.     my ($text, $lines, $columns)=
  14.         $this->frontend->makeprompt($this->question);    
  15.  
  16.     my $default='';
  17.     $default=$this->question->value if defined $this->question->value;
  18.  
  19.     my @params=('--inputbox');
  20.     push @params, $this->frontend->dashsep if $this->frontend->dashsep;
  21.     push @params, ($text, $lines + $this->frontend->spacer, 
  22.                    $columns, $default);
  23.  
  24.     my $value=$this->frontend->showdialog($this->question, @params);
  25.     if (defined $value) {
  26.         $this->value($value);
  27.     }
  28.     else {
  29.         my $default='';
  30.         $default=$this->question->value
  31.             if defined $this->question->value;
  32.         $this->value($default);
  33.     }
  34. }
  35.  
  36. 1
  37.