view release on metacpan or  search on metacpan

Tydra.pl  view on Meta::CPAN

$main->geometry ('640x480');
$main->optionAdd ('*tearOff', 'false');

our $body = {
	file => undef, # Save file
};

our $tyd = new Archive::Tyd();

#####################
## Menu Bar        ##
#####################

our $menu = $main->Menu (-type => 'menubar');
$main->configure (-menu => $menu);

our $fileMenu = $menu->cascade (
	-label => '~File',
	);

	$fileMenu->command (-label => '~New Archive', -accelerator => 'Ctrl+N', -command => sub {
		&newArchive();
	});

	$fileMenu->command (-label => '~Open Archive', -accelerator => 'Ctrl+O', -command => sub {
		&openArchive();
	});

	$fileMenu->command (-label => '~Save Archive', -accelerator => 'Ctrl+S', -command => sub {
		&saveArchive();
	});

	$fileMenu->command (-label => 'Save Archive ~As...', -accelerator => 'Shift+Ctrl+S', -command => sub {
		&saveArchive('as');
	});

	$fileMenu->command (-label => '~Close Archive', -accelerator => 'Ctrl+W', -command => sub {
		&newArchive();
	});

	$fileMenu->separator;

	$fileMenu->command (-label => '~Exit Tydra', -accelerator => 'Alt+F4', -command => sub {
		exit(0);
	});

our $tydMenu = $menu->cascade (
	-label => '~Tyd',
	);

	$tydMenu->command (-label => '~Add File...', -accelerator => 'Ctrl+A', -command => sub {
		&addFile();
	});

	$tydMenu->command (-label => '~Extract File...', -accelerator => 'Ctrl+E', -command => sub {
		&extractFile();
	});

	$tydMenu->command (-label => '~Delete File', -accelerator => 'Ctrl+X', -command => sub {
		&delFile();
	});

	$tydMenu->command (-label => '~View File', -accelerator => 'Enter', -command => sub {
		&viewFile();
	});

our $helpMenu = $menu->cascade (
	-label => '~Help',
	);

	$helpMenu->command (-label => '~About...', -accelerator => 'F1', -command => sub {
		&about();
	});

#####################
## Binding Keys    ##
#####################

$main->bind ('<Control-n>', \&newArchive);
$main->bind ('<Control-o>', \&openArchive);
$main->bind ('<Control-s>', \&saveArchive);