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.