diff options
| -rwxr-xr-x | print_launcher.pl | 46 |
1 files changed, 21 insertions, 25 deletions
diff --git a/print_launcher.pl b/print_launcher.pl index 4ce46df2..bd67fa02 100755 --- a/print_launcher.pl +++ b/print_launcher.pl @@ -1,38 +1,34 @@ #!/usr/bin/perl -w -use POSIX; -use Gtk; +use strict; use lib qw(/usr/lib/libDrakX); +use common; +use ugtk; +use ugtk; use interactive; use standalone; init Gtk; Gtk->set_locale; -use strict; #------------------------------------------------------------- -# i18n routines -# IMPORTANT: next two routines have to be redefined here to -# get correct namespace (drakconf instead of libDrakX) -# (This version is now UTF8 compliant - Sg 2001-08-18) +# i18n +# IMPORTANT: next code is needed to get correct namespace +# (drakconf instead of libDrakX) +# (This version is now UTF8 compliant - Sg 2001-08-18) #------------------------------------------------------------- -sub _ { - my $s = shift @_; my $t = translate($s); - sprintf $t, @_; -} - -sub translate { - my ($s) = @_; - $s ? c::dgettext('drakconf', $s) : ''; -} +push @::textdomains, 'drakconf'; -my $_sbindir = "/usr/sbin/"; +my $sbindir = "/usr/sbin/"; my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; -$window->signal_connect ( delete_event => \&quit_global ); +$window->signal_connect (delete_event => delete_event => sub { + ugtk::gtkset_mousecursor_normal(); + Gtk->exit(0); +} ); my $vbox = new Gtk::VBox(0,0); -$window->set_title(_("Printing configuration")); +$window->set_title(N("Printing configuration")); $window->add($vbox); -$vbox->pack_start(new Gtk::Label(_("Printing configuration")),0,0,5); +$vbox->pack_start(new Gtk::Label(N("Printing configuration")),0,0,5); $vbox->pack_start(new Gtk::HSeparator,0,0,5); my $table = new Gtk::Table (2,1, 0); $table->set_border_width(5); @@ -41,16 +37,16 @@ $table->set_col_spacings(5); my $hbox = new Gtk::HBox(0,0); $vbox->pack_start($hbox,1,1,1); $hbox->pack_start($table,0,0,5); -$table->attach (new Gtk::Label(_("Click here to configure the printing system")), 0, 1, 0, 1, 'fill', 'fill', 0, 0); -my $b1 = new Gtk::Button(_("Configure...")); -$b1->signal_connect( clicked => sub { system("$_sbindir/printerdrake &"); } ); +$table->attach (new Gtk::Label(N("Click here to configure the printing system")), 0, 1, 0, 1, 'fill', 'fill', 0, 0); +my $b1 = new Gtk::Button(N("Configure...")); +$b1->signal_connect(clicked => sub { system("$sbindir/printerdrake &") } ); $table->attach ($b1, 1, 2, 0, 1, 'fill', 'fill', 0, 0); $vbox->pack_start(new Gtk::HSeparator,0,0,5); my $bbox = new Gtk::HButtonBox; $vbox->pack_start($bbox,0,0,5); $bbox->set_layout(-end); -my $button_ok = new Gtk::Button _("Done"); -$button_ok->signal_connect ( clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0); }); +my $button_ok = new Gtk::Button N("Done"); +$button_ok->signal_connect (clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) }); $button_ok->can_default(1); $bbox->add($button_ok); |