summaryrefslogtreecommitdiff
path: root/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome
diff options
context:
space:
mode:
authorManuel Traut <manut@mecka.net>2013-03-10 12:13:49 +0100
committerManuel Traut <manut@mecka.net>2013-03-10 12:13:49 +0100
commit9c0f862749f30800837a45aff5abdcb529867dbc (patch)
treeb0ca51fff64f12fac03aea4afaa1fa722376844b /beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome
parent33b79c725448efd2c9a72e2ae9a1fb04270492f5 (diff)
parentcea5039322781f6085dd47954af5584ca3f78911 (diff)
Merge branch 'schulung'
updates from current linutronix schulung.git Conflicts: Makefile configpres.tex flash-memory/ubi/handout_ubi_de.tex handout.tex index.txt pres_master.tex vorl.tex vorl1.tex vorl2.tex vorl3.tex vorl4.tex vorl5.tex Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome')
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm40
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm51
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm94
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm48
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm37
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm63
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm52
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm40
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm21
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