Quizzer::Element::Gtk::String - Gtk text input field

Quizzer documentation

Contained in the Quizzer distribution.

Index

NAME
DESCRIPTION

Code Index:

package Quizzer::Element::Gtk::String
- show
EOF

NAME

Quizzer::Element::Gtk::String - Gtk text input field

DESCRIPTION

This is an input field element on the debconf dialog box.

Quizzer documentation

Contained in the Quizzer distribution.

#!/usr/bin/perl -w

package Quizzer::Element::Gtk::String;
use Gtk;
use strict;
use Quizzer::Element;
use vars qw(@ISA);
@ISA=qw(Quizzer::Element);

my $VERSION='0.01';

sub show {
	my $self = shift;
	my $vbox = new Gtk::VBox(0,5);

#	my $text = $self->frontend->maketext(
#			$self->question->extended_description);

	my $text = $self->frontend->maketext(
			$self->question->description);

	my $entry = new Gtk::Entry;
	$entry->set_text($self->question->value)
		if defined $self->question->value;
	$vbox->pack_start($text, 1,1,0);
	$vbox->pack_start($entry, 0,1,0);
	$text->show(); $entry->show();
	my $result = $self->frontend->newques(
		$self->question->description, $vbox);
	return $entry->get_text;
}

1