From: Mikko Rasa <tdb@tdb.fi>
Date: Tue, 17 Sep 2019 19:46:16 +0000 (+0300)
Subject: Add page up/down navigation to Entry
X-Git-Url: http://git.tdb.fi/?a=commitdiff_plain;h=dbdb28962362626a729fc052ee8c8934466b8396;p=libs%2Fgltk.git

Add page up/down navigation to Entry
---

diff --git a/source/entry.cpp b/source/entry.cpp
index 6554f7c..606f447 100644
--- a/source/entry.cpp
+++ b/source/entry.cpp
@@ -298,6 +298,18 @@ bool Entry::key_press(unsigned key, unsigned mod)
 		text.offset_to_coords(edit_pos, row, col);
 		set_edit_position(text.coords_to_offset(row, 0), mod==MOD_SHIFT);
 	}
+	else if(key==Input::KEY_PGUP)
+	{
+		unsigned row, col;
+		text.offset_to_coords(edit_pos, row, col);
+		set_edit_position(text.coords_to_offset((row<visible_rows ? 0 : row-visible_rows), col), mod==MOD_SHIFT);
+	}
+	else if(key==Input::KEY_PGDN)
+	{
+		unsigned row, col;
+		text.offset_to_coords(edit_pos, row, col);
+		set_edit_position(text.coords_to_offset(row+visible_rows, col), mod==MOD_SHIFT);
+	}
 	else if(key==Input::KEY_LEFT && mod==MOD_SHIFT)
 		move_edit_position(NAV_LEFT, true);
 	else if(key==Input::KEY_RIGHT && mod==MOD_SHIFT)