#!/usr/bin/perl
use pmfltk;

$window = Fl_Window->new(200, 220, "Inputs");
  $input = Fl_Multiline_Input->new(10, 10, 180, 90);
  $button = Fl_Button->new(80, 110, 40, 20, "Exit");
    $button->pmCallback("btn_cb");
  $input->value("Here is a\nMultiline input.\nBelow are the Secret\nInt, and Float\ninput widgets.");
  $input2 = Fl_Secret_Input->new(10, 140, 180, 20);
    $input2->value("secret");
  $input3 = Fl_Int_Input->new(10, 165, 180, 20);
    $input3->textcolor(1);
    $input3->value("12345");
  $input4 = Fl_Float_Input->new(10, 190, 180, 20);
    $input4->value("12.44");
$window->end();
$window->show();
pmfltk::FlRun();

sub btn_cb {exit;}
