Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 11 Oct 2016 16:36:21 +0200
changeset 3760 3ce893a0629d
parent 3759 bc70c1966a9d
child 3761 a981d6b7cc37
child 3762 036884e46f66
#UI_ENHANCEMENT by cg class: ApplicationModel changed: #bigFontFor: (send #ceiling instead of #rounded) #smallFontFor: (send #floor instead of #rounded)
ApplicationModel.st file | annotate | diff | comparison | revisions 
--- a/ApplicationModel.st	Tue Oct 11 16:25:36 2016 +0200
+++ b/ApplicationModel.st	Tue Oct 11 16:36:21 2016 +0200
@@ -807,7 +807,7 @@
     |newSize|
     
     newSize := aFont size * 1.1.
-    newSize := newSize rounded asInteger.
+    newSize := newSize ceiling asInteger.
     ^ aFont asSize:newSize.
 !
 
@@ -822,7 +822,7 @@
     |newSize|
     
     newSize := aFont size * 0.9.
-    newSize := newSize rounded asInteger.
+    newSize := newSize floor asInteger.
     ^ aFont asSize:newSize.
 ! !
hg/stx-libview2