The Trunk: Morphic-laza.362.mcz

Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-laza.362.mcz

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

Name: Morphic-laza.362
Author: laza
Time: 26 February 2010, 8:49:33.979 pm
UUID: b5de3912-cf5b-9e41-aa18-279e9928cf86
Ancestors: Morphic-laza.361

"Make closeable" from the window menu did add a new reddish closebutton to the right of windowlabel area. Now the flat closebutton is added to the left side of the windowlabel area

=============== Diff against Morphic-laza.361 ===============

Item was changed:
  ----- Method: SystemWindow>>addCloseBox (in category 'initialization') -----
  addCloseBox
  "If I have a labelArea, add a close box to it"
  | frame |
  labelArea
  ifNil: [^ self].
  closeBox := self createCloseBox.
  frame := LayoutFrame new.
  frame leftFraction: 0;
  leftOffset: 2;
  topFraction: 0;
  topOffset: 0.
  closeBox layoutFrame: frame.
+ labelArea addMorphFront: closeBox!
- labelArea addMorphBack: closeBox!

Item was changed:
  ----- Method: SystemWindow>>makeClosable (in category 'menu') -----
  makeClosable
- | opaqueColor |
  mustNotClose := false.
+ closeBox ifNil: [self addCloseBox]!
- closeBox
- ifNil: [self addCloseBox.
- self isActive
- ifTrue: [opaqueColor := self paneColor]
- ifFalse: [opaqueColor := self paneColor muchDarker].
- self
- updateBox: closeBox
- color: (opaqueColor alphaMixed: 0.5 with: Color red).
- self extent: self extent]!