From 414868b4636b2578e8a867782603c2a09f267299 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 6 Sep 2002 09:42:53 +0000
Subject: use my_gtk for window creation, thus: - window creation and embedding
 mode're handled automatically - when one close drackbackup, my_gtk close it
 properly and return to   mcc

---
 perl-install/standalone/drakbackup | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index d1f4a4aaa..8fe655cdb 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -152,7 +152,7 @@ if ("@ARGV" =~ /--version/) {
 
 # Backend Options.
 # make this global for status screen      
-my $window1;
+my ($window1, $my_win);
 my $central_widget;
 my $previous_widget;
 my $current_widget;
@@ -4641,11 +4641,13 @@ sub interactive_mode_box {
 sub interactive_mode {
     $interactive = 1;
     my $box;
-    $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
-    init Gtk;
-    $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
-    $window1->set_position(1);
-    $window1->set_title(_("Drakbackup"));
+    $my_win = my_gtk->new('drakbackup');
+    $window1 = $my_win->{window};
+    unless ($::isEmbedded) {
+	   $my_win->{rwindow}->signal_connect (delete_event => sub { Gtk->exit(0) });
+	   $my_win->{rwindow}->set_position(1);
+	   $my_win->{rwindow}->set_title(_("Drakbackup"));
+    }
     my ($pix_u_map, $pix_u_mask) = gtkcreate_png("drakbackup.540x57");
     read_conf_file();     
 
@@ -4678,8 +4680,8 @@ sub interactive_mode {
     $window1->show_all;
     $window1->realize;
     $window1->show_all();    
-    Gtk->main;
-    Gtk->exit(0);
+    $my_win->main;
+    $my_win->exit(0);
 }
 
 ################################################  HELP & ABOUT  ################################################  
-- 
cgit v1.2.1