Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.764.mcz
==================== Summary ====================
Name: Morphic-mt.764 Author: mt Time: 27 February 2015, 11:33:22.268 am UUID: 2ca4e315-b777-2847-830e-366884514d22 Ancestors: Morphic-ul.763
New pragma-preference for #gradientMenu to update SystemProgressbar instance accordingly. Postload-script will remove the old-style preference.
=============== Diff against Morphic-ul.763 ===============
Item was changed: ----- Method: DockingBarMorph>>initialize (in category 'initialize-release') ----- initialize "initialize the receiver" super initialize. selectedItem := nil. activeSubMenu := nil. fillsOwner := true. avoidVisibleBordersAtEdge := true. + autoGradient := MenuMorph gradientMenu. - autoGradient := Preferences gradientMenu. self setDefaultParameters ; beFloating ; beSticky ; layoutInset: 0 ; dropEnabled: true. Project current world activeHand addKeyboardListener: self!
Item was changed: ----- Method: FillInTheBlankMorph>>updateColor:color:intensity: (in category 'initialization') ----- updateColor: aMorph color: aColor intensity: anInteger "update the apareance of aMorph" | fill | + MenuMorph gradientMenu - Preferences gradientMenu ifFalse: [^ self].
fill := GradientFillStyle ramp: {0.0 -> Color white. 1 -> aColor}. fill radial: false; origin: aMorph topLeft; direction: 0 @ aMorph height. aMorph fillStyle: fill!
Item was changed: ----- Method: MenuItemMorph>>selectionFillStyle (in category 'private') ----- selectionFillStyle " Answer the fill style to use with the receiver is the selected element "
| fill baseColor preferenced | Display depth <= 2 ifTrue: [ ^Color gray ]. preferenced := Preferences menuSelectionColor. preferenced notNil ifTrue: [ ^preferenced ]. baseColor := owner color negated. + MenuMorph gradientMenu ifFalse: [ ^baseColor ]. - Preferences gradientMenu ifFalse: [ ^baseColor ]. fill := GradientFillStyle ramp: { 0.0 -> baseColor twiceLighter. 1 -> baseColor twiceDarker }. fill origin: self topLeft. ^ fill!
Item was changed: AlignmentMorph subclass: #MenuMorph instanceVariableNames: 'defaultTarget selectedItem stayUp popUpOwner activeSubMenu' + classVariableNames: 'CloseBoxImage GradientMenu PushPinImage' - classVariableNames: 'CloseBoxImage PushPinImage' poolDictionaries: '' category: 'Morphic-Menus'!
!MenuMorph commentStamp: '<historical>' prior: 0! Instance variables: defaultTarget <Object> The default target for creating menu items selectedItem <MenuItemMorph> The currently selected item in the receiver stayUp <Boolean> True if the receiver should stay up after clicks popUpOwner <MenuItemMorph> The menu item that automatically invoked the receiver, if any. activeSubMenu <MenuMorph> The currently active submenu.!
Item was added: + ----- Method: MenuMorph class>>gradientMenu (in category 'preferences') ----- + gradientMenu + + <preference: 'gradientMenu' + category: #menus + description: 'If true, the menus will have a gradient look.' + type: #Boolean> + ^ GradientMenu ifNil: [true]!
Item was added: + ----- Method: MenuMorph class>>gradientMenu: (in category 'preferences') ----- + gradientMenu: aBoolean + + GradientMenu := aBoolean. + SystemProgressMorph reset.!
Item was changed: ----- Method: MenuMorph>>updateColor (in category 'control') ----- updateColor | fill title | + self class gradientMenu - Preferences gradientMenu ifFalse: [^ self]. (self fillStyle == self color) not ifTrue: [^ self]. "Don't apply the gradient more than once" "" fill := GradientFillStyle ramp: {0.0 -> Color white. 1 -> self color}. "" fill radial: false; origin: self topLeft; direction: 0 @ self height. "" self fillStyle: fill. " update the title color" title := self allMorphs detect: [:each | each hasProperty: #titleString] ifNone: [^ self]. "" fill := GradientFillStyle ramp: {0.0 -> title color twiceLighter. 1 -> title color twiceDarker}. "" fill origin: title topLeft; direction: title width @ 0. "" title fillStyle: fill!
Item was changed: ----- Method: SystemProgressMorph>>updateColor:color:intensity: (in category 'initialization') ----- updateColor: aMorph color: aColor intensity: anInteger "update the apareance of aMorph" | fill | + MenuMorph gradientMenu - Preferences gradientMenu ifFalse: [^ self].
fill := GradientFillStyle ramp: {0.0 -> Color white. 1 ->aColor}. fill radial: false; origin: aMorph topLeft; direction: 0 @ aMorph height. aMorph fillStyle: fill!
Item was changed: (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false. "Force SystemProgressMorph to be reset" SystemProgressMorph initialize; reset.
"Initialize the key bindings and menus" Editor initialize.
"Retain scrollBar look now that the pref actually does something" Preferences enable: #gradientScrollBars.
"apply the new icons" MenuIcons initializeIcons. TheWorldMainDockingBar updateInstances. + + "Cleanup old-style preferences here. Remove before new release." + Preferences removePreference: #gradientMenu. "Now in MenuMorph."'! - '!