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. !
packages@lists.squeakfoundation.org