From: Colin Leroy <colin@colino.net>
Date: Sun, 10 Nov 2019 19:55:11 +0000 (+0100)
Subject: LiteHtml viewer: implement keyboard scroll
X-Git-Tag: 3.17.5~39
X-Git-Url: http://git.claws-mail.org/?p=claws.git;a=commitdiff_plain;h=f8c6182be4dea5e6fb48e67c49c5292d9f77e32f

LiteHtml viewer: implement keyboard scroll
---

diff --git a/src/plugins/litehtml_viewer/lh_viewer.c b/src/plugins/litehtml_viewer/lh_viewer.c
index cca94d5fa..7fee13e47 100644
--- a/src/plugins/litehtml_viewer/lh_viewer.c
+++ b/src/plugins/litehtml_viewer/lh_viewer.c
@@ -140,6 +140,31 @@ static void lh_print_viewer (MimeViewer *_viewer)
     lh_widget_print(viewer->widget);    
 }
 
+
+static gboolean lh_scroll_page(MimeViewer *_viewer, gboolean up)
+{
+	LHViewer *viewer = (LHViewer *)_viewer;
+	GtkAdjustment *vadj = gtk_scrolled_window_get_vadjustment(
+					GTK_SCROLLED_WINDOW(lh_widget_get_widget(viewer->widget)));
+
+	if (viewer->widget == NULL)
+		return FALSE;
+
+	return gtkutils_scroll_page(lh_widget_get_widget(viewer->widget), vadj, up);
+}
+
+static void lh_scroll_one_line(MimeViewer *_viewer, gboolean up)
+{
+	LHViewer *viewer = (LHViewer *)_viewer;
+	GtkAdjustment *vadj = gtk_scrolled_window_get_vadjustment(
+					GTK_SCROLLED_WINDOW(lh_widget_get_widget(viewer->widget)));
+
+	if (viewer->widget == NULL)
+		return;
+
+	gtkutils_scroll_one_line(lh_widget_get_widget(viewer->widget), vadj, up);
+}
+
 /***************************************************************/
 MimeViewer *lh_viewer_create()
 {
@@ -155,6 +180,9 @@ MimeViewer *lh_viewer_create()
 	viewer->mimeviewer.clear_viewer = lh_clear_viewer;
 	viewer->mimeviewer.destroy_viewer = lh_destroy_viewer;
 
+	viewer->mimeviewer.scroll_page = lh_scroll_page;
+	viewer->mimeviewer.scroll_one_line = lh_scroll_one_line;
+
 	viewer->vbox = gtk_vbox_new(FALSE, 0);
 
 	GtkWidget *w = lh_widget_get_widget(viewer->widget);