The Trunk: PreferenceBrowser-mt.56.mcz

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