[squeak-dev] The Inbox: Tools-kfr.930.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Feb 9 20:02:34 UTC 2020


A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-kfr.930.mcz

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

Name: Tools-kfr.930
Author: kfr
Time: 9 February 2020, 9:02:29.519512 pm
UUID: 5ba34f14-47a5-3d41-b77a-e043dad99316
Ancestors: Tools-mt.929

Form preview was displaying wrong colors. Convert preview form to screen depth to make colors display correctly

=============== Diff against Tools-mt.929 ===============

Item was changed:
  ----- Method: FileList>>readGraphicContents (in category 'private') -----
  readGraphicContents
  	| form maxExtent ext |
+ 	form := (Form fromFileNamed: self fullName) asFormOfDepth: Display depth.
- 	form := Form fromFileNamed: self fullName.
  	maxExtent := lastGraphicsExtent := self availableGraphicsExtent.
  	ext := form extent.
  	(maxExtent notNil and: [form extent <= maxExtent]) ifFalse: [
  		form := form magnify: form boundingBox by: (maxExtent x / form width min: maxExtent y / form height) asPoint smoothing: 3].
  	contents :=  ('Image extent: ', ext printString) asText,
  				(String with: Character cr),
  				(Text string: ' '
  					attribute: (TextFontReference toFont: 
  						(FormSetFont new
  							fromFormArray: (Array with: form)
  							asciiStart: Character space asInteger
  							ascent: form height))).
  	brevityState := #graphic.
  	^contents!



More information about the Squeak-dev mailing list