The Trunk: Morphic-mt.1203.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1203.mcz

==================== Summary ====================

Name: Morphic-mt.1203
Author: mt
Time: 28 July 2016, 1:13:25.393105 pm
UUID: c1d37e3b-d0d3-8542-88d3-1d50d513eb9d
Ancestors: Morphic-mt.1202

Cleans up window refreshing code. Fixes a bug that recreated the close box for windows that where uncloseable.

=============== Diff against Morphic-mt.1202 ===============

Item was changed:
  ----- Method: SystemWindow class>>clickOnLabelToEdit: (in category 'preferences') -----
  clickOnLabelToEdit: aBoolean
 
  ClickOnLabelToEdit := aBoolean.
+ self refreshAllWindows.!
- self rebuildAllWindowLabels.!

Item was changed:
  ----- Method: SystemWindow class>>doubleClickOnLabelToExpand: (in category 'preferences') -----
  doubleClickOnLabelToExpand: aBoolean
 
  DoubleClickOnLabelToExpand := aBoolean.
+ self refreshAllWindows.
- self rebuildAllWindowLabels.
  !

Item was changed:
  ----- Method: SystemWindow class>>moveMenuButtonRight: (in category 'preferences') -----
  moveMenuButtonRight: aBoolean
 
  | absLeftOffset |
  absLeftOffset := ((self hideExpandButton and: [aBoolean])
  ifTrue: [absLeftOffset := self boxExtent x * 2]
  ifFalse: [absLeftOffset := self boxExtent x]) + 3.
  self menuBoxFrame leftOffset: (aBoolean
  ifTrue: [absLeftOffset negated]
  ifFalse: [absLeftOffset]).
+ self refreshAllWindows.!
- self rebuildAllWindowLabels.!

Item was removed:
- ----- Method: SystemWindow class>>rebuildAllWindowLabels (in category 'private') -----
- rebuildAllWindowLabels
-
- self withAllSubclasses do: [:c | c allInstances do: [:w | w replaceBoxes]].!

Item was changed:
  ----- Method: SystemWindow class>>refreshAllWindows (in category 'initializing') -----
  refreshAllWindows
  "If there is some prominent UI change, use this method to update all open windows."
 
  SystemWindow allSubInstances do: [:w |
  w
+ replaceBoxes;
  setDefaultParameters;
  refreshWindowColor].!

Item was changed:
  ----- Method: SystemWindow>>addCloseBox (in category 'initialization') -----
  addCloseBox
  "If I have a labelArea, add a close box to it"
 
+ labelArea ifNil: [^ self].
+ mustNotClose == true ifTrue: [^ self].
- labelArea
- ifNil: [^ self].
  closeBox ifNotNil: [closeBox delete].
  closeBox := self createCloseBox.
  closeBox layoutFrame: self class closeBoxFrame.
  labelArea addMorphFront: closeBox!