The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Tk::MARC::Indicators - megawidget for editing MARC::Field indicators.

SYNOPSIS

 use Tk;
 use Tk::MARC::Indicators;

 my $mw = MainWindow->new;
 $mw->MARC_Indicators(-field => '245',
                      -ind1 => '0',
                      -ind2 => '7',
                     )->pack(-anchor => 'w');
 MainLoop;

DESCRIPTION

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

The widget provides a menu of valid indicator values (and their descriptions) for the given MARC field and indicator (1 or 2).

You will likely never use a Tk::MARC::Indicators 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.