summaryrefslogtreecommitdiffstats
path: root/print_launcher.pl
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-14 14:30:42 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-14 14:30:42 +0000
commit5d007314c18cbff6bc060ac2480afceb20e351c4 (patch)
treeba4c00cdcda1e4610c3a278a729b1979b34eac9d /print_launcher.pl
parenta91fbcd6d8fc1c77fda2a73e4bdfb7662be51ea3 (diff)
downloadcontrol-center-5d007314c18cbff6bc060ac2480afceb20e351c4.tar
control-center-5d007314c18cbff6bc060ac2480afceb20e351c4.tar.gz
control-center-5d007314c18cbff6bc060ac2480afceb20e351c4.tar.bz2
control-center-5d007314c18cbff6bc060ac2480afceb20e351c4.tar.xz
control-center-5d007314c18cbff6bc060ac2480afceb20e351c4.zip
- don't use POSIX when uneeded
- use my_gtk to exit and transparently manage embedding - no need to run twice the main gtk loop
Diffstat (limited to 'print_launcher.pl')
-rwxr-xr-xprint_launcher.pl9
1 files changed, 4 insertions, 5 deletions
diff --git a/print_launcher.pl b/print_launcher.pl
index bd67fa02..0ef2762c 100755
--- a/print_launcher.pl
+++ b/print_launcher.pl
@@ -4,7 +4,7 @@ use strict;
use lib qw(/usr/lib/libDrakX);
use common;
use ugtk;
-use ugtk;
+use my_gtk;
use interactive;
use standalone;
init Gtk;
@@ -23,7 +23,7 @@ my $sbindir = "/usr/sbin/";
my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
$window->signal_connect (delete_event => delete_event => sub {
ugtk::gtkset_mousecursor_normal();
- Gtk->exit(0);
+ my_gtk->exit(0);
} );
my $vbox = new Gtk::VBox(0,0);
$window->set_title(N("Printing configuration"));
@@ -46,12 +46,11 @@ my $bbox = new Gtk::HButtonBox;
$vbox->pack_start($bbox,0,0,5);
$bbox->set_layout(-end);
my $button_ok = new Gtk::Button N("Done");
-$button_ok->signal_connect (clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) });
+$button_ok->signal_connect (clicked => sub { my_gtk->exit(0) });
$button_ok->can_default(1);
$bbox->add($button_ok);
$window->show_all;
-Gtk->main_iteration while Gtk->events_pending;
-$::isEmbedded and kill 'USR2', $::CCPID;
Gtk->main;
+my_gtk->exit(0);