# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1557248817 -7200
# Node ID d064dc363de8a5905b95c9c91f912dfc77a14df9
# Parent  1cc3955c1959a042cedc439c386ad73feb69b7ef
#FEATURE by cg
class: SelectionInListModelView
changed: #makeSelectionVisible

diff -r 1cc3955c1959 -r d064dc363de8 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