view release on metacpan or  search on metacpan

Tydra.pl  view on Meta::CPAN

	my ($ext) = $file =~ /\.(\w+)$/i;
	print "Ext: $ext\n";

	my $target = $main->getSaveFile (
		-defaultextension => ".$ext",
		-filetypes        => [
			[ 'Text Document', [ '*.txt'                    ] ],
			[ 'Perl File',     [ '*.pl', '*.pm',            ] ],
			[ 'JPEG Image',    [ '*.jpeg', '*.jpg', '*.jpe' ] ],
			[ 'GIF Image',     [ '*.gif',                   ] ],
			[ 'PNG Image',     [ '*.png',                   ] ],
			[ 'BMP Image',     [ '*.bmp',                   ] ],
			[ 'All Files',       '*.*'                        ],
		],
		-initialdir => '.',
		-title      => 'Extract File...',
	);
	return unless defined $target;

	my $bin = $tyd->readFile ($file);
	open (OUT, ">$target");

Tydra.pl  view on Meta::CPAN

			-title   => "$file",
			-buttons => [ 'Close' ],
		);

		$show->Label (
			-image => $image,
		)->pack (-padx => 5, -pady => 5);

		$show->Show;
	}
	elsif ($file =~ /\.png$/i) {
		my $bin = $tyd->readFile ($file);
		my $base = encode_base64 ($bin);

		my $image = $main->Photo (-data => $base, -format => 'PNG');

		my $show = $main->DialogBox (
			-title   => "$file",
			-buttons => [ 'Close' ],
		);