--- a/SelectionInListModelView.st Tue May 07 13:14:22 2019 +0200
+++ b/SelectionInListModelView.st Tue May 07 19:06:57 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1999 by eXept Software AG
All Rights Reserved
@@ -2454,7 +2452,7 @@
"
|firstLine|
- modelChangedDuringButtonPress notNil ifTrue:[^ self].
+ "/ modelChangedDuringButtonPress notNil ifTrue:[^ self].
firstLine := self firstInSelection.
(firstLine isNil or:[firstLine == 0]) ifTrue:[^ self].
@@ -2463,6 +2461,8 @@
(self lineIsFullyVisible:aLnNr) ifTrue:[^ self].
].
self makeLineVisible:(self firstInSelection).
+
+ "Modified: / 07-05-2019 / 19:01:14 / Claus Gittinger"
!
nextAfterSelection