Scroll whole list on mouse wheel action

[pkg/abook.git] / ui.c

diff --git a/ui.c b/ui.c
index 8fd38ae0ecb6b2ce69ebacb16be44157e138f0c3..4efcf85e1a3cde7ee45626a325e367c8c9300465 100644 (file)
--- a/ui.c
+++ b/ui.c
@@ -139,7 +139,7 @@ ui_init_curses()
                ui_enable_mouse(TRUE);
        }
        keypad(stdscr, TRUE);
-       if(opt_get_bool(BOOL_USE_COLORS)) {
+       if(opt_get_bool(BOOL_USE_COLORS) && has_colors()) {
                start_color();
                use_default_colors();
                ui_init_color_pairs_user();
@@ -556,9 +556,9 @@ get_commands()
                                                refresh_list();
                                        }
                                } else if(event.bstate & BUTTON4_PRESSED) {
-                                       scroll_up();
+                                       scroll_list_up();
                                } else if(event.bstate & BUTTON5_PRESSED) {
-                                       scroll_down();
+                                       scroll_list_down();
                                }
                        }
                }