Display a wait cursor on the whole window when a wait message is displayed on

the status bar.

2 files changed, 3 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 02444310..660f74d9 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -153,7 +153,7 @@ sub invalidate_cancel_forever {
 
 package main;
 
-my $w;
+our $w;
 my $changelog_first;
 my $treeview_dialog_run = 0;
 our $statusbar;
diff --git a/rpmdrake.pm b/rpmdrake.pm
index 69245c8d..a818b801 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -343,6 +343,7 @@ sub statusbar_msg {
     my ($msg) = @_;
     #- always use the same context description for now
     my $cx = $::statusbar->get_context_id("foo");
+    $::w and $::w->{rwindow} and gtkset_mousecursor_wait($::w->{rwindow}->window);
     #- returns a msg_id to be passed optionnally to statusbar_msg_remove
     $::statusbar->push($cx, $msg);
 }
@@ -358,6 +359,7 @@ sub statusbar_msg_remove {
     } else {
 	$::statusbar->pop($cx);
     }
+    $::w and $::w->{rwindow} and gtkset_mousecursor_normal($::w->{rwindow}->window);
 }
 
 sub slow_func_statusbar ($$&) {