Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1388.mcz
==================== Summary ====================
Name: Morphic-mt.1388 Author: mt Time: 17 January 2018, 9:44:20.551014 am UUID: 34b39115-f355-cb47-ad1e-c05e396b9189 Ancestors: Morphic-mt.1387
Adds names to a dialog's morphs to simplify debugging.
=============== Diff against Morphic-mt.1387 ===============
Item was changed: ----- Method: DialogWindow>>createBody (in category 'initialization') ----- createBody
| body | body := Morph new + name: 'Body'; changeTableLayout; hResizing: #shrinkWrap; vResizing: #shrinkWrap; listDirection: #topToBottom; cellPositioning: #leftCenter; layoutInset: (10@5 corner: 10@10); cellInset: 5; color: Color transparent; yourself. body addAllMorphs: {self createMessage: ''. self createPane. self createButtonRow. self createFilter}. self addMorphBack: body.!
Item was changed: ----- Method: DialogWindow>>createButtonRow (in category 'initialization') ----- createButtonRow
^ buttonRow := Morph new + name: 'Buttons'; color: Color transparent; changeTableLayout; vResizing: #shrinkWrap; hResizing: #spaceFill; listDirection: #leftToRight; listCentering: #center; cellInset: 5; yourself!
Item was changed: ----- Method: DialogWindow>>createFilter (in category 'initialization') ----- createFilter + "This is an invisible morph that catches keystrokes to filter content in multiple widgets at once. Needs #filterEnabled to be true." filterMorph := '' asText asMorph lock. filterMorph + name: 'Filter'; visible: false; disableTableLayout: true. ^ filterMorph!
Item was changed: ----- Method: DialogWindow>>createMessage: (in category 'initialization') ----- createMessage: aString messageMorph := aString asText asMorph lock. + messageMorph name: 'Message'. self setMessageParameters. ^ messageMorph!
Item was changed: ----- Method: DialogWindow>>createPane (in category 'initialization') ----- createPane
^ paneMorph := BorderedMorph new + name: 'Content'; changeProportionalLayout; hResizing: #rigid; vResizing: #rigid; layoutInset: 0; color: Color transparent; borderWidth: 0; yourself.!