[Pkg] The Trunk: Morphic-mt.1388.mcz

[commits at source.squeak.org]

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 at 5 corner: 10 at 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.!