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

NAME

iPodDB::Status - iPodDB Status bar

SYNOPSIS

    my $status = iPodDB::Status->new( $frame );
    $status->songs( $songs );
    $status->time( $time );
    $status->size( $size );

DESCRIPTION

This adds a status bar to the main iPodDB window. It keeps track of the number of songs, the total length of the songs and the total size on disk of the files.

METHODS

new( $frame )

Creates the status bar, with 3 columns (and one other for help text).

clear( )

Clears the status bar to 0 for each column.

songs( [ $songs ] )

Gets / sets the songs column in the status bar.

time( [ $time ] )

Gets / sets the time column in the status bar. It should be passed in as thousands of seconds.

size( [ $size ] )

Gets / Sets the size column in the status bar. It should be passed in as bytes.

AUTHOR

  • Brian Cassidy <bricas@cpan.org>

COPYRIGHT AND LICENSE

Copyright 2004 by Brian Cassidy

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