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

This commit is contained in:
Andrzej Rybczak
2010-10-06 21:48:29 +02:00
parent e8c8e6394e
commit 6af641a049

View File

@@ -251,11 +251,19 @@ template <typename WindowType> void Screen<WindowType>::MouseButtonPressed(MEVEN
{ {
if (me.bstate & BUTTON2_PRESSED) 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) 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);
} }
} }