Add a page size feature to Slider

[libs/gltk.git] / source / entry.cpp

diff --git a/source/entry.cpp b/source/entry.cpp
index 83ed563298b793b919d31d1a7bc442b0d3b24e2d..4c1713a022306d4b7670ef3953be2a62457f85a9 100644 (file)
--- a/source/entry.cpp
+++ b/source/entry.cpp
@@ -487,6 +487,7 @@ void Entry::check_view_range()
                signal_scroll_position_changed.emit(first_row);
 
        slider->set_range(0, scroll);
+       slider->set_page_size(visible_rows);
        slider->set_value(scroll-first_row);
 }