diff options
| author | damien <damien@mandriva.com> | 2002-02-14 18:08:50 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-02-14 18:08:50 +0000 |
| commit | ae9906a288c6e8a883cf299d105c6bfc1a2adac4 (patch) | |
| tree | f1904fccbf2ad40506669974f3d980ba0d9720d7 /perl-install | |
| parent | 979dd00ffce7e825cbfa76bee30e7855d8094aa3 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakfont | 8 |
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); } |