r10673 - in /trunk/libgtk2-ex-printdialog-perl: debian/changelog lib/Gtk2/Ex/PrintDialog.pm

[ra28145-guest at users.alioth.debian.org]

Author: ra28145-guest
Date: Sun Dec  2 11:07:48 2007
New Revision: 10673

URL: http://svn.debian.org/wsvn/?sc=1&rev=10673
Log:
ensure Net::CUPS::Destination is correctly called, and that the printer names are passed to the ComboBox

Modified:
    trunk/libgtk2-ex-printdialog-perl/debian/changelog
    trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm

Modified: trunk/libgtk2-ex-printdialog-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libgtk2-ex-printdialog-perl/debian/changelog?rev=10673&op=diff
==============================================================================
--- trunk/libgtk2-ex-printdialog-perl/debian/changelog (original)
+++ trunk/libgtk2-ex-printdialog-perl/debian/changelog Sun Dec  2 11:07:48 2007
@@ -1,5 +1,7 @@
 libgtk2-ex-printdialog-perl (0.03-1) unstable; urgency=low
 
   * Initial Release. (Closes: #452369)
+  * Patch to ensure Net::CUPS::Destination is correctly called,
+    and that the printer names are passed to the ComboBox.
 
  -- Jeffrey Ratcliffe <Jeffrey.Ratcliffe at gmail.com>  Sun, 18 Nov 2007 18:38:04 +0100

Modified: trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm
URL: http://svn.debian.org/wsvn/trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm?rev=10673&op=diff
==============================================================================
--- trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm (original)
+++ trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm Sun Dec  2 11:07:48 2007
@@ -69,9 +69,11 @@
 		$self->{opt_print_command}->set_active(1);
 
 	} else {
-		map { $self->{opt_printer_combo}->append_text($_) } @printers;
+		my @names;
+		use Net::CUPS::Destination;
+		for (@printers) {push @names, $_->getName}
+		map { $self->{opt_printer_combo}->append_text($_) } @names;
 		$self->{opt_printer_combo}->set_active(0);
-
 	}