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'); MainLoop;
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, <DChristensenSPAMLESS@westman.wave.ca>
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.