#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Fri, 14 Oct 2016 19:04:07 +0200
changeset 5927 8e2bb4c8c26b
parent 5926 643cafe77eed
child 5928 2bfec21329dd
#REFACTORING by cg class: ListView changed: #keyPress:x:y: zoomin/out moved up
ListView.st
--- a/ListView.st	Fri Oct 14 18:43:46 2016 +0200
+++ b/ListView.st	Fri Oct 14 19:04:07 2016 +0200
@@ -2350,8 +2350,7 @@
     <resource: #keyboard (#PreviousPage #NextPage #HalfPageUp #HalfPageDown
                           #BeginOfText #EndOfText
                           #ScrollUp #ScrollDown 
-                          #ZoomIn #ZoomOut
-                          #ZoomInAll #ZoomOutAll)>
+                          )>
     |n|
 
     (key == #PreviousPage) ifTrue: [^ self pageUp].
@@ -2370,14 +2369,6 @@
         n := 1 + (self sensor compressKeyPressEventsWithKey:#ScrollDown).
         ^ self scrollDown:n
     ].
-    (key == #ZoomIn or:[key == #ZoomOut]) ifTrue:[ 
-        self keyboardZoom:(key == #ZoomIn) inAllViews:false.
-        ^ self
-    ].
-    (key == #ZoomInAll or:[key == #ZoomOutAll]) ifTrue:[ 
-        self keyboardZoom:(key == #ZoomInAll) inAllViews:true.
-        ^ self
-    ].
 
     super keyPress:key x:x y:y
 !