diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm | 145 |
1 files changed, 0 insertions, 145 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm deleted file mode 100644 index 655c8bd..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm +++ /dev/null @@ -1,145 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::Element::Gnome; -use strict; -use utf8; -use Gtk2; -use Debconf::Gettext; -use Debconf::Encoding qw(to_Unicode); -use base qw(Debconf::Element); - - -sub init { - my $this=shift; - - $this->hbox(Gtk2::VBox->new(0, 10)); - - $this->hline1(Gtk2::HBox->new(0, 10)); - $this->hline1->show; - $this->line1(Gtk2::VBox->new(0, 10)); - $this->line1->show; - $this->line1->pack_end ($this->hline1, 1, 1, 0); - - $this->hline2(Gtk2::HBox->new(0, 10)); - $this->hline2->show; - $this->line2(Gtk2::VBox->new(0, 10)); - $this->line2->show; - $this->line2->pack_end ($this->hline2, 1, 1, 0); - - $this->vbox(Gtk2::VBox->new(0, 5)); - $this->vbox->pack_start($this->line1, 0, 0, 0); - $this->vbox->pack_start($this->line2, 1, 1, 0); - $this->vbox->show; - - $this->hbox->pack_start($this->vbox, 1, 1, 0); - $this->hbox->show; - - $this->fill(0); - $this->expand(0); - $this->multiline(0); -} - - -sub addwidget { - my $this=shift; - my $widget=shift; - - if ($this->multiline == 0) { - $this->hline1->pack_start($widget, 1, 1, 0); - } - else { - $this->hline2->pack_start($widget, 1, 1, 0); - } -} - - -sub adddescription { - my $this=shift; - my $description=to_Unicode($this->question->description); - - my $label=Gtk2::Label->new($description); - $label->show; - $this->line1->pack_start($label, 0, 0, 0); -} - - -sub addbutton { - my $this=shift; - my $text = shift; - my $callback = shift; - - my $button = Gtk2::Button->new_with_mnemonic(to_Unicode($text)); - $button->show; - $button->signal_connect("clicked", $callback); - - my $vbox = Gtk2::VBox->new(0, 0); - $vbox->show; - $vbox->pack_start($button, 1, 0, 0); - $this->hline1->pack_end($vbox, 0, 0, 0); -} - - -sub create_message_dialog { - my $this = shift; - my $type = shift; - my $title = shift; - my $text = shift; - - my $dialog = - Gtk2::Dialog->new_with_buttons(to_Unicode($title), undef, - "modal", "gtk-close", "close"); - $dialog->set_border_width(3); - - my $hbox = Gtk2::HBox->new(0); - $dialog->vbox->pack_start($hbox, 1, 1, 5); - $hbox->show; - - my $alignment = Gtk2::Alignment->new(0.5, 0.0, 1.0, 0.0); - $hbox->pack_start($alignment, 1, 1, 3); - $alignment->show; - - my $image = Gtk2::Image->new_from_stock($type, "dialog"); - $alignment->add($image); - $image->show; - - my $label = Gtk2::Label->new(to_Unicode($text)); - $label->set_line_wrap(1); - $hbox->pack_start($label, 1, 1, 2); - $label->show; - - $dialog->run; - $dialog->destroy; -} - - -sub addhelp { - my $this=shift; - - my $help=$this->question->extended_description; - return unless length $help; - - $this->addbutton(gettext("_Help"), sub { - $this->create_message_dialog("gtk-dialog-info", - gettext("Help"), - to_Unicode($help)); - }); - - if (defined $this->tip ){ - $this->tooltips( Gtk2::Tooltips->new() ); - $this->tooltips->set_tip($this->tip, to_Unicode($help), - undef ); - $this->tooltips->enable; - } -} - - -sub value { - my $this=shift; - - return ''; -} - - -1 |
