fix for bd64052f: restore scrolling less than whole page in lists with mouse

16 years ago · 6af641a049
parent e8c8e6394e
commit 6af641a049
1 changed files with 10 additions and 2 deletions
--- a/src/screen.h
+++ b/src/screen.h
@ -251,11 +251,19 @@ template <typename WindowType> void Screen<WindowType>::MouseButtonPressed(MEVEN
 {
 	if (me.bstate & BUTTON2_PRESSED)
 	{
-		Scroll(wPageDown);
+		if (Config.mouse_list_scroll_whole_page)
+			Scroll(wPageDown);
+		else
+			for (size_t i = 0; i < Config.lines_scrolled; ++i)
+				Scroll(wDown);
 	}
 	else if (me.bstate & BUTTON4_PRESSED)
 	{
-		Scroll(wPageUp);
+		if (Config.mouse_list_scroll_whole_page)
+			Scroll(wPageUp);
+		else
+			for (size_t i = 0; i < Config.lines_scrolled; ++i)
+				Scroll(wUp);
 	}
 }