From 5d007314c18cbff6bc060ac2480afceb20e351c4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 14 Nov 2002 14:30:42 +0000 Subject: - don't use POSIX when uneeded - use my_gtk to exit and transparently manage embedding - no need to run twice the main gtk loop --- menus_launcher.pl | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'menus_launcher.pl') diff --git a/menus_launcher.pl b/menus_launcher.pl index 011e1dc6..ce94c41f 100755 --- a/menus_launcher.pl +++ b/menus_launcher.pl @@ -2,8 +2,8 @@ use strict; use lib qw(/usr/lib/libDrakX); -use POSIX; use ugtk; +use my_gtk; use common; use interactive; use standalone; @@ -23,7 +23,7 @@ my $bindir = "/usr/bin/"; my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; $window->signal_connect (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("Menu Configuration Center")); @@ -63,12 +63,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); -- cgit v1.2.1