summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/smbnfs_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/diskdrake/smbnfs_gtk.pm')
-rw-r--r--perl-install/diskdrake/smbnfs_gtk.pm25
1 files changed, 5 insertions, 20 deletions
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;