The Trunk: Morphic-mt.1388.mcz

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.!