[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