From 36fcbe644847e3c0d3ffed3c16545fd9f89e2a18 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 13 Feb 2004 19:48:43 +0000 Subject: do not try setting transcient hint when embedded --- perl-install/ugtk2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 5c11849ac..d1ec12f31 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -880,7 +880,7 @@ sub new { $o->{rwindow} = _create_window($title); $o->{rwindow}->set_position('center-on-parent'); - if ($::isInstall || $::isEmbedded) { + if ($::isInstall) { gtkadd($o->{rwindow}, gtkadd(gtkset_shadow_type(Gtk2::Frame->new(undef), 'out'), $o->{window} = gtkset_border_width(gtkset_shadow_type(Gtk2::Frame->new(undef), 'none'), 3) @@ -892,7 +892,7 @@ sub new { $force_center || $o->{force_center} || @interactive::objects && $::isStandalone && !$o->{transient}; #- no need to center when set_transient is used $o->{rwindow}->set_modal(1) if $grab || $o->{grab} || $o->{modal}; - $o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient}; + $o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient} =~/Gtk2::Window/; } else { $o->{rwindow} = $o->{window} = Gtk2::VBox->new(0,0); -- cgit v1.2.1