From 19e868208a2bac17d72bd9929baa2aa092b9430c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 16 Mar 2004 12:23:50 +0000
Subject: (interactive_mode, dialog) let's have nice icon in sub dialogs when
 embedded too

---
 perl-install/standalone/drakfont | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 5ee76e887..abd0fc72d 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -473,7 +473,7 @@ sub interactive_mode() {
         $window1->{rwindow}->set_position('center');
         $window1->{rwindow}->set_title(N("DrakFont"));
         $window1->{window}->set_icon(gtkcreate_pixbuf("drakfont"));
-    }
+    } else { $::Plug->set_icon(gtkcreate_pixbuf("drakfont")) }
     
     my $button = {};
     my $disable = sub { my ($b) = @_; $button->{$_}->set_sensitive($_ ne $b) foreach keys %$button };
@@ -619,7 +619,7 @@ sub exitdialog() { Gtk2->main_quit };
 
 sub dialog {
     my ($title, $widgets, $buttons, $o_main_loop) = @_;
-    $dialog = _create_dialog($title, if_(!$::isEmbedded, { transient => $window1->{window} }));
+    $dialog = _create_dialog($title, { transient => $::isEmbedded ? $::Plug : $window1->{window} });
     $dialog->signal_connect(delete_event => \&exitdialog);
     gtkpack_($dialog->vbox, @$widgets);
     gtkpack($dialog->action_area, @$buttons) if $buttons;
-- 
cgit v1.2.1