The Trunk: ToolBuilder-Morphic-mt.166.mcz

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!