From 0f123efc384461ab5a07736ca7f13ec24f93a9f9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Jan 2002 12:45:59 +0000
Subject: don't use wait_message's when waiting (waiting is usually very
 short), use a waiting cursor instead. (the wait_message's were causing bad
 interactivity stuff)

---
 perl-install/diskdrake/smbnfs_gtk.pm | 25 +++++--------------------
 1 file changed, 5 insertions(+), 20 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index f5d65b794..f5e90a5fb 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -151,6 +151,8 @@ sub import_ctree {
 	    $current_entry = $entry;
 	} else {
 	    if (!$curr->row->children) {
+		gtkset_mousecursor_wait($tree->window);
+		my_gtk::flush();
 		$tree->freeze;
 		if ($curr == $click_here) {
 		    $add_server->($_) foreach sort { $a->{name} cmp $b->{name} } $find_servers->();
@@ -159,6 +161,7 @@ sub import_ctree {
 		    $add_exports->($curr);
 		}
 		$tree->thaw;
+		gtkset_mousecursor_normal($tree->window);
 	    }
 	    $current_entry = undef;
 	}
@@ -202,15 +205,6 @@ sub nfs2kind {
 sub nfs_create {
     my ($widget) = @_;
 
-    my $find_servers = sub {
-	my $w = $in->wait_message('', _("Scanning available nfs shared resource"));
-	&network::nfs::find_servers;
-    };
-    my $find_exports = sub {
-	my ($server) = @_;
-	my $w = $in->wait_message('', _("Scanning available nfs shared resource of server %s", $server->{name}));
-	&network::nfs::find_exports;
-    };
     my $create = sub {
 	my ($server, $export) = @_;
 
@@ -218,7 +212,7 @@ sub nfs_create {
 	fs::set_default_options($nfs);
 	$nfs;
     };
-    add_smbnfs($widget, nfs2kind($all_hds->{nfss}), $find_servers, $find_exports, $create);
+    add_smbnfs($widget, nfs2kind($all_hds->{nfss}), \&network::nfs::find_servers, \&network::nfs::find_exports, $create);
 }
 
 ################################################################################
@@ -232,15 +226,6 @@ sub smb2kind {
 sub smb_create {
     my ($widget) = @_;
 
-    my $find_servers = sub {
-	my $w = $in->wait_message('', _("Scanning available samba shared resource"));
-	&network::smb::find_servers;
-    };
-    my $find_exports = sub {
-	my ($server) = @_;
-	my $w = $in->wait_message('', _("Scanning available samba shared resource of server %s", $server->{name}));
-	&network::smb::find_exports;
-    };
     my $create = sub {
 	my ($server, $export) = @_;
 
@@ -248,7 +233,7 @@ sub smb_create {
 	fs::set_default_options($smb);
 	$smb;
     };
-    add_smbnfs($widget, smb2kind($all_hds->{smbs}), $find_servers, $find_exports, $create);
+    add_smbnfs($widget, smb2kind($all_hds->{smbs}), \&network::smb::find_servers, \&network::smb::find_exports, $create);
 }
 
 1;
-- 
cgit v1.2.1