David A. Christensen > Tk-MARC > Tk::MARC::Subfield

Download:
Tk-MARC-1.5.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.8   Source  

NAME ^

Tk::MARC::Subfield - megawidget for editing MARC::Field subfields.

SYNOPSIS ^

 use Tk;
 use Tk::MARC::Subfield;

 my $mw = MainWindow->new;
 $mw->MARC_Subfield(-field => '245',
                    -label => 'a',
                    -value => 'Spam: The wonders of canned luncheon meat.',
                   )->pack(-anchor => 'w');
 MainLoop;

DESCRIPTION ^

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

The widget indicates (by changing the text background color to green) when you have changed the text.

It allows you to revert to the original text by clicking a button (which also resets the text background to white).

It also allows you to indicate your desire to delete the subfield, also by clicking a button (this changes the text background to red).

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

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.

syntax highlighting: