summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-28 12:45:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-28 12:45:59 +0000
commit0f123efc384461ab5a07736ca7f13ec24f93a9f9 (patch)
tree387759fd2bc372c92729e8f9f5b4a512c9e5bbf4 /perl-install
parente86546cc9103583decf7eccf2193f5374985e285 (diff)
downloaddrakx-backup-do-not-use-0f123efc384461ab5a07736ca7f13ec24f93a9f9.tar
drakx-backup-do-not-use-0f123efc384461ab5a07736ca7f13ec24f93a9f9.tar.gz
drakx-backup-do-not-use-0f123efc384461ab5a07736ca7f13ec24f93a9f9.tar.bz2
drakx-backup-do-not-use-0f123efc384461ab5a07736ca7f13ec24f93a9f9.tar.xz
drakx-backup-do-not-use-0f123efc384461ab5a07736ca7f13ec24f93a9f9.zip
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)
Diffstat (limited to 'perl-install')
-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;