# IUP::Matrix + MASK example

use strict;
use warnings;

use IUP ':all';

my $mat = IUP::Matrix->new( NUMLIN=>3, NUMCOL=>3 );
$mat->MatCell(1, 1, "Only numbers");

for my $i (1..3) {
  for my $j (1..3) {
    $mat->SetAttributeId2("MASK", $i, $j, '/d+'); # xxxTODO does not work well - ASK    
  }
}

my $dg = IUP::Dialog->new( child=>$mat, TITLE=>"IUP::Matrix + MASK Example" );

$dg->Show();

IUP->MainLoop;
