diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome')
9 files changed, 446 insertions, 0 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 new file mode 100644 index 0000000..1ee52af --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm @@ -0,0 +1,40 @@ +#!/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 new file mode 100644 index 0000000..6394a75 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm @@ -0,0 +1,51 @@ +#!/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 new file mode 100644 index 0000000..34a1f4d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm @@ -0,0 +1,94 @@ +#!/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 new file mode 100644 index 0000000..68ac016 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm @@ -0,0 +1,48 @@ +#!/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 new file mode 100644 index 0000000..5ea5c80 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm @@ -0,0 +1,37 @@ +#!/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 new file mode 100644 index 0000000..e1663fa --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm @@ -0,0 +1,63 @@ +#!/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 new file mode 100644 index 0000000..8e63f86 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm @@ -0,0 +1,52 @@ +#!/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 new file mode 100644 index 0000000..0bb922d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm @@ -0,0 +1,40 @@ +#!/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 new file mode 100644 index 0000000..9d6518f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm @@ -0,0 +1,21 @@ +#!/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 |