[squeak-dev] The Trunk: Collections-mt.887.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Apr 20 07:41:22 UTC 2020


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

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

Name: Collections-mt.887
Author: mt
Time: 20 April 2020, 9:41:19.032697 am
UUID: d0621830-e616-8342-9667-54921523e5a9
Ancestors: Collections-mt.886

Let <img> tags honor Squeak's "High DPI" setting.

=============== Diff against Collections-mt.886 ===============

Item was changed:
  ----- Method: HtmlReadWriter>>mapImgTag: (in category 'mapping') -----
  mapImgTag: aTag
  
  	| result startIndex stopIndex attribute src form |
  	result := OrderedCollection new.
  
  	"<img src=""https://squeak.org/img/downloads/image.png"">"
  	attribute := 'src'.
  	startIndex := aTag findString: attribute.
  	startIndex > 0 ifTrue: [
  		startIndex := aTag findString: '"' startingAt: startIndex+attribute size.
  		startIndex > 0
  			ifTrue: [stopIndex := aTag findString: '"' startingAt: startIndex+1]
  			ifFalse: [
  				"URLs without quotes..."
  				startIndex := aTag findString: '=' startingAt: startIndex+attribute size.
  				stopIndex := aTag findString: '>' startingAt: startIndex+1].
  		src := aTag copyFrom: startIndex+1 to: stopIndex-1.
  		form := (self httpGetImage: src) ifNil: [(Form dotOfSize: 12 color: Color veryLightGray)].
  		result
+ 			add: form scaleIconToDisplay asTextAnchor;
- 			add: form asTextAnchor;
  			add: (TextColor color: Color transparent)].
  	^ result!



More information about the Squeak-dev mailing list