--- a/SimpleView.st Wed Jul 20 10:10:58 2016 +0200
+++ b/SimpleView.st Wed Jul 20 10:16:09 2016 +0200
@@ -8121,11 +8121,13 @@
!SimpleView methodsFor:'menu & menu actions'!
fontLargerOrSmaller:largerBoolean
- |newFont|
-
+ |font oldSize newFont|
+
+ font := gc font.
+ oldSize := font size.
newFont := font asSize:(largerBoolean
- ifTrue:[(font size + 1) min:100]
- ifFalse:[(font size-1) max:4]).
+ ifTrue:[(oldSize + 1) min:100]
+ ifFalse:[(oldSize-1) max:4]).
self font:newFont.
"Modified: / 27-02-1996 / 00:53:51 / cg"