--- a/NoteBookView.st	Sun Sep 25 22:49:44 2016 +0200
+++ b/NoteBookView.st	Sun Sep 25 22:50:56 2016 +0200
@@ -3320,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.