FM / Gnome

/usr/share/perl5/Debconf/Element/Gnome

Name	Size	Mode	Actions
Boolean.pm	684	0644	edit dl rm
Error.pm	1166	0644	edit dl rm
Multiselect.pm	2477	0644	edit dl rm
Note.pm	1076	0644	edit dl rm
Password.pm	580	0644	edit dl rm
Progress.pm	1113	0644	edit dl rm
Select.pm	974	0644	edit dl rm
String.pm	649	0644	edit dl rm
Text.pm	290	0644	edit dl rm

Edit: /usr/share/perl5/Debconf/Element/Gnome/Progress.pm (1113B)

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!

package Debconf::Element::Gnome::Progress;
use strict;
use Gtk3;
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(Gtk3::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);
}

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