[prev in list] [next in list] [prev in thread] [next in thread] 

List:       squeak-dev
Subject:    [squeak-dev] The Trunk: EToys-mt.391.mcz
From:       commits () source ! squeak ! org
Date:       2020-04-27 8:23:03
Message-ID: E1jSz2i-0002WM-RD () andreas
[Download RAW message or body]

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!


[prev in list] [next in list] [prev in thread] [next in thread]