The Inbox: EToys-ct.362.mcz

A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-ct.362.mcz

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

Name: EToys-ct.362
Author: ct
Time: 2 October 2019, 11:30:33.978682 pm
UUID: 06a2e25f-f270-d94c-a3c2-5522efc3250e
Ancestors: EToys-mt.357

Complements Tools-ct.900 (Inspector refactoring)

=============== Diff against EToys-mt.357 ===============

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

Item was added:
+ ----- Method: HtmlEntityInspector>>createSlotSpecs (in category 'accessing') -----
+ createSlotSpecs
+
+ ^ super createSlotSpecs
+ add: '<i>asHtml</i>' asHtmlText -> #asHtml;
+ yourself!

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

Item was added:
+ ----- Method: HtmlEntityInspector>>nameOfSelection (in category 'accessing') -----
+ nameOfSelection
+
+ ^ self typeOfSelection = #asHtml
+ ifTrue: ['self asHtml']
+ ifFalse: [super nameOfSelection]!

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

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)
  !