Full page scroll with PageUp and PageDown

Added separate keybindings for half page and full page scrolling.

Space and Shift+Space do the half page scroll as before.

Assigned new keybinding IDs to reset these to defaults in case they've been customized.

IssueID #203

1 files changed, 2 insertions, 1 deletions

diff --git a/src/ui/documentwidget.c b/src/ui/documentwidget.c
index 9111b546..79e8b727 100644
--- a/src/ui/documentwidget.c
+++ b/src/ui/documentwidget.c
@@ -1918,8 +1918,9 @@ static iBool handleCommand_DocumentWidget_(iDocumentWidget *d, const char *cmd)
             fetchNextUnfetchedImage_DocumentWidget_(d)) {
             return iTrue;
         }
+        const float amount = argLabel_Command(cmd, "full") ? 1.0f : 0.5f;
         smoothScroll_DocumentWidget_(d,
-                                     dir * (0.5f * height_Rect(documentBounds_DocumentWidget_(d)) -
+                                     dir * (amount * height_Rect(documentBounds_DocumentWidget_(d)) -
                                             0 * lineHeight_Text(paragraph_FontId)),
                                      smoothDuration_DocumentWidget_);
         return iTrue;