--- 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.