r9644 - in /branches/upstream/libgtk2-ex-printdialog-perl: ./ current/ current/lib/ current/lib/Gtk2/ current/lib/Gtk2/Ex/ current/lib/Gtk2/Ex/PrintDialog/ current/t/
ra28145-guest at users.alioth.debian.org
ra28145-guest at users.alioth.debian.org
Tue Nov 20 20:45:23 UTC 2007
Author: ra28145-guest
Date: Tue Nov 20 20:45:23 2007
New Revision: 9644
URL: http://svn.debian.org/wsvn/?sc=1&rev=9644
Log:
[svn-inject] Installing original source of libgtk2-ex-printdialog-perl
Added:
branches/upstream/libgtk2-ex-printdialog-perl/
branches/upstream/libgtk2-ex-printdialog-perl/current/
branches/upstream/libgtk2-ex-printdialog-perl/current/META.yml
branches/upstream/libgtk2-ex-printdialog-perl/current/Makefile.PL
branches/upstream/libgtk2-ex-printdialog-perl/current/README
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog.pm
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Darwin.pm
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Linux.pm
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/MSWin32.pm
branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Unix.pm
branches/upstream/libgtk2-ex-printdialog-perl/current/t/
branches/upstream/libgtk2-ex-printdialog-perl/current/t/use.t
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/META.yml?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/META.yml (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/META.yml Tue Nov 20 20:45:23 2007
@@ -1,0 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Gtk2-Ex-PrintDialog
+version: 0.01
+version_from: PrintDialog.pm
+installdirs: site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/Makefile.PL?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/Makefile.PL (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/Makefile.PL Tue Nov 20 20:45:23 2007
@@ -1,0 +1,36 @@
+#!/usr/bin/perl
+# $Id: Makefile.PL,v 1.5 2005/10/05 14:23:53 jodrell Exp $
+
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ 'NAME' => 'Gtk2::Ex::PrintDialog',
+ 'VERSION_FROM' => 'lib/Gtk2/Ex/PrintDialog.pm',
+ 'PREREQ_FATAL' => 1,
+ 'PREREQ_PM' => {
+ File::Basename => 0,
+ File::Spec => 0,
+ File::Temp => 0,
+ Gtk2 => 0,
+ Locale::gettext => 0,
+ },
+);
+
+if ($^O eq 'MSWin32') {
+ my $LIBS = 0;
+ eval {
+ require Win32::Printer;
+ require Printer;
+ $LIBS = 1;
+ };
+ print STDERR "For best results on Windows, make sure Win32::Printer and Printer are installed!\n" unless ($LIBS == 1);
+
+} else {
+ my $CUPS = 0;
+ eval {
+ require Net::CUPS;
+ $CUPS = 1;
+ };
+ print STDERR "For best results on Unix, make sure Net::CUPS is installed!\n" unless ($CUPS == 1);
+
+}
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/README?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/README (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/README Tue Nov 20 20:45:23 2007
@@ -1,0 +1,18 @@
+INSTALLATION
+
+To install this module type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+COPYRIGHT AND LICENCE
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Copyright (C) 2003 Gavin Brown. All rights reserved.
+
+--
+$Id: README,v 1.1 2005/09/29 14:44:28 jodrell Exp $
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog.pm?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog.pm (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog.pm Tue Nov 20 20:45:23 2007
@@ -1,0 +1,557 @@
+# $Id: PrintDialog.pm,v 1.12 2007/04/25 10:44:02 gavin Exp $
+# Copyright (c) 2005 Gavin Brown. All rights reserved. This program is free
+# software; you can redistribute it and/or modify it under the same terms as
+# Perl itself.
+package Gtk2::Ex::PrintDialog;
+use Carp;
+use File::Basename qw(basename dirname);
+use File::Temp qw(tmpnam);
+use File::Spec;
+use Gtk2;
+use vars qw($VERSION $GETTEXT);
+use strict;
+
+our $VERSION = '0.03';
+our $GETTEXT = 0;
+
+BEGIN {
+ eval {
+ require Locale::gettext;
+ $GETTEXT = 1;
+ };
+}
+
+*new = \&Glib::Object::new;
+
+Glib::Type->register(
+ Gtk2::Dialog::,
+ __PACKAGE__,
+);
+
+sub INIT_INSTANCE {
+ my $self = shift;
+
+ $self->{backend} = $self->get_backend;
+
+ $self->add_buttons(
+ 'gtk-cancel' => 'cancel',
+ #'gtk-print-preview' => 0, not implemented just yet
+ 'gtk-print' => 1,
+ );
+
+ $self->signal_connect('response', sub { $self->response($_[1]) ; return 1 });
+
+ $self->set_title(_('Print'));
+ $self->set_icon_name('stock_print');
+ $self->set_modal(1);
+ $self->set_resizable(0);
+
+
+ $self->{opts_label} = Gtk2::Label->new;
+ $self->{opts_label}->set_use_markup(1);
+ $self->{opts_label}->set_markup(sprintf('<span weight="bold">%s</span>', _('Print to:')));
+ $self->{opts_label}->set_alignment(0, 0);
+
+
+ $self->{opt_print_printer} = Gtk2::RadioButton->new_with_label(undef, _('Printer:'));
+ $self->{opt_print_command} = Gtk2::RadioButton->new_with_label($self->{opt_print_printer}, _('Command:'));
+ $self->{opt_print_pdf} = Gtk2::RadioButton->new_with_label($self->{opt_print_printer}, _('PDF File:'));
+ $self->{opt_print_file} = Gtk2::RadioButton->new_with_label($self->{opt_print_printer}, _('File:'));
+
+
+ # populate the printer combo:
+ $self->{opt_printer_combo} = Gtk2::ComboBox->new_text;
+ my @printers = $self->backend->get_printers;
+ # no printers, fall through to the command mode:
+ if (scalar(@printers) < 1) {
+ $self->{opt_print_printer}->set_sensitive(undef);
+ $self->{opt_printer_combo}->set_sensitive(undef);
+ $self->{opt_print_command}->set_active(1);
+
+ } else {
+ map { $self->{opt_printer_combo}->append_text($_) } @printers;
+ $self->{opt_printer_combo}->set_active(0);
+
+ }
+
+
+ $self->{opt_command_entry} = Gtk2::Entry->new;
+ $self->{opt_command_entry}->set_text($self->backend->get_default_print_command);
+ $self->{opt_print_file}->set_active(1) if (!-x $self->backend->get_default_print_command && !$self->{opt_print_printer}->get_active);
+
+
+ $self->{opt_pdf_label} = Gtk2::Label->new;
+ $self->{opt_pdf_label}->set_selectable(1);
+ $self->{opt_pdf_label}->set_alignment(0, 0.5);
+ $self->{opt_pdf_label}->set_size_request(200, -1);
+ $self->{opt_pdf_label}->set_ellipsize('middle');
+ $self->{opt_pdf_label}->set_text(File::Spec->catfile($self->get_default_dir, _('output.pdf')));
+
+ $self->{pdf_label_button} = Gtk2::Button->new_from_stock('gtk-open');
+ $self->{pdf_label_button}->signal_connect('clicked', sub { $self->choose_pdf_dialog });
+
+ $self->{pdf_label_box} = Gtk2::HBox->new;
+ $self->{pdf_label_box}->set_spacing(6);
+ $self->{pdf_label_box}->pack_start($self->{opt_pdf_label}, 1, 1, 0);
+ $self->{pdf_label_box}->pack_start($self->{pdf_label_button}, 0, 0, 0);
+
+ if (!$self->backend->can_print_pdf) {
+ $self->{opt_print_pdf}->set_sensitive(undef);
+ $self->{opt_pdf_label}->set_sensitive(undef);
+ $self->{pdf_label_button}->set_sensitive(undef);
+ }
+
+
+ $self->{opt_file_label} = Gtk2::Label->new;
+ $self->{opt_file_label}->set_selectable(1);
+ $self->{opt_file_label}->set_alignment(0, 0.5);
+ $self->{opt_file_label}->set_size_request(200, -1);
+ $self->{opt_file_label}->set_ellipsize('middle');
+ $self->{opt_file_label}->set_text(File::Spec->catfile($self->get_default_dir, _('output.ps')));
+
+ $self->{file_label_button} = Gtk2::Button->new_from_stock('gtk-open');
+ $self->{file_label_button}->signal_connect('clicked', sub { $self->choose_file_dialog });
+
+ $self->{file_label_box} = Gtk2::HBox->new;
+ $self->{file_label_box}->set_spacing(6);
+ $self->{file_label_box}->pack_start($self->{opt_file_label}, 1, 1, 0);
+ $self->{file_label_box}->pack_start($self->{file_label_button}, 0, 0, 0);
+
+
+ $self->{opts_table} = Gtk2::Table->new(5, 2, 0);
+ $self->{opts_table}->set_col_spacings(6);
+ $self->{opts_table}->set_row_spacings(6);
+
+ $self->{opts_table}->attach($self->{opt_print_printer}, 0, 1, 0, 1, 'fill', 'fill', 0, 0);
+ $self->{opts_table}->attach($self->{opt_printer_combo}, 1, 2, 0, 1, 'fill', 'fill', 0, 0);
+
+ $self->{opts_table}->attach($self->{opt_print_command}, 0, 1, 1, 2, 'fill', 'fill', 0, 0);
+ $self->{opts_table}->attach($self->{opt_command_entry}, 1, 2, 1, 2, 'fill', 'fill', 0, 0);
+
+ $self->{opts_table}->attach($self->{opt_print_pdf}, 0, 1, 2, 3, 'fill', 'fill', 0, 0);
+ $self->{opts_table}->attach($self->{pdf_label_box}, 1, 2, 2, 3, 'fill', 'fill', 0, 0);
+
+ $self->{opts_table}->attach($self->{opt_print_file}, 0, 1, 3, 4, 'fill', 'fill', 0, 0);
+ $self->{opts_table}->attach($self->{file_label_box}, 1, 2, 3, 4, 'fill', 'fill', 0, 0);
+
+ # these seems to be needed to fix the layout of the table...
+ my $label = Gtk2::Label->new;
+ $label->set_size_request(0, 0);
+ $self->{opts_table}->attach($label, 0, 2, 3, 4, 'expand', 'fill', 0, 0);
+
+ my $hbox = Gtk2::HBox->new;
+ $hbox->pack_start(Gtk2::Label->new(' ' x 4), 0, 0, 0);
+ $hbox->pack_start($self->{opts_table}, 1, 1, 0);
+
+ $self->{vbox} = Gtk2::VBox->new;
+ $self->{vbox}->set_border_width(6);
+ $self->{vbox}->set_spacing(6);
+ $self->{vbox}->pack_start($self->{opts_label}, 0, 0, 0);
+ $self->{vbox}->pack_start($hbox, 1, 1, 0);
+
+ $self->{vbox}->show_all;
+
+ $self->vbox->pack_start($self->{vbox}, 1, 1, 0);
+
+}
+
+sub choose_file_dialog {
+ my $self = shift;
+ my $dialog = Gtk2::FileChooserDialog->new(
+ _('Choose File'),
+ $self,
+ 'save',
+ 'gtk-cancel' => 'cancel',
+ 'gtk-ok' => 'ok',
+ );
+ $dialog->set_local_only(1);
+ $dialog->set_modal(1);
+ $dialog->set_icon_name('stock_print');
+ $dialog->set_current_folder(dirname($self->{opt_file_label}->get_text));
+ $dialog->set_current_name(basename($self->{opt_file_label}->get_text));
+ $dialog->signal_connect('response', sub {
+ $self->{opt_file_label}->set_text($dialog->get_filename) if ($_[1] eq 'ok');
+ $dialog->destroy;
+ });
+ $dialog->run;
+}
+
+sub choose_pdf_dialog {
+ my $self = shift;
+ my $dialog = Gtk2::FileChooserDialog->new(
+ _('Choose File'),
+ $self,
+ 'save',
+ 'gtk-cancel' => 'cancel',
+ 'gtk-ok' => 'ok',
+ );
+ $dialog->set_local_only(1);
+ $dialog->set_modal(1);
+ $dialog->set_icon_name('stock_print');
+ $dialog->set_current_folder(dirname($self->{opt_pdf_label}->get_text));
+ $dialog->set_current_name(basename($self->{opt_pdf_label}->get_text));
+ $dialog->signal_connect('response', sub {
+ $self->{opt_pdf_label}->set_text($dialog->get_filename) if ($_[1] eq 'ok');
+ $dialog->destroy;
+ });
+ $dialog->run;
+}
+
+sub response {
+ my ($self, $response) = @_;
+
+ if ($response eq 'cancel') {
+ $self->destroy;
+
+ } elsif ($response == 0) {
+ $self->preview;
+
+ } elsif ($response == 1) {
+ $self->print;
+ $self->destroy;
+
+ } else {
+ carp("Unknown response ID '$response'");
+
+ }
+
+ return 1;
+}
+
+sub preview {
+}
+
+sub print {
+ my $self = shift;
+
+ if ($self->{file} eq '' && $self->{data} eq '') {
+ carp("Error: no data provided!");
+ return undef;
+ }
+
+ $self->set_sensitive(undef);
+ $self->window->set_cursor(Gtk2::Gdk::Cursor->new('watch'));
+ Gtk2->main_iteration while (Gtk2->events_pending);
+
+ if ($self->{opt_print_printer}->get_active) {
+ $self->print_to_printer;
+
+ } elsif ($self->{opt_print_command}->get_active) {
+ $self->print_to_command;
+
+ } elsif ($self->{opt_print_pdf}->get_active) {
+ $self->print_to_pdf;
+
+ } elsif ($self->{opt_print_file}->get_active) {
+ $self->print_to_file;
+
+ }
+
+ $self->set_sensitive(1);
+ $self->window->set_cursor(Gtk2::Gdk::Cursor->new('left_ptr'));
+
+ return 1;
+}
+
+sub print_to_printer {
+ my $self = shift;
+
+ my $filename = tmpnam();
+ open(TMPFILE, ">$filename");
+ print TMPFILE $self->get_data;
+ close(TMPFILE);
+
+ $self->backend->print_file($self->{opt_printer_combo}->get_active_text, $filename);
+
+ unlink($filename);
+
+ return 1;
+}
+
+sub print_to_pdf {
+ my $self = shift;
+ return $self->backend->print_to_pdf($self->get_data, $self->{opt_pdf_label}->get_text);
+}
+
+sub print_to_command {
+ my $self = shift;
+ return $self->_print_data_to_command($self->get_data, $self->{opt_command_entry}->get_text);
+}
+
+sub _print_data_to_command {
+ my ($self, $data, $cmd) = @_;
+
+ if (!open(CMD, "|$cmd")) {
+ my $dialog = Gtk2::MessageDialog->new(
+ undef,
+ 'modal',
+ 'error',
+ 'ok',
+ _('Error printing to command!'),
+ );
+ $dialog->format_secondary_markup(sprintf(_("Cannot run '%s': %s"), $cmd, $!));
+ $dialog->signal_connect('response', sub { $dialog->destroy });
+ $dialog->run;
+
+ } else {
+ print CMD $data;
+ close(CMD);
+ return 1;
+
+ }
+}
+
+sub print_to_file {
+ my $self = shift;
+
+ my $file = $self->{opt_file_label}->get_text;
+ if (!open(DEST, ">$file")) {
+ my $dialog = Gtk2::MessageDialog->new(
+ $self,
+ 'modal',
+ 'error',
+ 'ok',
+ _('Error printing to file!'),
+ );
+ $dialog->format_secondary_markup(_('Cannot write to %s: %s', $file, $!));
+ $dialog->signal_connect('response', sub { $dialog->destroy });
+ $dialog->run;
+
+ } else {
+ print DEST $self->get_data;
+ close(DEST);
+ return 1;
+
+ }
+}
+
+sub set_filename {
+ my ($self, $file) = @_;
+
+ if (!open(FILE, $file)) {
+ carp("Error opening '".$file."': $!");
+ return undef;
+
+ } else {
+ binmode(FILE);
+ $self->{data} = '';
+ while (<FILE>) {
+ $self->{data} .= $_;
+ }
+ close(FILE);
+ }
+
+ return 1;
+}
+
+sub get_filename {
+ $_[0]->{file};
+}
+
+sub set_data {
+ $_[0]->{data} = $_[1];
+}
+
+sub get_data {
+ $_[0]->{data};
+}
+
+sub backend {
+ $_[0]->{backend};
+}
+
+sub _ {
+ my $text = shift;
+ return ($GETTEXT == 1 ? Locale::gettext::gettext($text) : $text);
+}
+
+sub which {
+ my $cmd = shift;
+ foreach my $dir (split(/:/, $ENV{PATH})) {
+ my $path = File::Spec->catfile($dir, $cmd);
+ return $path if (-x $path);
+ }
+ return undef;
+}
+
+sub get_backend {
+ my $self = shift;
+ my $module = sprintf('%s::%s', ref($self), ucfirst($^O));
+ my $file = $module.'.pm';
+ $file =~ s!::!/!g;
+ eval {
+ require "$file";
+ };
+ if ($@) {
+ carp(sprintf("Cannot find the %s backend!", $module));
+ return undef;
+
+ } else {
+ return $module->new;
+
+ }
+}
+
+sub get_default_dir {
+ my $self = shift;
+ return File::Spec->catfile(Glib::get_home_dir, ($^O eq 'MSWin32' ? 'Desktop' : ''));
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Gtk2::Ex::PrintDialog - a simple, pure Perl dialog for printing PostScript data in GTK+ applications.
+
+=head1 SYNOPSIS
+
+ use Gtk2::Ex::PrintDialog;
+
+ my $dialog = Gtk2::Ex::PrintDialog->new; # a new dialog
+
+ $dialog->set_data($postscript_data); # supply some postscript data
+
+ $dialog->set_filename($postscript_file); # get postscript from a file
+
+ $dialog->run; # show the dialog to the user
+
+=head1 DESCRIPTION
+
+This module implements a dialog widget that can be used to print PostScript
+data. It is intended to be a lightweight and pure-perl alternative to the
+Gnome2::Print libraries.
+
+This module uses a simple system of operating-system specific backends that
+are used to do the job of printing. Currently, only a generic Linux/Unix
+backend (implemented using L<Net::CUPS>) is available, more will be added in
+the future.
+
+The dialog itself is intended to comply with the GNOME Human Interface
+Guidelines (HIG). It allows the user to print to any printer installed on the
+system, or to an external command such as C<lpr>, or to print a PostScript or
+PDF file.
+
+This module is UNSTABLE, the behaviour and API of its components may change in
+the future.
+
+=head1 OBJECT HIERARCHY
+
+ Glib::Object
+ +----Gtk2::Object
+ +----Gtk2::Widget
+ +----Gtk2::Container
+ +----Gtk2::Bin
+ +----Gtk2::Window
+ +----Gtk2::Dialog
+ +----Gtk2::Ex::PrintDialog
+
+=head1 METHODS
+
+ my $dialog = Gtk2::Ex::PrintDialog->new;
+
+Returns an instance of C<Gtk2::Ex::PrintDialog>. These dialogs are subclasse
+of C<Gtk2::Dialog> so all corresponding methods, signals and properties from
+that class are also available.
+
+The dialog will handle user actions itself so you will probably not need to
+connect to any signals.
+
+ $dialog->set_data($data);
+
+This tells the dialog to use the PostScript data in C<$data>. This might be
+PostScript data you create yourself, or from another application. This data
+can subsequently retrieved using C<get_data()>.
+
+ $dialog->set_filename($file);
+
+This tells the dialog to use the PostScript data in C<$file>. The file name
+can be subsequently retrieved using C<get_filename()>. The contents
+of the file are read into memory when C<set_filename()> is called, so any
+subequent calls to C<get_data()> will return the contents of C<$file>.
+
+=head1 LOCALISATION ISSUES
+
+If the C<Locale::gettext> module is available on the system, and your
+application uses it, all the strings used in the dialog will be automagically
+translated, as long as these default values are translated in your .mo files.
+
+=head1 WRITING BACKENDS
+
+Backends are Perl modules with names of the form
+
+ C<Gtk2::Ex::PrintDialog::$^O>
+
+See L<perlvar> for details of the C<$^O> variable. The module must have the
+following methods:
+
+=over
+
+=item C<$backend = Gtk2::Ex::PrintDialog::$^O-E<gt>new>
+
+The constructor.
+
+=item C<$backend-E<gt>get_printers>
+
+Returns an array of printer names.
+
+=item C<$backend-E<gt>print_file($printer, $file)>
+
+Prints the contents of C<$file> to the printer named C<$file>
+
+=item C<$backend-E<gt>get_default_print_command>
+
+Returns the path to the default print command, if applicable (eg 'C<lpr>')
+
+=item C<$backend-E<gt>can_print_pdf>
+
+Returns a true value if PDF printing is supported, C<undef> otherwise.
+
+=item C<$backend-E<gt>print_to_pdf($data, $file)>
+
+Prints the PostScript data in C<$data> to the PDF file named C<$file>.
+
+Consult L<Gtk2::Ex::PrintDialog::Unix> for an example. Please note that this interface may change in the future.
+
+=back
+
+=head1 PREREQUISITES
+
+=over
+
+=item L<Gtk2>
+
+=item L<Locale::gettext> (recommended)
+
+=item L<Net::CUPS> (for the Unix/Linux backend)
+
+=item Ghostscript, for the C<ps2pdf> command (recommended)
+
+=back
+
+=head1 SEE ALSO
+
+L<Gnome2::Print> provides Perl bindings to the "offical" GNOME printing library. If you want a simple way to generate PostScript data, consider L<PostScript::Simple>.
+
+=head1 TO DO
+
+=over
+
+=item Implement a "Print Preview" function, maybe using Poppler.
+
+=item More backends.
+
+=back
+
+=head1 AUTHOR
+
+Gavin Brown (gavin dot brown at uk dot com)
+
+=head1 COPYRIGHT
+
+(c) 2005 Gavin Brown. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
+
+=cut
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Darwin.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Darwin.pm?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Darwin.pm (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Darwin.pm Tue Nov 20 20:45:23 2007
@@ -1,0 +1,35 @@
+# $Id: Darwin.pm,v 1.1 2005/10/05 12:15:05 jodrell Exp $
+# Copyright (c) 2005 Gavin Brown. All rights reserved. This program is free
+# software; you can redistribute it and/or modify it under the same terms as
+# Perl itself.
+package Gtk2::Ex::PrintDialog::Darwin;
+use Gtk2::Ex::PrintDialog::Unix;
+use base qw(Gtk2::Ex::PrintDialog::Unix);
+use strict;
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Gtk2::Ex::PrintDialog::darwin - MacOS X/Darwin backend for L<Gtk2::Ex::PrintDialog>
+
+=head1 DESCRIPTION
+
+This module is a printing backend for L<Gtk2::Ex::PrintDialog>. You should
+never need to access it directly. It is just a wrapper around
+L<Gtk2::Ex::PrintDialog::Unix>.
+
+=head1 AUTHOR
+
+Gavin Brown (gavin dot brown at uk dot com)
+
+=head1 COPYRIGHT
+
+(c) 2005 Gavin Brown. All rights reserved. This program is free software; you
+can redistribute it and/or modify it under the same terms as Perl itself.
+
+=cut
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Linux.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Linux.pm?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Linux.pm (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Linux.pm Tue Nov 20 20:45:23 2007
@@ -1,0 +1,35 @@
+# $Id: Linux.pm,v 1.2 2005/10/05 12:15:05 jodrell Exp $
+# Copyright (c) 2005 Gavin Brown. All rights reserved. This program is free
+# software; you can redistribute it and/or modify it under the same terms as
+# Perl itself.
+package Gtk2::Ex::PrintDialog::Linux;
+use Gtk2::Ex::PrintDialog::Unix;
+use base qw(Gtk2::Ex::PrintDialog::Unix);
+use strict;
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Gtk2::Ex::PrintDialog::Linux - Linux backend for L<Gtk2::Ex::PrintDialog>
+
+=head1 DESCRIPTION
+
+This module is a printing backend for L<Gtk2::Ex::PrintDialog>. You should
+never need to access it directly. It is just a wrapper around
+L<Gtk2::Ex::PrintDialog::Unix>.
+
+=head1 AUTHOR
+
+Gavin Brown (gavin dot brown at uk dot com)
+
+=head1 COPYRIGHT
+
+(c) 2005 Gavin Brown. All rights reserved. This program is free software; you
+can redistribute it and/or modify it under the same terms as Perl itself.
+
+=cut
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/MSWin32.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/MSWin32.pm?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/MSWin32.pm (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/MSWin32.pm Tue Nov 20 20:45:23 2007
@@ -1,0 +1,65 @@
+# $Id: MSWin32.pm,v 1.1 2005/10/05 14:15:06 jodrell Exp $
+# Copyright (c) 2005 Gavin Brown. All rights reserved. This program is free
+# software; you can redistribute it and/or modify it under the same terms as
+# Perl itself.
+package Gtk2::Ex::PrintDialog::MSWin32;
+use Win32::Printer;
+use Printer;
+use strict;
+
+sub new {
+ my $self = bless({}, shift);
+ $self->{prn} = Printer->new;
+ return $self;
+}
+
+sub get_printers {
+ my $self = shift;
+ use Data::Dumper;
+ my %data = $self->{prn}->list_printers;
+ return @{$data{name}};
+}
+
+sub print_file {
+ my ($self, $printer, $file) = @_;
+}
+
+sub get_default_print_command {
+ my $self = shift;
+ return '';
+}
+
+sub can_print_pdf {
+ return undef;
+}
+
+sub print_to_pdf {
+ my ($self, $data, $file) = @_;
+ return undef;
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Gtk2::Ex::PrintDialog::MSWin32 - generic Windows backend for L<Gtk2::Ex::PrintDialog>
+
+=head1 DESCRIPTION
+
+This module is a printing backend for L<Gtk2::Ex::PrintDialog>. You should
+never need to access it directly.
+
+=head1 AUTHOR
+
+Gavin Brown (gavin dot brown at uk dot com)
+
+=head1 COPYRIGHT
+
+(c) 2005 Gavin Brown. All rights reserved. This program is free software; you
+can redistribute it and/or modify it under the same terms as Perl itself.
+
+=cut
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Unix.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Unix.pm?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Unix.pm (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/lib/Gtk2/Ex/PrintDialog/Unix.pm Tue Nov 20 20:45:23 2007
@@ -1,0 +1,72 @@
+# $Id: Unix.pm,v 1.5 2007/04/25 10:44:04 gavin Exp $
+# Copyright (c) 2005 Gavin Brown. All rights reserved. This program is free
+# software; you can redistribute it and/or modify it under the same terms as
+# Perl itself.
+package Gtk2::Ex::PrintDialog::Unix;
+use Gtk2::Ex::PrintDialog;
+use Net::CUPS;
+use vars qw($LPR $PRINTCMD $PS2PDF $PDFCMD);
+use strict;
+
+our $LPR = 'lpr';
+our $PRINTCMD = Gtk2::Ex::PrintDialog::which($LPR);
+our $PS2PDF = 'ps2pdf';
+our $PDFCMD = Gtk2::Ex::PrintDialog::which($PS2PDF);
+
+
+sub new {
+ my $self = {};
+ $self->{cups} = Net::CUPS->new;
+ bless($self, shift);
+}
+
+sub get_printers {
+ my $self = shift;
+ return grep { defined } $self->{cups}->getDestinations;
+}
+
+sub print_file {
+ my ($self, $printer, $file) = @_;
+ $self->{cups}->getDestination($printer)->printFile($file, ref($self));
+}
+
+sub get_default_print_command {
+ my $self = shift;
+ return (-x $PRINTCMD ? $PRINTCMD : $LPR);
+}
+
+sub can_print_pdf {
+ return -x $PDFCMD;
+}
+
+sub print_to_pdf {
+ my ($self, $data, $file) = @_;
+ my $cmd = sprintf('%s - "%s"', $PDFCMD, $file);
+ Gtk2::Ex::PrintDialog::_print_data_to_command(undef, $data, $cmd);
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Gtk2::Ex::PrintDialog::Unix - generic Unix backend for L<Gtk2::Ex::PrintDialog>
+
+=head1 DESCRIPTION
+
+This module is a printing backend for L<Gtk2::Ex::PrintDialog>. You should
+never need to access it directly.
+
+=head1 AUTHOR
+
+Gavin Brown (gavin dot brown at uk dot com)
+
+=head1 COPYRIGHT
+
+(c) 2005 Gavin Brown. All rights reserved. This program is free software; you
+can redistribute it and/or modify it under the same terms as Perl itself.
+
+=cut
Added: branches/upstream/libgtk2-ex-printdialog-perl/current/t/use.t
URL: http://svn.debian.org/wsvn/branches/upstream/libgtk2-ex-printdialog-perl/current/t/use.t?rev=9644&op=file
==============================================================================
--- branches/upstream/libgtk2-ex-printdialog-perl/current/t/use.t (added)
+++ branches/upstream/libgtk2-ex-printdialog-perl/current/t/use.t Tue Nov 20 20:45:23 2007
@@ -1,0 +1,9 @@
+#!/usr/bin/env perl -w
+# $Id: use.t,v 1.2 2005/10/16 18:14:08 jodrell Exp $
+use strict;
+use Test;
+BEGIN { plan tests => 1 }
+
+use Gtk2::Ex::PrintDialog; ok(1);
+
+exit;
More information about the Pkg-perl-cvs-commits
mailing list