# IUP::Text + MASK example
#
# Creates an IUP::Text that accepts only numbers

use strict;
use warnings;

use IUP ':all';

my $txt = IUP::Text->new( MASK=>'/d*', EXPAND=>"YES" );

my $dg = IUP::Dialog->new( child=>$txt, TITLE=>"MASK (numbers only)", SIZE=>"200x" );
$dg->Show();

IUP->MainLoop();