This is a multi-part message in MIME format.
--------------F0D892F3A212E4BE93411992
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

This doesn't do anything about the disappearance of the halo's help
balloons, or the massive CPU burn, but it does make the dismiss and paint
halos work.
--------------F0D892F3A212E4BE93411992
Content-Type: text/plain; charset=us-ascii;
 name="Halo fixes 2.1.cs"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="Halo fixes 2.1.cs"

'From Squeak3.2 of 15 January 2002 [latest update: #4956] on 16 October 2002 at 12:16:56 am'!

!HaloMorph methodsFor: 'handles' stamp: 'bmk 10/15/2002 23:59'!
addDismissHandle: handleSpec
	"Add the dismiss handle according to the spec, unless selectiveHalos is on and my target resists dismissal"

	| dismissHandle |
	(target okayToAddDismissHandle or: [Preferences selectiveHalos not]) ifTrue:
		[dismissHandle _ self addHandle: handleSpec
			on: #mouseDown send: #mouseDownInDimissHandle:with: to: self.
		dismissHandle on: #mouseUp send: #maybeDismiss:with: to: self.
		dismissHandle on: #mouseDown send: #mouseDownInCollapseHandle:with: to: self.
		dismissHandle on: #mouseMove send: #setDismissColor:with: to: self]
! !

!HaloMorph methodsFor: 'handles' stamp: 'bmk 10/16/2002 00:16'!
addRecolorHandle: haloSpec
	"Add a recolor handle to the receiver, if appropriate"

	| recolorHandle |

	"since this halo now opens a more general properties panel, allow it in all cases"
	"innerTarget canSetColor ifTrue:"

	recolorHandle _ self addHandle: haloSpec on: #mouseUp send: #doRecolor:with: to: self.

	"HACK. With showBounds on, a mouseDown handler is needed for the mouseUp to work"
	recolorHandle on: #mouseDown send:#mouseDownInDimissHandle:with: to: self

! !


--------------F0D892F3A212E4BE93411992--