'From etoys2.1 of 26 July 2007 [latest update: #1576] on 2 September 2007 at 5:06:29 am'!
"Change Set:		fixDupHelpMsg-sw
Date:			31 August 2007
Author:			Scott Wallace

Fix the help message for the green 'duplicate' halo handle so that it doesn't mislead about siblings when that's not an option."!


!HaloMorph methodsFor: 'handles' stamp: 'sw 8/31/2007 18:17'!
addDupHandle: haloSpec
	"Add the halo that offers duplication, or, when shift is down, make-sibling"

 	| aSelector |
	aSelector := innerTarget couldMakeSibling
		ifTrue:
			[#doDupOrMakeSibling:with:]
		ifFalse:
			[#doDup:with:].

	self addHandle: haloSpec on: #mouseDown send: aSelector to: self

! !