summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-02-14 18:08:50 +0000
committerdamien <damien@mandriva.com>2002-02-14 18:08:50 +0000
commitae9906a288c6e8a883cf299d105c6bfc1a2adac4 (patch)
treef1904fccbf2ad40506669974f3d980ba0d9720d7 /perl-install
parent979dd00ffce7e825cbfa76bee30e7855d8094aa3 (diff)
downloaddrakx-ae9906a288c6e8a883cf299d105c6bfc1a2adac4.tar
drakx-ae9906a288c6e8a883cf299d105c6bfc1a2adac4.tar.gz
drakx-ae9906a288c6e8a883cf299d105c6bfc1a2adac4.tar.bz2
drakx-ae9906a288c6e8a883cf299d105c6bfc1a2adac4.tar.xz
drakx-ae9906a288c6e8a883cf299d105c6bfc1a2adac4.zip
drakfont embedde mode
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont8
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);
}