diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome')
9 files changed, 0 insertions, 446 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm deleted file mode 100644 index 1ee52af..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Boolean; -use strict; -use Gtk2; -use utf8; -use Debconf::Encoding qw(to_Unicode); -use base qw(Debconf::Element::Gnome); - - -sub init { - my $this=shift; - my $description=to_Unicode($this->question->description); - - $this->SUPER::init(@_); - - $this->widget(Gtk2::CheckButton->new($description)); - $this->widget->show; - $this->widget->set_active(($this->question->value eq 'true') ? 1 : 0); - $this->addwidget($this->widget); - $this->tip( $this->widget ); - $this->addhelp; -} - - -sub value { - my $this=shift; - - if ($this->widget->get_active) { - return "true"; - } - else { - return "false"; - } -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm deleted file mode 100644 index 6394a75..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Error; -use strict; -use Debconf::Gettext; -use Gtk2; -use utf8; -use Debconf::Encoding qw(to_Unicode); -use base qw(Debconf::Element::Gnome); - - -sub init { - my $this=shift; - my $extended_description = to_Unicode($this->question->extended_description); - - $this->SUPER::init(@_); - $this->multiline(1); - $this->fill(1); - $this->expand(1); - $this->widget(Gtk2::HBox->new(0, 0)); - - my $image = Gtk2::Image->new_from_stock("gtk-dialog-error", "dialog"); - $image->show; - - my $text = Gtk2::TextView->new(); - my $textbuffer = $text->get_buffer; - $text->show; - $text->set_wrap_mode ("word"); - $text->set_editable (0); - - my $scrolled_window = Gtk2::ScrolledWindow->new(); - $scrolled_window->show; - $scrolled_window->set_policy('automatic', 'automatic'); - $scrolled_window->set_shadow_type('in'); - $scrolled_window->add ($text); - - $this->widget->show; - $this->widget->pack_start($image, 0, 0, 6); - $this->widget->pack_start($scrolled_window, 1, 1, 0); - - $textbuffer->set_text($extended_description); - - $this->widget->show; - $this->adddescription; - $this->addwidget($this->widget); -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm deleted file mode 100644 index 34a1f4d..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm +++ /dev/null @@ -1,94 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Multiselect; -use strict; -use Gtk2; -use utf8; -use Debconf::Encoding qw(to_Unicode); -use base qw(Debconf::Element::Gnome Debconf::Element::Multiselect); - -use constant SELECTED_COLUMN => 0; -use constant CHOICES_COLUMN => 1; - -sub init { - my $this=shift; - my @choices = map { to_Unicode($_) } $this->question->choices_split; - my %default=map { to_Unicode($_) => 1 } $this->translate_default; - - $this->SUPER::init(@_); - $this->multiline(1); - - $this->adddescription; - - $this->widget(Gtk2::ScrolledWindow->new); - $this->widget->show; - $this->widget->set_policy('automatic', 'automatic'); - - my $list_store = Gtk2::ListStore->new('Glib::Boolean', 'Glib::String'); - $this->list_view(Gtk2::TreeView->new($list_store)); - $this->list_view->set_headers_visible(0); - - my $renderer_toggle = Gtk2::CellRendererToggle->new; - $renderer_toggle->signal_connect(toggled => sub { - my $path_string = $_[1]; - my $model = $_[2]; - my $iter = $model->get_iter_from_string($path_string); - $model->set($iter, SELECTED_COLUMN, - not $model->get($iter, SELECTED_COLUMN)); - }, $list_store); - - $this->list_view->append_column( - Gtk2::TreeViewColumn->new_with_attributes('Selected', - $renderer_toggle, 'active', SELECTED_COLUMN)); - $this->list_view->append_column( - Gtk2::TreeViewColumn->new_with_attributes('Choices', - Gtk2::CellRendererText->new, 'text', CHOICES_COLUMN)); - $this->list_view->show; - - $this->widget->add($this->list_view); - - for (my $i=0; $i <= $#choices; $i++) { - my $iter = $list_store->append(); - $list_store->set($iter, CHOICES_COLUMN, $choices[$i]); - if ($default{$choices[$i]}) { - $list_store->set($iter, SELECTED_COLUMN, 1); - } - } - $this->addwidget($this->widget); - $this->tip($this->list_view); - $this->addhelp; - - $this->fill(1); - $this->expand(1); - -} - - -sub value { - my $this=shift; - my $list_view = $this->list_view; - my $list_store = $list_view->get_model (); - my ($ret, $val); - - my @vals; - $this->question->template->i18n(''); - my @choices=$this->question->choices_split; - $this->question->template->i18n(1); - - my $iter = $list_store->get_iter_first(); - for (my $i=0; $i <= $#choices; $i++) { - if ($list_store->get($iter, SELECTED_COLUMN)) { - push @vals, $choices[$i]; - } - $iter = $list_store->iter_next($iter); - } - - return join(', ', $this->order_values(@vals)); -} - -*visible = \&Debconf::Element::Multiselect::visible; - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm deleted file mode 100644 index 68ac016..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm +++ /dev/null @@ -1,48 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Note; -use strict; -use Debconf::Gettext; -use Gtk2; -use utf8; -use Debconf::Encoding qw(to_Unicode); -use Debconf::Element::Noninteractive::Note; -use base qw(Debconf::Element::Gnome); - - -sub init { - my $this=shift; - my $extended_description = to_Unicode($this->question->extended_description); - - $this->SUPER::init(@_); - $this->multiline(1); - $this->fill(1); - $this->expand(1); - $this->widget(Gtk2::HBox->new(0, 0)); - - my $text = Gtk2::TextView->new(); - my $textbuffer = $text->get_buffer; - $text->show; - $text->set_wrap_mode ("word"); - $text->set_editable (0); - - my $scrolled_window = Gtk2::ScrolledWindow->new(); - $scrolled_window->show; - $scrolled_window->set_policy('automatic', 'automatic'); - $scrolled_window->set_shadow_type('in'); - $scrolled_window->add ($text); - - $this->widget->show; - $this->widget->pack_start($scrolled_window, 1, 1, 0); - - $textbuffer->set_text($extended_description); - - $this->widget->show; - $this->adddescription; - $this->addwidget($this->widget); -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm deleted file mode 100644 index 5ea5c80..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm +++ /dev/null @@ -1,37 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Password; -use strict; -use Gtk2; -use utf8; -use base qw(Debconf::Element::Gnome); - - - -sub init { - my $this=shift; - - $this->SUPER::init(@_); - $this->adddescription; - - $this->widget(Gtk2::Entry->new); - $this->widget->show; - $this->widget->set_visibility(0); - $this->addwidget($this->widget); - $this->tip( $this->widget ); - $this->addhelp; -} - - -sub value { - my $this=shift; - - my $text = $this->widget->get_chars(0, -1); - $text = $this->question->value if $text eq ''; - return $text; -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm deleted file mode 100644 index e1663fa..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm +++ /dev/null @@ -1,63 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Progress; -use strict; -use Gtk2; -use utf8; -use Debconf::Encoding qw(to_Unicode); -use base qw(Debconf::Element::Gnome); - - -sub _fraction { - my $this=shift; - - return (($this->progress_cur() - $this->progress_min()) / ($this->progress_max() - $this->progress_min())); -} - -sub start { - my $this=shift; - my $description=to_Unicode($this->question->description); - my $frontend=$this->frontend; - - $this->SUPER::init(@_); - $this->multiline(1); - $this->expand(1); - - $frontend->title($description); - - $this->widget(Gtk2::ProgressBar->new()); - $this->widget->show; - $this->widget->set_text(' '); - $this->addwidget($this->widget); - $this->addhelp; -} - -sub set { - my $this=shift; - my $value=shift; - - $this->progress_cur($value); - $this->widget->set_fraction($this->_fraction); - - return 1; -} - -sub info { - my $this=shift; - my $question=shift; - - $this->widget->set_text(to_Unicode($question->description)); - - return 1; -} - -sub stop { - my $this=shift; - my $frontend=$this->frontend; - - $frontend->title($frontend->requested_title); -} - -1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm deleted file mode 100644 index 8e63f86..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm +++ /dev/null @@ -1,52 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Select; -use strict; -use Gtk2; -use Gnome2; -use utf8; -use Debconf::Encoding qw(to_Unicode); -use base qw(Debconf::Element::Gnome Debconf::Element::Select); - - -sub init { - my $this=shift; - - my $default=$this->translate_default; - my @choices= map { to_Unicode($_) } $this->question->choices_split; - - $this->SUPER::init(@_); - - $this->widget(Gtk2::Combo->new); - $this->widget->show; - - $this->widget->set_popdown_strings(@choices); - $this->widget->set_value_in_list(1, 0); - $this->widget->entry->set_editable(0); - - if (defined($default) and length($default) != 0) { - $this->widget->entry->set_text(to_Unicode($default)); - } - else { - $this->widget->entry->set_text($choices[0]); - } - - $this->adddescription; - $this->addwidget($this->widget); - $this->tip( $this->widget->entry ); - $this->addhelp; -} - - -sub value { - my $this=shift; - - return $this->translate_to_C_uni($this->widget->entry->get_chars(0, -1)); -} - -*visible = \&Debconf::Element::Select::visible; - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm deleted file mode 100644 index 0bb922d..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::String; -use strict; -use Gtk2; -use utf8; -use Debconf::Encoding qw(to_Unicode); -use base qw(Debconf::Element::Gnome); - - -sub init { - my $this=shift; - - $this->SUPER::init(@_); - - $this->widget(Gtk2::Entry->new); - $this->widget->show; - - my $default=''; - $default=$this->question->value if defined $this->question->value; - - $this->widget->set_text(to_Unicode($default)); - - $this->adddescription; - $this->addwidget($this->widget); - $this->tip( $this->widget ); - $this->addhelp; -} - - -sub value { - my $this=shift; - - return $this->widget->get_chars(0, -1); -} - - -1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm deleted file mode 100644 index 9d6518f..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome::Text; -use strict; -use Debconf::Gettext; -use Gtk2; -use utf8; -use base qw(Debconf::Element::Gnome); - - -sub init { - my $this=shift; - - $this->SUPER::init(@_); - $this->adddescription; # yeah, that's all -} - - -1 |