Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.186.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-mt.186
Author: mt
Time: 16 August 2016, 6:01:05.580602 pm
UUID: f48e6eb7-0834-794d-b494-bdd58aa22d47
Ancestors: ToolBuilder-Morphic-mt.185
Reduce (additional) dependencies between packages.
=============== Diff against ToolBuilder-Morphic-mt.185 ===============
Item was changed:
----- Method: MorphicToolBuilder>>open: (in category 'opening') -----
open: anObject
"Build and open the object. Answer the widget opened."
| morph |
anObject isMorph
ifTrue:[morph := anObject]
ifFalse:[morph := self build: anObject].
(morph isKindOf: MenuMorph)
ifTrue:[morph popUpInWorld: World].
(morph isKindOf: DialogWindow)
ifTrue: [^ morph moveToHand; getUserResponse].
(morph isKindOf: SystemWindow)
ifFalse:[morph openInWorld]
ifTrue:[
morph := morph openInWorldExtent: morph extent.
+ (Project uiManager openToolsAttachedToMouseCursor
- (self class openToolsAttachedToMouseCursor
and: [self currentEvent isMouse and: [self currentEvent isMouseUp]])
ifTrue: [
morph setProperty: #initialDrop toValue: true.
morph hasDropShadow: false.
self currentHand attachMorph: morph]].
^morph!