[squeak-dev] The Trunk: Morphic-laza.362.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Feb 26 19:50:41 UTC 2010


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




More information about the Squeak-dev mailing list