Select Code to Download

###########################zoozdemo.pl##########################
#!perl
...
sub ZloadFonts {
}

# Widget Label1 isa Label
$ZWIDGETS{'Label1'} = $MW->Label(
...
   -row    => 5,
   -column => 0,
  );

#
# User-defined variables (if any)
#
my $worker->{labeltext} = ;

my %ZWIDGETS;
my $worker = ZooZDemo->new(\%ZWIDGETS);

#!perl

...

}

#!perl

...
sub ZloadFonts {
}

...

1;