Eliot Miranda uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-eem.380.mcz
==================== Summary ====================
Name: Graphics-eem.380
Author: eem
Time: 30 June 2017, 10:58:57.420462 am
UUID: 2d63e219-e81d-4f2d-be24-39cc148d9203
Ancestors: Graphics-mt.379
Trim Dispplay flash: aRectangle time to 50ms
=============== Diff against Graphics-mt.379 ===============
Item was changed:
----- Method: DisplayScreen>>flash: (in category 'displaying') -----
flash: aRectangle
"Flash the area of the screen defined by the given rectangle."
self reverse: aRectangle.
self forceDisplayUpdate.
+ (Delay forMilliseconds: 50) wait.
- (Delay forMilliseconds: 100) wait.
self reverse: aRectangle.
self forceDisplayUpdate.
!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1343.mcz
==================== Summary ====================
Name: Morphic-mt.1343
Author: mt
Time: 30 June 2017, 2:05:06.118892 pm
UUID: c3749c89-0329-0843-ac12-7c6f3aba1dc1
Ancestors: Morphic-mt.1342
Small fix for showing a morph's halo directly after its world's halo got activated.
=============== Diff against Morphic-mt.1342 ===============
Item was changed:
----- Method: SimpleHaloMorph>>transferHalo:from: (in category 'halos and balloon help') -----
transferHalo: event from: formerHaloOwner
+ "If my world tries to open on me, pass it on to the next sibling after me."
+
+ formerHaloOwner == self world ifTrue: [
+ self world submorphsDo: [:m |
+ (m ~~ self and: [m fullContainsPoint: event position]) ifTrue: [
+ m comeToFront.
+ ^ m transferHalo: event from: formerHaloOwner]]].!
- "Ignore. No halo for halo."!
Patrick Rein uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-pre.764.mcz
==================== Summary ====================
Name: Tools-pre.764
Author: pre
Time: 30 June 2017, 11:42:44.352092 am
UUID: 49cb3bb0-4920-9347-aea3-a70c15bca6a5
Ancestors: Tools-nice.763
Minor refactoring by topa of a menuPragma method.
=============== Diff against Tools-nice.763 ===============
Item was changed:
----- Method: Model>>menuPragmasFor:in: (in category '*Tools-pluggable menus') -----
menuPragmasFor: aMenuSymbolOrCollection in: aClass
+ ^ aMenuSymbolOrCollection isSymbol
+ ifFalse: [aMenuSymbolOrCollection gather: [:aMenuSymbol |
- ^ aMenuSymbolOrCollection isCollection
- ifTrue: [aMenuSymbolOrCollection gather: [:aMenuSymbol |
Pragma allNamed: aMenuSymbol from: aClass to: Object]]
+ ifTrue: [Pragma allNamed: aMenuSymbolOrCollection from: aClass to: Object]!
- ifFalse: [Pragma allNamed: aMenuSymbolOrCollection from: aClass to: Object]!
Patrick Rein uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-pre.759.mcz
==================== Summary ====================
Name: Collections-pre.759
Author: pre
Time: 30 June 2017, 11:39:43.025092 am
UUID: 730c33f1-c2a6-a246-9795-6d2c28af6005
Ancestors: Collections-eem.758
OrderedDictionary was missing the simple last selector.
=============== Diff against Collections-eem.758 ===============
Item was added:
+ ----- Method: OrderedDictionary>>last (in category 'accessing') -----
+ last
+ "Answer the last element of the receiver"
+
+ ^ self atIndex: self size!
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])!
Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-mt.7.mcz
==================== Summary ====================
Name: 60Deprecated-mt.7
Author: mt
Time: 30 June 2017, 9:28:45.255527 am
UUID: 52918b74-85a9-bc4b-9af5-d9c234c32635
Ancestors: 60Deprecated-eem.6
Companion for Morphic-mt.1342.
Deprecates specific handler-priority callbacks, which can easily be replaced by using the generic callback #handlerForMouseDown:.
=============== Diff against 60Deprecated-eem.6 ===============
Item was added:
+ ----- Method: Morph>>blueButtonDown: (in category '*60Deprecated-meta-actions') -----
+ blueButtonDown: anEvent
+ "Nothing."
+
+ self deprecated: 'Use #mouseDown:.'.!
Item was added:
+ ----- Method: Morph>>blueButtonUp: (in category '*60Deprecated-meta-actions') -----
+ blueButtonUp: anEvent
+ "Ignored. Theoretically we should never get here since control is transferred to the halo on #blueButtonDown: but subclasses may implement this differently."
+
+ self deprecated: 'Use #mouseUp:.'.!
Item was added:
+ ----- Method: Morph>>handlerForBlueButtonDown: (in category '*60Deprecated-meta-actions') -----
+ handlerForBlueButtonDown: anEvent
+
+ self deprecated: 'Use #handlerForMouseDown:.'.
+ ^ nil!
Item was added:
+ ----- Method: Morph>>handlerForMetaMenu: (in category '*60Deprecated-meta-actions') -----
+ handlerForMetaMenu: evt
+
+ self deprecated: 'Use #handlerForMouseDown: or #wantsMetaMenu or #mouseDownPriority.'.
+ ^ nil!