[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