[squeak-dev] The Trunk: EToys-tfel.254.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Sep 26 13:08:59 UTC 2016


Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.254.mcz

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

Name: EToys-tfel.254
Author: tfel
Time: 26 September 2016, 3:08:19.655594 pm
UUID: d6ca728e-ca89-5043-a50c-d8a505760da6
Ancestors: EToys-tfel.253

fix the mouse over highlights for tiles in the viewer

=============== Diff against EToys-tfel.253 ===============

Item was added:
+ ----- Method: PhraseTileMorph>>handlesMouseOver: (in category 'event handling') -----
+ handlesMouseOver: evt
+ 
+ 	^ true
+ !

Item was added:
+ ----- Method: PhraseTileMorph>>mouseEnter: (in category 'event handling') -----
+ mouseEnter: evt
+ 
+ 	self removeHighlightFeedback.
+ 	self addCommandFeedback: evt.
+ !

Item was added:
+ ----- Method: PhraseTileMorph>>mouseLeave: (in category 'event handling') -----
+ mouseLeave: evt
+ 	"Resume drop-tracking in enclosing editor"
+ 	| ed |
+ 	self removeHighlightFeedback.
+ 	(ed := self enclosingTestTile) ifNotNil: [ed mouseEnter: evt].!

Item was changed:
  ----- Method: ViewerLine>>addGetterFeedback (in category 'slot') -----
  addGetterFeedback
  	"Add feedback during mouseover of a getter"
  
+ 	| aMorph |
+ 	aMorph := RectangleMorph new
+ 		bounds: (self firstTileMorph topLeft corner:
+ 						(self firstAlignmentMorph ifNil: [self submorphs last bottomRight] ifNotNil: [:m | m bottomLeft])).
- 	| aMorph endMorph |
- 	
- 	endMorph _
- 		(#(touchesA: #seesColor: #overlaps: color:sees: overlapsAny: bearingTo: bearingFrom: distanceToPlayer:) includes: self elementSymbol)
- 			ifTrue:
- 				[submorphs seventh]
- 			ifFalse:
- 				[submorphs fifth].
- 	aMorph := RectangleMorph new bounds: ((submorphs third topLeft - (2 at 1)) corner: ((endMorph right  @ submorphs third bottom)  + (2 at 1))).
  	aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem getterFeedback; lock.
  	ActiveWorld addHighlightMorph: aMorph for: nil.
  
  "
  Color fromUser (Color r: 1.0 g: 0.355 b: 0.839)
  "!

Item was changed:
  ----- Method: ViewerLine>>addSetterFeedback (in category 'slot') -----
  addSetterFeedback
  	"Add screen feedback showing what would be torn off to make a setter"
  
  	| aMorph |
+ 	aMorph := RectangleMorph new bounds: (self firstTileMorph topLeft corner: self bounds bottomRight).
- 	aMorph := RectangleMorph new bounds: ((submorphs third topLeft - (2 at 1)) corner: ((submorphs last right  @ submorphs third bottom)  + (2 at 1))).
  	aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem setterFeedback; lock.
  	ActiveWorld addHighlightMorph: aMorph for: nil!

Item was added:
+ ----- Method: ViewerLine>>firstAlignmentMorph (in category 'slot') -----
+ firstAlignmentMorph
+ 
+ 	^ self submorphs reverse detect: [:m | m isAlignmentMorph] ifNone: []!

Item was added:
+ ----- Method: ViewerLine>>firstTileMorph (in category 'slot') -----
+ firstTileMorph
+ 
+ 	^ self submorphs detect: [:m | m isTileMorph]!



More information about the Squeak-dev mailing list