---

Boolean.pm

#!/usr/bin/perl # This file was preprocessed, do not edit! package Debconf::Element::Gnome::Boolean; use warnings; use strict; use Gtk3; 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(Gtk3::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

---

docroot: /var/www/469ed2f6-4d4b-4a8a-9f5e-ee4ef04d3bc8/public_html

---

curdir: /usr/share/perl5/Debconf/Element/Gnome

	.		4096
	..		4096
X	Boolean.pm		693
X	Error.pm		1177
X	Multiselect.pm		2485
X	Note.pm		1087
X	Password.pm		590
X	Progress.pm		1123
X	Select.pm		985
X	String.pm		659
X	Text.pm		301