package Widget;
use strict;
use warnings;

sub new {
    my ( $class, @args ) = ( shift, @_ ); 
    my $self = {};
    bless( $self, $class );
}