#!/usr/bin/perl
# $Id: tkform1 $
# $Date: 1.25.11 $
# $HeadURL: adamant.net $
# $Revision: 2011 $
# $Source: /tkform1.pl $
##################################################################################
use strict;
use warnings;
use Tk;
our $VERSION = 1.00;

my($model, $DATABASE);

my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Population Model Form") -> pack();
my $rdb_1 = $mw -> Radiobutton(-text=>"Model 1",  
		-value=>1,  -variable=>\$model)-> pack();
my $rdb_2 = $mw -> Radiobutton(-text=>"Model ",
		-value=>2,-variable=>\$model)-> pack();

my $lab1 = $mw -> Label(-text=>"Initial #:") -> pack();
my $initial = $mw -> Entry(-width=>5,) -> pack();
my $lab2 = $mw -> Label(-text=>"Copying Error % +/-") -> pack();
my $copyerr = $mw -> Entry(-width=>5,) -> pack();
my $lab3 = $mw -> Label(-text=>"How many Year -> population estimates do you have?") -> pack();
my $LST = $mw -> Entry(-width=>10) -> pack();


my $button = $mw -> Button(-text => "Submit", 
		-command =>\&exitProgam)
	-> pack();
MainLoop;
sub exitProgam {
 	$mw->messageBox(-message=>"Goodbye");
}


#sub data_in{
#open my $DATABASE, '>', 'data_in1.txt' or croak 'data_in1 not written.';
#print {$DATABASE} qq{$model|$initial|$copyerr|$LST\n} or croak 'unable to print';
#close $DATABASE or croak 'data_in1 not closed.';
#}



exit;