#!/usr/bin/perl

# Normal code
use strict;
use warnings;

use Tk;

my $mw = MainWindow->new;

$mw->title("A phone list");

my $top = $mw->Frame()->pack(
    -fill   => 'both',
    -expand => 'x',
    -ipadx  => 5,
    -ipady  => 5,
);
my $list = $mw->Frame()->pack(
    -fill => 'both',
    -expand => 'both',
    -ipadx  => 5,
    -ipady  => 5,
    -anchor => 'n',
);

$top->Label(
    -text   => 'Enter some phone numbers.',
)->pack(
    -side => 'top',
);

$top->Label(
    -text   => 'Check numbers to activate them.',
)->pack(
    -side => 'top',
);


$list->Label( 
    -text   => 'Enabled',
)->grid( 
    -column => 0,
    -row    => 0,
);

$list->Label( 
    -text   => 'Phone number', 
)->grid( 
    -column => 1,
    -row    => 0,
);

$list->Label( 
    -text   => 'Description', 
)->grid( 
    -column => 2,
    -row    => 0,
);

for ( 1..5 ) {
    $list->Checkbutton( 
        -textvariable => \$nList->[$_]{enable},
        -offvalue => '',
        -onvalue  => 'ACTIVE',
    )->grid( 
        -column => 0,
        -row    => $_,
    );
    
    $list->Entry( 
        -textvariable => \$nList->[$_]{number} 
    )->grid( 
        -column => 1,
        -row    => $_,
    );

    $list->Entry( 
        -textvariable => \$nList->[$_]{description} 
    )->grid( 
            -column => 2,
            -row    => $_,
        );

}