package Widget;

use strict;
use warnings;

sub new
{
    my $class = shift();
    
    my ($arguments) = @_;

    my $self = {};

    bless $self;
}