--- a/ListView.st Mon Jan 15 22:16:22 2018 +0100
+++ b/ListView.st Tue Jan 16 18:15:05 2018 +0100
@@ -2414,21 +2414,21 @@
super keyPress:key x:x y:y
!
-keyboardZoom:larger
+keyboardZoom:largerBoolean
"CTRL+/- zoom action"
- self fontLargerOrSmaller:larger
-!
-
-keyboardZoom:larger inAllViews:inAllViews
+ self fontLargerOrSmaller:largerBoolean
+!
+
+keyboardZoom:largerBoolean inAllViews:inAllViews
"CTRL+/- zoom action"
inAllViews ifTrue:[
SimpleView allSubInstancesDo:[:each |
- each keyboardZoom:larger
+ each keyboardZoom:largerBoolean
].
] ifFalse:[
- self keyboardZoom:larger
+ self keyboardZoom:largerBoolean
].
!