Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.302.mcz==================== Summary ====================
Name: EToys-mt.302
Author: mt
Time: 30 June 2017, 9:29:22.319527 am
UUID: f34a4a94-d4da-f84f-9557-0e94c5b9507c
Ancestors: EToys-mt.301
Companion for Morphic-mt.1342.
=============== Diff against EToys-mt.301 ===============
Item was removed:
- ----- Method: EventRecordingSpace>>blueButtonDown: (in category 'events-processing') -----
- blueButtonDown: anEvent
- "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on Windows and Unix) allow a mouse-sensitive morph to be moved or bring up a halo for the morph."
-
- (eventRecorder userStopReplayMaybe: anEvent) ifTrue: [^ self stopPlayback].
- super blueButtonDown: anEvent.
- !
Item was added:
+ ----- Method: EventRecordingSpace>>invokeHaloOrMove: (in category 'events-processing') -----
+ invokeHaloOrMove: anEvent
+
+ (eventRecorder userStopReplayMaybe: anEvent) ifTrue: [^ self stopPlayback].
+ super invokeHaloOrMove: anEvent.
+ !
Item was changed:
----- Method: HaloMorph>>addSmallHandle:on:send:to: (in category '*Etoys-Squeakland-private') -----
addSmallHandle: handleSpec on: eventName send: selector to: recipient
"Add a handle within the halo box as per the haloSpec, and set it up to respond to the given event by sending the given selector to the given recipient. Return the handle. This is the 5/17/04 version of HaloMorph>>addHandle:on:send:to:"
| handle aPoint iconName colorToUse |
aPoint := self positionIn: haloBox horizontalPlacement: handleSpec horizontalPlacement verticalPlacement: handleSpec verticalPlacement.
handle := EllipseMorph
newBounds: (Rectangle center: aPoint extent: self handleSize asPoint)
color: (colorToUse := Color colorFrom: handleSpec color).
handle borderColor: colorToUse muchDarker.
self addMorph: handle.
(iconName := handleSpec iconSymbol) ifNotNil:
[ | form |
form := ScriptingSystem formAtKey: iconName.
form ifNotNil:
[handle addMorphCentered: (ImageMorph new
image: form;
color: colorToUse makeForegroundColor;
lock)]].
+ handle on: #mouseUp send: #endInteraction: to: self.
- handle on: #mouseUp send: #endInteraction to: self.
handle on: eventName send: selector to: recipient.
self isMagicHalo ifTrue:[
handle on: #mouseEnter send: #handleEntered to: self.
handle on: #mouseLeave send: #handleLeft to: self].
handle setBalloonText: (target balloonHelpTextForHandle: handle) translated.
^ handle
!
Item was removed:
- ----- Method: Morph>>wantsTransfarHaloFromClick (in category '*Etoys-Squeakland-halos and balloon help') -----
- wantsTransfarHaloFromClick
- "If true, I want a halo when you click blue button at second"
- ^ self wantsHaloFromClick!
Item was removed:
- ----- Method: PasteUpMorph>>wantsTransfarHaloFromClick (in category '*Etoys-Squeakland-halos and balloon help') -----
- wantsTransfarHaloFromClick
- "Answer whether I would feel strongly about acquiring the halo for a click on a subobject within me."
-
- ^ (owner notNil and: [owner encouragesHaloTransferToEnclosedPasteUpMorph])!
Locked
