#!/usr/bin/perl 
use pmfltk;

$x = 0;
@data = ("\@c Hello there.",
	 "This is a demo of some of the widgets Perl FLTK can do",
	 "\@s It's starting to do a lot more...",
	 "\@b It just needs to handle overloading better!",
	 "Fl_Browser gets confused when setting the scroll sometimes.",
	 "Need more lines to make it scroll.");
$window = Fl_Window->new(400, 200, "widgets.pl");
$browser = Fl_Browser->new(10, 10, 380, 100);
while ($x < 6) {
	$browser->add($data[$x]);
	$x++;
}
$slider = Fl_Hor_Value_Slider->new(10, 120, 180, 20);
$button = Fl_Button->new(200, 120, 190, 20);
$button->pmCallback("btn_cb");
$button->label(3, "Exit");
#$button->labelcolor(1);
#$button->labelfont(5);
#$button->labelsize(10);
$button->labeltype(pmfltk::define_FL_EMBOSSED_LABEL);
$output = Fl_Output->new(10, 150, 380, 20, "Output");
$output->align(2);
$output->labelfont(5);
$output->box(pmfltk::define_FL_SHADOW_BOX);
$output->value("Enumerations suck, but hey, beggars can't be choosers.");

$window->end();
$window->resizable($window);
$window->show();
pmfltk::FlRun();

sub btn_cb {exit;}
