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


 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');



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.


David Christensen, <>


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.