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

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

Name: EToys-mt.391
Author: mt
Time: 27 April 2020, 10:22:52.65734 am
UUID: 7f2547da-e6cd-4b47-b5ba-dba9f4b65efc
Ancestors: EToys-mt.390

Complements Tools-mt.965. Inspector refactoring. See: http://forum.world.st/Please-try-out-Inspector-Refactoring-tp5114974.html

=============== Diff against EToys-mt.390 ===============

Item was removed:
- ----- Method: HtmlEntity>>inspect (in category 'user interface') -----
- inspect
- 	"Open an HtmlEntityInspector on the receiver.
- 	Use basicInspect to get a normal type of inspector."
- 
- 	HtmlEntityInspector openOn: self!

Item was removed:
- ----- Method: HtmlEntity>>inspectWithLabel: (in category 'user interface') -----
- inspectWithLabel: aLabel
- 	"Open a HtmlEntityInspector on the receiver. Use basicInspect to get a normal (less useful) type of inspector."
- 
- 	HtmlEntityInspector openOn: self withLabel: aLabel!

Item was added:
+ ----- Method: HtmlEntity>>inspectorClass (in category 'user interface') -----
+ inspectorClass
+ 
+ 	^ HtmlEntityInspector!

Item was changed:
  Inspector subclass: #HtmlEntityInspector
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Etoys-Squeakland-Network-HTML-Parser'!
+ 
+ !HtmlEntityInspector commentStamp: 'mt 4/22/2020 08:13' prior: 0!
+ I am an inspector for HTML entities.!

Item was added:
+ ----- Method: HtmlEntityInspector>>fieldHtml (in category 'fields') -----
+ fieldHtml
+ 
+ 	^ (self newFieldForType: #custom key: #html)
+ 		name: 'asHtml'; emphasizeName;
+ 		valueGetter: [:object | object asHtml];
+ 		yourself!

Item was removed:
- ----- Method: HtmlEntityInspector>>fieldList (in category 'accessing') -----
- fieldList
- 	^ super fieldList, (Array with: 'asHtml')!

Item was changed:
+ ----- Method: HtmlEntityInspector>>initialExtent (in category 'toolbuilder') -----
- ----- Method: HtmlEntityInspector>>initialExtent (in category 'accessing') -----
  initialExtent
  	"Answer the desired extent for the receiver when it is first opened on the screen.  "
  
  	^ 300 @ 300!

Item was removed:
- ----- Method: HtmlEntityInspector>>selection (in category 'selecting') -----
- selection
- 	selectionIndex = self fieldList size 
- 		ifTrue: [^object asHtml]
- 		ifFalse: [^super selection]!

Item was added:
+ ----- Method: HtmlEntityInspector>>streamFieldsOn: (in category 'fields') -----
+ streamFieldsOn: aStream
+ 
+ 	super streamFieldsOn: aStream.
+ 	aStream nextPut: self fieldHtml.!

Item was changed:
  ----- Method: Inspector class>>horizontalDividerProportion (in category '*Etoys-Squeakland-instance creation') -----
  horizontalDividerProportion
+ 	self deprecated.
  	^ 0.4!

Item was changed:
  ----- Method: Inspector>>tearOffTile (in category '*Etoys-menu commands') -----
  tearOffTile
  	"Tear off a tile that refers to the receiver's selection, and place it in the mophic hand"
  
+ 	self currentHand attachMorph: (TileMorph new referTo: self selectionOrObject)!
- 	| objectToRepresent |
- 	objectToRepresent := self selectionIndex = 0 ifTrue: [object] ifFalse: [self selection].
- 	self currentHand attachMorph: (TileMorph new referTo: objectToRepresent)
- 	!

Item was added:
+ ----- Method: Object>>tearOffTile (in category '*Etoys-tiles') -----
+ tearOffTile
+ 
+ 	| tile |
+ 	tile := TileMorph new referTo: self.
+ 	self currentHand attachMorph: tile.
+ 	^ tile!