author | Claus Gittinger <cg@exept.de> |
Sun, 25 Sep 2016 22:50:56 +0200 | |
changeset 5262 | 0afaf972a9a4 |
parent 5261 | 63255195cd0a |
child 5263 | a7222bcf6019 |
child 5264 | 18e38a656dcf |
NoteBookView.st | file | annotate | diff | comparison | revisions |
--- 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.