summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-16 12:23:50 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-16 12:23:50 +0000
commit19e868208a2bac17d72bd9929baa2aa092b9430c (patch)
treec3123e2efda74b677e1b9458d2253c9009e64eb8 /perl-install
parent9f79700b6a7f6b0746f296f75e85237d797cd64d (diff)
downloaddrakx-19e868208a2bac17d72bd9929baa2aa092b9430c.tar
drakx-19e868208a2bac17d72bd9929baa2aa092b9430c.tar.gz
drakx-19e868208a2bac17d72bd9929baa2aa092b9430c.tar.bz2
drakx-19e868208a2bac17d72bd9929baa2aa092b9430c.tar.xz
drakx-19e868208a2bac17d72bd9929baa2aa092b9430c.zip
(interactive_mode, dialog) let's have nice icon in sub dialogs when
embedded too
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont4
1 files 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;