From 7328c9478046d73f6f77abb27ad685eeb271ccdf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 27 Jan 2003 08:13:28 +0000
Subject: diskdrake: when non embedded, ensure sub window are modal

all other drakx tool can be fixed the same way
---
 perl-install/diskdrake/hd_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index e6e0b6676..459468e30 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -55,6 +55,7 @@ sub main {
     local $in->{grab} = 1;
 
     $w = ugtk2->new('DiskDrake');
+    $::main_window = $w->{rwindow} unless $::isEmbedded;
     my $rc = "/usr/share/libDrakX/diskdrake.rc";
     -r $rc or $rc = dirname(__FILE__) . "/../diskdrake.rc";
     -r $rc or $rc = dirname(__FILE__) . "/../share/diskdrake.rc";
-- 
cgit v1.2.1