[squeak-dev] The Trunk: PreferenceBrowser-mt.56.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Aug 28 08:42:15 UTC 2015


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

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

Name: PreferenceBrowser-mt.56
Author: mt
Time: 28 August 2015, 10:42:09.726 am
UUID: 653323a1-a37f-f047-9a58-06ceac3598e8
Ancestors: PreferenceBrowser-mt.55

Fixes menu pop-up for color preferences.

=============== Diff against PreferenceBrowser-mt.55 ===============

Item was changed:
  ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') -----
  borderStyleMenu
  	"Add border-style menu items"
  
  	|  aMenu |
  	aMenu := MenuMorph new defaultTarget: self.
  	
  	aMenu addStayUpItemSpecial.
  	aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button.
  	aMenu addLine.
  	BorderStyle borderStyleChoices do:
  		[:sym | (aMenu borderStyleForSymbol: sym)
  			ifNotNil:
  				[aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]].
+ 	^aMenu popUpInWorld
- 	^aMenu openNear: ActiveHand bounds.
  !

Item was changed:
  ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') -----
  fillStyleMenu
  	"Add the items for changing the current fill style of the Morph"
  	|  aMenu |
  	"self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]."
  	aMenu := MenuMorph new defaultTarget: self.
  	"self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self."
  	aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button.
  	aMenu addLine.
  	aMenu add: 'solid fill' translated action: #useSolidFill.
  	"aMenu add: 'gradient fill' translated action: #useGradientFill.
  	aMenu add: 'bitmap fill' translated action: #useBitmapFill.
  	aMenu add: 'default fill' translated action: #useDefaultFill."
+ 	^aMenu popUpInWorld
- 	^aMenu openNear: ActiveHand bounds.
  	!



More information about the Squeak-dev mailing list