package oo::gui::defaultjob;
use strict;

sub new {
 my $self = shift;
 my $job = shift;
 my $oldclass = ref $job;
 bless $job, $self;
# Call methods of defaultjob on $job, since they depend on
# the hash as setup by oo::job
 MainLoop; # Invoke Tk, allowing user to gui'ly modify the job
 return bless $job , $oldclass
}