#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Tue, 07 May 2019 19:06:57 +0200
changeset 6049 d064dc363de8
parent 6048 1cc3955c1959
child 6050 63d0cca05196
#FEATURE by cg class: SelectionInListModelView changed: #makeSelectionVisible
SelectionInListModelView.st
--- 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