fix list jumping when tickling an item (mga#12180)

1 files changed, 6 insertions, 0 deletions

diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm
index 0acfdfb7..fcad2c91 100644
--- a/Rpmdrake/edit_urpm_sources.pm
+++ b/Rpmdrake/edit_urpm_sources.pm
@@ -1130,6 +1130,10 @@ sub mainwindow() {
 	my ($name) = @_;
         $reorder_ok = 0;
      $something_changed = 1;
+        # save position:
+        my $rect = $list_tv->get_visible_rect;
+        my ($x, $y) = @$rect{'x', 'y'};
+
 	if (defined $name) {
 	    urpm::media::select_media($urpm, $name);
 	    update_sources_check(
@@ -1153,6 +1157,8 @@ sub mainwindow() {
                        );
      }
         $reorder_ok = 1;
+        # restore position:
+        Glib::Timeout->add(10, sub { $list_tv->scroll_to_point($x, $y); 0 });
     };
     $reread_media->();
     $something_changed = 0;