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

Download:
Tk-MARC-1.5.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.3   Source  

NAME ^

Tk::MARC::Leader - megawidget for editing MARC::Record leader.

SYNOPSIS ^

 use Tk;
 use Tk::MARC::Leader;
 use MARC::Record;
 use MARC::File::USMARC;

 my $file = MARC::File::USMARC->in( "pl/tcfm.mrc" );
 my $record = $file->next();
 $file->close();
 undef $file;
 
 my $mw = MainWindow->new;
 $mw->title("leader Test");
 $mw->MARC_Leader(-record => $record)->pack;

 MainLoop;

DESCRIPTION ^

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

WARNING: As with the MARC::Record->leader() function (on which this is based), NO ERROR CHECKING IS DONE on the leader. This widget basically exists so that, in future, it will be easy to add leader error checking....

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

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: