[squeak-dev] The Trunk: Tools-mt.1096.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Dec 30 12:50:17 UTC 2021
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1096.mcz
==================== Summary ====================
Name: Tools-mt.1096
Author: mt
Time: 30 December 2021, 1:50:14.029703 pm
UUID: e6269c25-6e40-f143-8b11-46cf14c0b780
Ancestors: Tools-ct.1095
Complements Morphic-mt.1833.
(Please ignore the strange values for pointSize for the moment.)
=============== Diff against Tools-ct.1095 ===============
Item was added:
+ ----- Method: ToolIcons class>>blank16 (in category 'private') -----
+ blank16
+ ^ Form extent: 16 @ 16 depth: 8!
Item was added:
+ ----- Method: ToolIcons class>>font (in category 'private') -----
+ font
+
+ | icon f1 f2 |
+ icon := Form extent: 12 at 12 depth: 32.
+ f1 := StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5.
+ f2 := StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5.
+ icon getCanvas
+ drawString: 'A' at: 0@ (12 - f1 height) font: f1 color: Color black;
+ drawString: 'A' at: (f1 widthOf: $A) @ (12 - f2 height) font: f2 color: Color black.
+ ^ icon!
More information about the Squeak-dev
mailing list
|