�PNG  IHDR��;���IDATx��ܻn�0���K�� �)(�pA��� ���7�LeG{�� �§㻢|��ذaÆ 6lذaÆ 6lذaÆ 6lom��$^�y���ذag�5bÆ 6lذaÆ 6lذa{���� 6lذaÆ �`����}H�Fkm�,�m����Ӫ���ô�ô!� �x�|'ܢ˟;�E:���9�&ᶒ�}�{�v]�n&�6� �h��_��t�ڠ͵-ҫ���Z;��Z$�.�P���k�ž)�!��o���>}l�eQfJ�T��u і���چ��\��X=8��Rن4`Vw�l�>����n�G�^��i�s��"ms�$�u��i��?w�bs[m�6�K4���O���.�4��%����/����b�C%��t ��M�ז� �-l�G6�mrz2���s�%�9��s@���-�k�9�=���)������k�B5����\��+͂�Zsٲ ��Rn��~G���R���C����� �wIcI��n7jJ���hۛNCS|���j0��8y�iHKֶۛ�k�Ɉ+;Sz������L/��F�*\��Ԕ�#"5��m�2��[S��������=�g��n�a�P�e�ғ�L�� lذaÆ 6l�^k��̱aÆ 6lذaÆ 6lذa;���� �_��ذaÆ 6lذaÆ 6lذaÆ ���R���IEND�B` #!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::FrontEnd; use strict; use Debconf::Gettext; use Debconf::Priority; use Debconf::Log ':all'; use base qw(Debconf::Base); sub init { my $this=shift; $this->elements([]); $this->interactive(''); $this->capb(''); $this->title(''); $this->requested_title(''); $this->info(undef); $this->need_tty(1); } sub elementtype { my $this=shift; my $ret; if (ref $this) { ($ret) = ref($this) =~ m/Debconf::FrontEnd::(.*)/; } else { ($ret) = $this =~ m/Debconf::FrontEnd::(.*)/; } return $ret; } my %nouse; sub _loadelementclass { my $this=shift; my $type=shift; my $nodebug=shift; if (! UNIVERSAL::can("Debconf::Element::$type", 'new')) { return if $nouse{$type}; eval qq{use Debconf::Element::$type}; if ($@ || ! UNIVERSAL::can("Debconf::Element::$type", 'new')) { warn sprintf(gettext("Unable to load Debconf::Element::%s. Failed because: %s"), $type, $@) if ! $nodebug; $nouse{$type}=1; return; } } } sub makeelement { my $this=shift; my $question=shift; my $nodebug=shift; my $type=$this->elementtype.'::'.ucfirst($question->type); $type=~s/::$//; # in case the question has no type.. $this->_loadelementclass($type, $nodebug); my $element="Debconf::Element::$type"->new(question => $question); return if ! ref $element; return $element; } sub add { my $this=shift; my $element=shift; foreach (@{$this->elements}) { return if $element->question == $_->question; } $element->frontend($this); push @{$this->elements}, $element; } sub go { my $this=shift; $this->backup(''); foreach my $element (@{$this->elements}) { $element->show; return if $this->backup && $this->capb_backup; } return 1; } sub progress_start { my $this=shift; my $min=shift; my $max=shift; my $question=shift; my $type = $this->elementtype.'::Progress'; $this->_loadelementclass($type); my $element="Debconf::Element::$type"->new(question => $question); unless (ref $element) { return; } $element->frontend($this); $element->progress_min($min); $element->progress_max($max); $element->progress_cur($min); $element->start; $this->progress_bar($element); } sub progress_set { my $this=shift; my $value=shift; return $this->progress_bar->set($value); } sub progress_step { my $this=shift; my $inc=shift; return $this->progress_set($this->progress_bar->progress_cur + $inc); } sub progress_info { my $this=shift; my $question=shift; return $this->progress_bar->info($question); } sub progress_stop { my $this=shift; $this->progress_bar->stop; $this->progress_bar(undef); } sub clear { my $this=shift; $this->elements([]); } sub default_title { my $this=shift; $this->title(sprintf(gettext("Configuring %s"), shift)); $this->requested_title($this->title); } sub shutdown {} 1