drakfont embedde mode

1 files changed, 7 insertions, 1 deletions

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index fd55d934d..52ece864a 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -89,6 +89,8 @@ use my_gtk qw(:helpers :wrappers);
 use common;
 use strict;
 
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\S*) (\S*)/;
+
 if ("@ARGV" =~ /--help|-h/) {
     print q(Font Importation and monitoring application
 --windows_import : import from all available windows partitions.
@@ -570,7 +572,9 @@ sub interactive_mode {
 						       ${$central_widget}->destroy(); about() }),
 						   gtksignal_connect(new Gtk::Button(_("             Help           ")), clicked => sub { 
 						       ${$central_widget}->destroy(); help() }),
-						   gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
+						   gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub {
+									 $::isEmbedded and kill USR1, $::CCPID;
+									 Gtk->main_quit() }),
 						   ),
 					 )
 			     ),
@@ -580,6 +584,8 @@ sub interactive_mode {
     $window1->show_all;
     $window1->realize;
     $window1->show_all();    
+    Gtk->main_iteration while Gtk->events_pending;
+    $::isEmbedded and kill USR2, $::CCPID;
     Gtk->main;
     Gtk->exit(0);
 }