summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/printerdrake3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index e153c5a70..58c4b8f51 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -284,6 +284,7 @@ gtkset_mousecursor_normal();
# Prevent subwindows to embed themselves in the mcc which has already the
# main window embedded
+my $isEmbedded = $::isEmbedded;
local $::isEmbedded = 0;
Gtk2->main;
@@ -566,7 +567,7 @@ sub CreateTree {
sub NewDialog {
my ($title, $o_no_button) = @_;
my $dialog = gtkset_border_width(Gtk2::Dialog->new, 10);
- $dialog->set_transient_for($us->{wnd}{rwindow});
+ $dialog->set_transient_for($us->{wnd}{rwindow}) if !$isEmbedded;
$dialog->set_position('center-on-parent');
$dialog->set_title($title);
$dialog->action_area->pack_start(gtkadd(Gtk2::HButtonBox->new,