sub datalist {
    $_[0]->{fl2r_datalist} = $_[1] if @_ > 1;
    return $_[0]->{fl2r_datalist}
}

sub datalist_scroll_y {
    $_[0]->{datalist_scroll_y} = $_[1] if @_ > 1;
    return $_[0]->{datalist_scroll_y}
}

sub build_datalist {
    my $self = shift;

    $self->datalist(
        $self->HList(           
            -columns            => 6,
            -header             => 1,           
            -height             => '15',
            -background         => 'white',
        )->pack(
            -fill   => 'x',
        )
    );

    $self->datalist_scroll_y(
        $self->datalist->Scrollbar(         
        )->pack(
            -side   => 'right',
            -fill   => 'y',
        )
    );
}