[squeak-dev] The Inbox: EToys-ct.362.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Oct 2 21:30:38 UTC 2019


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



More information about the Squeak-dev mailing list