--- a/NoteBookView.st	Fri Dec 29 12:40:41 2017 +0100
+++ b/NoteBookView.st	Tue Jan 09 17:10:31 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -1061,12 +1063,12 @@
 "/            buttonNext create. "/ realize.
 "/            buttonPrev create. "/ realize.
 "/        ].
+        buttonPrev action:[ self scrollButtonPressed:#scrollLeft  ].
         buttonNext action:[ self scrollButtonPressed:#scrollRight  ].
-        buttonPrev action:[ self scrollButtonPressed:#scrollLeft  ].
+        buttonPrev doubleClickAction:[ self scrollButtonPressed:#scrollFullLeft ].
+        buttonNext doubleClickAction:[ self scrollButtonPressed:#scrollFullRight ].
+        buttonPrev autoRepeat:true.
         buttonNext autoRepeat:true.
-        buttonPrev autoRepeat:true.
-        buttonNext doubleClickAction:[ self scrollButtonPressed:#scrollFullRight ].
-        buttonNext doubleClickAction:[ self scrollButtonPressed:#scrollFullLeft ].
     ].
     self styleChanged.
 !
@@ -3328,12 +3330,28 @@
 
     list isEmptyOrNil ifTrue:[^ self].
 
+    (whichButton == #scrollFullRight) ifTrue:[
+        (self makeVisible:(list at:list size ifAbsent:nil)) ifTrue:[
+            self invalidate.
+        ].
+        ^ self
+    ].
+    (whichButton == #scrollFullLeft) ifTrue:[
+        (self makeVisible:(list at:1 ifAbsent:nil)) ifTrue:[
+            self invalidate.
+        ].
+        ^ self
+    ].
     (whichButton == #scrollRight or:[whichButton == #scrollFullRight]) ifTrue:[
         isNext := true
     ] ifFalse:[
-        (whichButton == #scrollLeft or:[whichButton == #scrollFullLeft]) ifFalse:[^ self].
-        isNext := false.
+        (whichButton == #scrollLeft or:[whichButton == #scrollFullLeft]) ifTrue:[
+            isNext := false.
+        ] ifFalse:[
+            ^ self
+        ].
     ].
+
     trans := self transformation.
 
     firstTabsLayout := list first unselectedLayout.