###########################zoozdemo.pl##########################
#!perl

##################
#
# This file was automatically generated by ZooZ.pl v1.2
# on Sat May 27 12:43:24 2006.
# Project: Project 1
# File:    
#
##################

#
# Headers
#
use strict;
use warnings;

use Tk 804;

#
# Global variables
#
my (
     # MainWindow
     $MW,

     # Hash of all widgets
     %ZWIDGETS,
    );

#
# User-defined variables (if any)
#
my $Label1content = undef;

my $check1 = undef;

my $check2 = undef;


######################
#
# Create the MainWindow
#
######################

$MW = MainWindow->new;

######################
#
# Load any images and fonts
#
######################
ZloadImages();
ZloadFonts ();



# Widget Entry1 isa Entry
$ZWIDGETS{'Entry1'} = $MW->Entry()->grid(
   -row    => 2,
   -column => 0,
  );

# Widget Checkbutton1 isa Checkbutton
$ZWIDGETS{'Checkbutton1'} = $MW->Checkbutton(
   -text     => 'Checkbutton1',
   -variable => \$check1,
  )->grid(
   -row    => 3,
   -column => 0,
  );

# Widget Checkbutton2 isa Checkbutton
$ZWIDGETS{'Checkbutton2'} = $MW->Checkbutton(
   -text     => 'Checkbutton2',
   -variable => \$check2,
  )->grid(
   -row    => 4,
   -column => 0,
  );

# Widget Label2 isa Label
$ZWIDGETS{'Label2'} = $MW->Label(
   -text         => 'Label2',
   -textvariable => \$Label1content,
  )->grid(
   -row    => 5,
   -column => 0,
  );

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

# Widget Button1 isa Button
$ZWIDGETS{'Button1'} = $MW->Button(
   -text => 'Update',
  )->grid(
   -row    => 5,
   -column => 1,
  );

# Widget Button2 isa Button
$ZWIDGETS{'Button2'} = $MW->Button(
   -text => 'short loop',
  )->grid(
   -row    => 6,
   -column => 1,
  );

###############
#
# MainLoop
#
###############

MainLoop;

#######################
#
# Subroutines
#
#######################

sub ZloadImages {
}

sub ZloadFonts {
}