view release on metacpan or  search on metacpan

Tk/JukeboxDrive.pm  view on Meta::CPAN

$Tk::JukeboxDrive::VERSION = '2.0';

package Tk::JukeboxDrive;

# Jukebox tape drive widget derived from Tk::JukeboxSlot.

use base qw/Tk::Derived Tk::JukeboxSlot/;
use strict;

Construct Tk::Widget 'JukeboxDrive';

our $eject;			# image of an eject control

sub ClassInit {

    my($class, $mw) = @_;
    $class->SUPER::ClassInit($mw);