Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.166.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.166 Author: mt Time: 2 June 2016, 6:33:08.27467 pm UUID: f4e7d7b4-c3ba-cf48-aba0-0bf40d5c88eb Ancestors: ToolBuilder-Morphic-mt.165
Fixes tool opening for non-windows.
Fixes debugger opening for errors that occur in invisible worlds' event processing chain. Required for writing tests for user input event processing. Always use the project's world to show debuggers.
=============== Diff against ToolBuilder-Morphic-mt.165 ===============
Item was changed: ----- Method: MorphicToolBuilder>>open:label: (in category 'opening') ----- open: anObject label: aString + "Build an open the object, labeling it appropriately if it is a window. Answer the widget opened." + + | morph | + morph := self open: anObject. + morph isSystemWindow + ifTrue: [morph setLabel: aString] + ifFalse: [morph name: aString]. + ^ morph! - "Build an open the object, labeling it appropriately. Answer the widget opened." - | window | - window := self open: anObject. - window setLabel: aString. - ^window!
Item was added: + ----- Method: MorphicToolBuilder>>openDebugger: (in category 'opening') ----- + openDebugger: aSpec + + | morph | + morph := self build: aSpec. + morph openInWorld: Project current world extent: morph extent. + ^ morph!
Item was added: + ----- Method: MorphicToolBuilder>>openDebugger:label: (in category 'opening') ----- + openDebugger: aSpec label: aString + + | morph | + morph := self openDebugger: aSpec. + morph isSystemWindow + ifTrue: [morph setLabel: aString] + ifFalse: [morph name: aString]. + ^ morph!
packages@lists.squeakfoundation.org