[squeak-dev] The Trunk: Morphic-tfel.396.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Mar 27 17:34:45 UTC 2010


Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tfel.396.mcz

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

Name: Morphic-tfel.396
Author: tfel
Time: 27 March 2010, 1:30:57.846 pm
UUID: d0248473-d575-4dd1-aa58-5fed900f8bf2
Ancestors: Morphic-ar.395

SystemWindowWithButton needs to adjust the button position if the menu button is on the right

=============== Diff against Morphic-ar.395 ===============

Item was changed:
+ ----- Method: SystemWindowWithButton>>buttonInTitle: (in category 'label') -----
- ----- Method: SystemWindowWithButton>>buttonInTitle: (in category 'as yet unclassified') -----
  buttonInTitle: aButton
  	buttonInTitle := aButton.
  	self addMorphFront: aButton!

Item was added:
+ ----- Method: SystemWindowWithButton class>>hideExpandButton (in category 'preferences') -----
+ hideExpandButton
+ 
+ 	^ true!

Item was changed:
+ ----- Method: SystemWindowWithButton>>adjustExtraButton (in category 'geometry') -----
- ----- Method: SystemWindowWithButton>>adjustExtraButton (in category 'as yet unclassified') -----
  adjustExtraButton
+ 	| leftMargin |
  	buttonInTitle ifNil: [^ self].
+ 	leftMargin := self boxExtent x + 3.
+ 	self class moveMenuButtonRight ifTrue: [leftMargin := leftMargin * 2].
+ 	buttonInTitle align: buttonInTitle topRight with: self innerBounds topRight - (leftMargin at 0)!
- 	buttonInTitle align: buttonInTitle topLeft with:  self innerBounds topRight - (buttonInTitle width + 20 @ -3)!




More information about the Squeak-dev mailing list