[squeak-dev] The Trunk: Tools-mt.1097.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 30 15:27:30 UTC 2021


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1097.mcz

==================== Summary ====================

Name: Tools-mt.1097
Author: mt
Time: 30 December 2021, 4:27:28.684748 pm
UUID: d7b0b113-d24a-974f-8733-e9a19feb2cfc
Ancestors: Tools-mt.1096

Complements Graphics-mt.455

=============== Diff against Tools-mt.1096 ===============

Item was changed:
  ----- Method: ToolIcons class>>font (in category 'private') -----
  font
  
  	| icon f1 f2 |
+ 	icon := Form extent: 16 at 16 depth: 32.
- 	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@ (15 - f1 height) font: f1 color: Color black;
+ 		drawString: 'A' at: (f1 widthOf: $A) @ (15 - f2 height) font: f2 color: Color black.
- 		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!

Item was changed:
+ (PackageInfo named: 'Tools') postscript: 'ToolIcons icons removeKey: #font.'!
- (PackageInfo named: 'Tools') postscript: 'Workspace allInstances do: [:workspace |
- 	(workspace instVarNamed: #bindings)
- 		removeKey: #''_fileDirectory'' ifAbsent: nil;
- 		removeKey: #''_windowTitle'' ifAbsent: nil;
- 		removeKey: #''_fileLineConversion'' ifAbsent: nil].
- 
- ProcessBrowser registerWellKnownProcesses. "Tools-eem.1016"'!



More information about the Squeak-dev mailing list