#!perl

##################
#
# This file was automatically generated by ZooZ.pl v1.2
# on Sat May 27 13:23:54 2006.
# Project: Project 1
# File:    
#
##################

#
# Headers
#
use strict;
use warnings;

use Tk 804;

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

     # Hash of all widgets
     %ZWIDGETS,
    );

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


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

$MW = MainWindow->new;

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



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

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

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

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

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

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

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

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

MainLoop;

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

sub ZloadImages {
}

sub ZloadFonts {
}