{
	package Entry_Display_In_Wins;
	use strict;
	our @ISA = qw(Entry_Ordering GUI_Glue);
	use base qw(Entry_Ordering); # and GUI_Glue, but base deficient
	use	fields qw( __width __height __timer__ticked	 __timer__enabled);
... but then I get to "new"
sub new($) ...
    my ($class,$args) = @_;
    my $s= PreviousClass->new($args);
    confess "Fatal: memory for object $pckg_vars " .
	"busy (in use by someone else).\n"
    if (defined $s->{$pckg_vars});

    $s->{$pckg_vars} = {};
    bless $s, $class;
    ...
    $s->{$pckg_vars}->{'__GUI_Glue'}= GUI_Glue->new(...);
    return $s;