my %WIDGDEMO;			# class hash of active widget demonstrations

sub Populate {
    my($self, $args) = @_;

    my (%arg_defaults) = (
        -name             => 'Unknown Demo Name',
    -font             => 'Helvetica 24',  ### I changed this!
	-text             => 'Unknown Demo Text',
	-geometry_manager => 'pack',
    );