Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.197.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.197 Author: mt Time: 5 October 2017, 8:50:50.594923 am UUID: b60282f3-e8d4-4b4d-86e4-74ab5c91f62b Ancestors: ToolBuilder-Morphic-tpr.196
To avoid confusion with the old "morphic/mvc open" pattern, rename the ToolBuilder-initiated opening for morphs from #morphicOpenWith: to #openAsTool. Drop the argument because that event check for "open window at hand" was really global and the tool builder does not have anything to do with it. Browse #currentEvent if you want to learn more about that.
Note that there is no need to hint about "morphic" in that selector because (1) "ToolBuilder-Morphic" is already a Morphic-specific package and (2) all the implementors are actual morphs.
=============== Diff against ToolBuilder-Morphic-tpr.196 ===============
Item was removed: - ----- Method: DialogWindow>>morphicOpenWith: (in category '*ToolBuilder-Morphic-opening') ----- - morphicOpenWith: aMorphicToolBuilder - - ^ self - moveToHand; - getUserResponse!
Item was added: + ----- Method: DialogWindow>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- + openAsTool + + self flag: #fishy. "mt: Why does the dialog not return its Morphic form but data?" + ^ self + moveToHand; + getUserResponse!
Item was removed: - ----- Method: MenuMorph>>morphicOpenWith: (in category '*ToolBuilder-Morphic-opening') ----- - morphicOpenWith: aMorphicToolBuilder - - self popUpInWorld: World. - ^ super morphicOpenWith: aMorphicToolBuilder!
Item was added: + ----- Method: MenuMorph>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- + openAsTool + + self popUpInWorld: World.!
Item was removed: - ----- Method: Morph>>morphicOpenWith: (in category '*ToolBuilder-Morphic-opening') ----- - morphicOpenWith: aMorphicToolBuilder - - ^ self openInWorld!
Item was added: + ----- Method: Morph>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- + openAsTool + + self openInWorld.!
Item was changed: ----- Method: MorphicToolBuilder>>open: (in category 'opening') ----- open: anObject "Build and open the object. Answer the widget opened." + ^ (self build: anObject) openAsTool! - ^ (self build: anObject) morphicOpenWith: self!
Item was removed: - ----- Method: SystemWindow>>morphicOpenWith: (in category '*ToolBuilder-Morphic-opening') ----- - morphicOpenWith: aMorphicToolBuilder - - | morph | - morph := self openInWorldExtent: self extent. - (Project uiManager openToolsAttachedToMouseCursor - and: [ | event | - event := aMorphicToolBuilder currentEvent. - event isMouse and: [event isMouseUp]]) - ifTrue: [ - morph setProperty: #initialDrop toValue: true. - morph hasDropShadow: false. - aMorphicToolBuilder currentHand attachMorph: morph]. - ^ morph - !
Item was added: + ----- Method: SystemWindow>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- + openAsTool + "Open this window as a tool, that is, honor the preferences such as #reuseWindows and #openToolsAttachedToMouseCursor." + + | meOrSimilarWindow | + meOrSimilarWindow := self openInWorldExtent: self extent. + (Project uiManager openToolsAttachedToMouseCursor + and: [ | event | + event := self currentEvent. + event isMouse and: [event isMouseUp]]) + ifTrue: [ + meOrSimilarWindow setProperty: #initialDrop toValue: true. + meOrSimilarWindow hasDropShadow: false. + self currentHand attachMorph: meOrSimilarWindow]. + ^ meOrSimilarWindow + !