Colin Putney uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cwp.1057.mcz
==================== Summary ====================
Name: Morphic-cwp.1057
Author: cwp
Time: 7 December 2015, 9:30:19.787 pm
UUID: c8dfb49a-6bd4-486f-8a25-592c57330da7
Ancestors: Morphic-dtl.1056
Don't clobber the existing reference pool in PasteUpMorph>>referencePool
=============== Diff against Morphic-dtl.1056 ===============
Item was changed:
----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') -----
referencePool
+ ^ self
+ valueOfProperty: #References
+ ifAbsentPut: [OrderedCollection new]
+
+ !
- | pool |
- pool := OrderedCollection new.
- self setProperty: #References toValue: pool.
- ^ pool!
Colin Putney uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cwp.1057.mcz
==================== Summary ====================
Name: Morphic-cwp.1057
Author: cwp
Time: 7 December 2015, 9:30:19.787 pm
UUID: c8dfb49a-6bd4-486f-8a25-592c57330da7
Ancestors: Morphic-dtl.1056
Don't clobber the existing reference pool in PasteUpMorph>>referencePool
=============== Diff against Morphic-dtl.1056 ===============
Item was changed:
----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') -----
referencePool
+ ^ self
+ valueOfProperty: #References
+ ifAbsentPut: [OrderedCollection new]
+
+ !
- | pool |
- pool := OrderedCollection new.
- self setProperty: #References toValue: pool.
- ^ pool!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.1056.mcz
==================== Summary ====================
Name: Morphic-dtl.1056
Author: dtl
Time: 3 December 2015, 7:33:58.442 pm
UUID: fd009a5d-4910-45be-bd72-6121f05689f1
Ancestors: Morphic-jmg.1055, Morphic-cwp.1055
Merge Morphic-jmg.1055, Morphic-cwp.1055
=============== Diff against Morphic-jmg.1055 ===============
Item was added:
+ ----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') -----
+ referencePool
+ | pool |
+ pool := OrderedCollection new.
+ self setProperty: #References toValue: pool.
+ ^ pool!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.1056.mcz
==================== Summary ====================
Name: Morphic-dtl.1056
Author: dtl
Time: 3 December 2015, 7:33:58.442 pm
UUID: fd009a5d-4910-45be-bd72-6121f05689f1
Ancestors: Morphic-jmg.1055, Morphic-cwp.1055
Merge Morphic-jmg.1055, Morphic-cwp.1055
=============== Diff against Morphic-jmg.1055 ===============
Item was added:
+ ----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') -----
+ referencePool
+ | pool |
+ pool := OrderedCollection new.
+ self setProperty: #References toValue: pool.
+ ^ pool!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cwp.1055.mcz
==================== Summary ====================
Name: Morphic-cwp.1055
Author: cwp
Time: 27 November 2015, 9:46:27.986 pm
UUID: 75600228-b4f9-4739-b9c8-0318e1ef1d3a
Ancestors: Morphic-mt.1054
Implement PasteUpMorph>>referencePool
Loading a project seems to require it.
=============== Diff against Morphic-mt.1054 ===============
Item was added:
+ ----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') -----
+ referencePool
+ | pool |
+ pool := OrderedCollection new.
+ self setProperty: #References toValue: pool.
+ ^ pool!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cwp.1055.mcz
==================== Summary ====================
Name: Morphic-cwp.1055
Author: cwp
Time: 27 November 2015, 9:46:27.986 pm
UUID: 75600228-b4f9-4739-b9c8-0318e1ef1d3a
Ancestors: Morphic-mt.1054
Implement PasteUpMorph>>referencePool
Loading a project seems to require it.
=============== Diff against Morphic-mt.1054 ===============
Item was added:
+ ----- Method: PasteUpMorph>>referencePool (in category 'objects from disk') -----
+ referencePool
+ | pool |
+ pool := OrderedCollection new.
+ self setProperty: #References toValue: pool.
+ ^ pool!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-jmg.1055.mcz
==================== Summary ====================
Name: Morphic-jmg.1055
Author: jmg
Time: 27 November 2015, 11:34:49.151 pm
UUID: 2866bfd1-711c-4f03-b944-b8d4adb0f6cb
Ancestors: Morphic-mt.1054
If you're like me and have the swapMouseButtons perference unselected because you are on windows, then right-clicking on a morph and picking the 'select' menu item raises an exception because popUpFor:at:hand: is expecting a position for the at: argument, and currently this sends in a MouseEvent transformed by the relevant amount. We need to take one additional step and extract the position from this newly translated event, which I do in this change.
=============== Diff against Morphic-mt.1054 ===============
Item was changed:
----- Method: SimpleHaloMorph>>popUpFor:hand: (in category 'pop up') -----
popUpFor: morph hand: hand
self
popUpFor: morph
+ at: (hand lastEvent transformedBy: (morph transformedFrom: nil)) position
- at: (hand lastEvent transformedBy: (morph transformedFrom: nil))
hand: hand!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-jmg.1055.mcz
==================== Summary ====================
Name: Morphic-jmg.1055
Author: jmg
Time: 27 November 2015, 11:34:49.151 pm
UUID: 2866bfd1-711c-4f03-b944-b8d4adb0f6cb
Ancestors: Morphic-mt.1054
If you're like me and have the swapMouseButtons perference unselected because you are on windows, then right-clicking on a morph and picking the 'select' menu item raises an exception because popUpFor:at:hand: is expecting a position for the at: argument, and currently this sends in a MouseEvent transformed by the relevant amount. We need to take one additional step and extract the position from this newly translated event, which I do in this change.
=============== Diff against Morphic-mt.1054 ===============
Item was changed:
----- Method: SimpleHaloMorph>>popUpFor:hand: (in category 'pop up') -----
popUpFor: morph hand: hand
self
popUpFor: morph
+ at: (hand lastEvent transformedBy: (morph transformedFrom: nil)) position
- at: (hand lastEvent transformedBy: (morph transformedFrom: nil))
hand: hand!