Gtk2::Ex::Email::AAnotebook - Creates a Gtk2::Notebook object for handling addresses and attachments

Version 0.0.0

    use Gtk2::Ex::Email::AAnotebook;
    use Gtk2;
    use Data::Dumper;

    Gtk2->init;

    my $aanb=Gtk2::Ex::Email::AAnotebook->new();

    my $vbox=Gtk2::VBox->new;
    $vbox->show;

    my $notebook=$aanb->notebook;
    $vbox->pack_start($notebook, 1, 1, 1);

    #get the object for talking to the Gtk2::Ex::Email::AddressVBox
    my $addressVB=$aanb->getAddressVBox;

    #get the object for talking to the Gtk2::Ex::Email::AttachmentVBox
    my $attachmentVB=$aanb->getAttachmentVBox;

    #adds a button that calls getAddresses
    my $button=Gtk2::Button->new;
    $button->show;
    my $buttonLabel=Gtk2::Label->new('get addresses');
    $buttonLabel->show;
    $button->add($buttonLabel);
    $vbox->pack_start($button, 0, 1, 1);
    $button->signal_connect(clicked=>sub{
	    								my %addresses=$addressVB->getAddresses;
    									print Dumper(\%addresses);
    									}
    						);

    #adds a button that calls getFiles
    my $button2=Gtk2::Button->new;
    $button2->show;
    my $buttonLabel2=Gtk2::Label->new('get files');
    $buttonLabel2->show;
    $button2->add($buttonLabel2);
    $vbox->pack_start($button2, 0, 1, 1);
    $button2->signal_connect(clicked=>sub{
    									my @files=$attachmentVB->getFiles;
    									print Dumper(\@files);
    									}
    						);

    my $window=Gtk2::Window->new;
    $window->add($vbox);
    $window->show;

    Gtk2->main;

This initiates the object.

    my $anb=Gtk2::Ex::Email::AAnotbook->new();

This gets object created by Gtk2::Ex::Email::AddressVBox. This should be called after the notebook method is called.

    my $addressVBox=$anb->getAttachmentVBox;

This gets object created by Gtk2::Ex::Email::AttachmentVBox. This should be called after the notebook method is called.

    my $attachmentVBox=$anb->getAttachmentVBox;

This initiates the notebook object and returns it.

Two optional arguements are taken. The first is the the hash reference that will be used for initiating Gtk2::Ex::Email::AddressVBox and the second is a array reference that will be used for initiating Gtk2::Ex::Email::AttachmentVBox.

    my $notebook=$anb->notebook( \%addresses , \@files);

Zane C. Bowers, <vvelox at vvelox.net>

Please report any bugs or feature requests to bug-gtk2-ex-email-aanotebook at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Gtk2-Ex-Email-AAnotebook. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

You can find documentation for this module with the perldoc command.

    perldoc Gtk2::Ex::Email::AAnotebook

You can also look for information at:

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Gtk2-Ex-Email-AAnotebook

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Gtk2-Ex-Email-AAnotebook

* CPAN Ratings

http://cpanratings.perl.org/d/Gtk2-Ex-Email-AAnotebook

* Search CPAN

http://search.cpan.org/dist/Gtk2-Ex-Email-AAnotebook/

Copyright 2009 Zane C. Bowers, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.