--- a/SelectionInListModelView.st	Sat Jun 09 09:35:26 2018 +0200
+++ b/SelectionInListModelView.st	Sat Jun 09 09:35:40 2018 +0200
@@ -1761,7 +1761,10 @@
 
     |lineNr listSize shifted newSel step start|
 
-    enabled ifFalse:[ ^ self ].
+    enabled ifFalse:[ 
+        super keyPress:aKey x:x y:y.
+        ^ self 
+    ].
 
     listSize := self size.
     listSize == 0 ifTrue:[^ self].
@@ -1917,6 +1920,8 @@
             lineNr := lineNr + step.
         ]
     ].
+
+    "Modified: / 09-06-2018 / 09:28:00 / Claus Gittinger"
 !
 
 pointerEntersItem:anItemOrNil