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!