[squeak-dev] The Trunk: Morphic-cmm.531.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed May 4 00:53:11 UTC 2011
Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.531.mcz
==================== Summary ====================
Name: Morphic-cmm.531
Author: cmm
Time: 3 May 2011, 7:52:08.43 pm
UUID: c5e36b3e-0b4b-4303-9cf1-d647a70d5ea8
Ancestors: Morphic-ul.530
When a docking bar is being replaced, release its hold on objects which it no longer needs to allow their GC.
=============== Diff against Morphic-ul.530 ===============
Item was changed:
+ ----- Method: DockingBarMorph>>initialize (in category 'initialize-release') -----
- ----- Method: DockingBarMorph>>initialize (in category 'initialization') -----
initialize
"initialize the receiver"
super initialize.
""
selectedItem := nil.
activeSubMenu := nil.
fillsOwner := true.
avoidVisibleBordersAtEdge := true.
autoGradient := Preferences gradientMenu.
""
self setDefaultParameters.
""
self beFloating; beSticky.
""
self layoutInset: 0.
Project current world activeHand addKeyboardListener: self!
Item was added:
+ ----- Method: DockingBarMorph>>release (in category 'initialize-release') -----
+ release
+ activeSubMenu := selectedItem := oldKeyboardFocus := oldMouseFocus := nil!
Item was changed:
+ ----- Method: DockingBarMorph>>setDefaultParameters (in category 'initialize-release') -----
- ----- Method: DockingBarMorph>>setDefaultParameters (in category 'initialization') -----
setDefaultParameters
"private - set the default parameter using Preferences as the inspiration source"
| colorFromMenu worldColor menuColor menuBorderColor |
colorFromMenu := Preferences menuColorFromWorld
and: [Display depth > 4
and: [(worldColor := self currentWorld color) isColor]].
""
menuColor := colorFromMenu
ifTrue: [worldColor luminance > 0.7
ifTrue: [worldColor mixed: 0.85 with: Color black]
ifFalse: [worldColor mixed: 0.4 with: Color white]]
ifFalse: [Preferences menuColor].
""
menuBorderColor := Preferences menuAppearance3d
ifTrue: [#raised]
ifFalse: [colorFromMenu
ifTrue: [worldColor muchDarker]
ifFalse: [Preferences menuBorderColor]].
""
self
setColor: menuColor
borderWidth: Preferences menuBorderWidth
borderColor: menuBorderColor!
Item was changed:
----- Method: MorphicProject>>dockingBar: (in category 'docking bars support') -----
dockingBar: aTheWorldMainDockingBar
+ (self
+ projectParameterAt: #dockingBar
+ ifAbsent: [ ]) ifNotNilDo:
+ [ : dockingBar | dockingBar == aTheWorldMainDockingBar ifFalse: [ dockingBar release ] ].
self
projectParameterAt: #dockingBar
put: aTheWorldMainDockingBar.
self isCurrentProject ifTrue: [ TheWorldMainDockingBar instance: aTheWorldMainDockingBar ]!
More information about the Squeak-dev
mailing list
|