#!/usr/bin/perl -w
=head1 NAME
Quizzer::Element::Gtk::Note - Gtk text field
=cut
=head1 DESCRIPTION
This is a Gtk text field in the debconf dialog box.
=cut
package Quizzer::Element::Gtk::Note;
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 $label = new Gtk::Label("");
$vbox->pack_start($text, 1,1,0);
$vbox->pack_start($label, 0,1,0);
$text->show(); $label->show();
$self->frontend->newques($self->question->description, $vbox);
return '';
}
1