1 files changed, 145 insertions, 0 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
new file mode 100644
index 0000000..655c8bd
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm
@@ -0,0 +1,145 @@
+#!/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