[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
|