# HG changeset patch
# User Merge Script
# Date 1474865156 -7200
# Node ID a7222bcf6019dadf81aad9875e76193b89fd2892
# Parent  c36548c31c27bdd1d6d97771ad44f93b4cca53d7# Parent  0afaf972a9a42aed6e067b1a939cd633e72a8b74
Merge

diff -r c36548c31c27 -r a7222bcf6019 NoteBookView.st
--- a/NoteBookView.st	Fri Sep 23 07:02:31 2016 +0200
+++ b/NoteBookView.st	Mon Sep 26 06:45:56 2016 +0200
@@ -1057,6 +1057,8 @@
         buttonPrev action:[ self scrollButtonPressed:#scrollLeft  ].
         buttonNext autoRepeat:true.
         buttonPrev autoRepeat:true.
+        buttonNext doubleClickAction:[ self scrollButtonPressed:#scrollFullRight ].
+        buttonNext doubleClickAction:[ self scrollButtonPressed:#scrollFullLeft ].
     ].
     self styleChanged.
 !
@@ -3318,10 +3320,10 @@
 
     list isEmptyOrNil ifTrue:[^ self].
 
-    whichButton == #scrollRight ifTrue:[
+    (whichButton == #scrollRight or:[whichButton == #scrollFullRight]) ifTrue:[
         isNext := true
     ] ifFalse:[
-        whichButton == #scrollLeft ifFalse:[^ self].
+        (whichButton == #scrollLeft or:[whichButton == #scrollFullLeft]) ifFalse:[^ self].
         isNext := false.
     ].
     trans := self transformation.