/ 
Tk-MARC-1.5
River stage zero No dependents
/ Tk::MARC::Field

NAME

Tk::MARC::Field - megawidget for editing MARC::Field objects.

SYNOPSIS

use Tk;
use Tk::MARC::Field;
use MARC::Field

my $mw = MainWindow->new;
my $field = MARC::Field->new('245','','',
                             'a' => 'The Case for Mars: ',
                             'b' => 'The plan to settle the red
planet, and why we must.'
                            );
$mw->MARC_Field(-field => $field
               )->pack(-anchor => 'w');

MainLoop;

DESCRIPTION

This is a megawidget that allows editing of a MARC::Field object. The widget itself does not change the MARC::Field - that is up to the widget's parent.

The widget allows you to indicate your desire to delete/undelete the field by clicking a button (which will change the color of the tag).

It allows you to add new subfields by selecting from a list (you can indicate your desire to delete a subfield by clicking a button)... and it knows what subfields are valid for this field (by using MARC::Descriptions).

You will likely never use a Tk::MARC::Field directly - it is simply a component of Tk::MARC::Editor.

AUTHOR

David Christensen, <DChristensenSPAMLESS@westman.wave.ca>

COPYRIGHT AND LICENSE

Copyright 2004 by David Christensen

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.