summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-13 19:48:43 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-13 19:48:43 +0000
commit36fcbe644847e3c0d3ffed3c16545fd9f89e2a18 (patch)
treefa5d93e1f6fc0639e0db0a56494de418d4d2bebd /perl-install/ugtk2.pm
parent969740019266a3fa94f2f1ce77bb1a7550dbad6b (diff)
downloaddrakx-36fcbe644847e3c0d3ffed3c16545fd9f89e2a18.tar
drakx-36fcbe644847e3c0d3ffed3c16545fd9f89e2a18.tar.gz
drakx-36fcbe644847e3c0d3ffed3c16545fd9f89e2a18.tar.bz2
drakx-36fcbe644847e3c0d3ffed3c16545fd9f89e2a18.tar.xz
drakx-36fcbe644847e3c0d3ffed3c16545fd9f89e2a18.zip
do not try setting transcient hint when embedded
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 2 insertions, 2 deletions
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);