From 0f123efc384461ab5a07736ca7f13ec24f93a9f9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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/diskdrake') 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