The Trunk: EToys-mt.391.mcz

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!