(run_treeview_dialog) display a busy cursor while fetching package

list on startup

2 files changed, 2 insertions, 1 deletions

diff --git a/NEWS b/NEWS
index b3398270..9e6a6f06 100644
--- a/NEWS
+++ b/NEWS
@@ -4,6 +4,7 @@
   o do not ignore some options
   o handle --debug, --env, -q, --quiet, -v & --verbose options
 - rpmdrake:
+  o display a busy cursor while fetching package list on startup
   o update GUI package list
   o remove short lived wait message when changing selected package
     group (#43320) since it's too fast
diff --git a/rpmdrake b/rpmdrake
index 02523ba2..326478f0 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -685,7 +685,7 @@ sub run_treeview_dialog {
     $w->{rwindow}->show_all;
     $w->{rwindow}->set_sensitive(0);
 
-    pkgs_provider({}, $default_list_mode); # default mode
+    slow_func($::main_window->window, sub { pkgs_provider({}, $default_list_mode) }); # default mode
     if (@initial_selection) {
         $options->{initial_selection} = \@initial_selection;
         $pkgs->{$_}{selected} = 0 foreach @initial_selection;