Fix doubleClick on tab and on text selection.

src/Morphic-Base/MouseClickState.class.st

@@ -323,10 +323,9 @@ MouseClickState >> handleEvent: evt from: aHand [
 			^true].
 		localEvt isMouseDown ifTrue:["double click"
 			clickState := #secondClickDown.
-			"We should not double click if not on the same element"
-			(clickClient containsPoint: localEvt position) ifTrue: [
-				self doubleClick.
-				^false] ] ].
+			self doubleClick.
+			^false]
+	].
 
 	clickState == #secondClickDown ifTrue: [
 		isDragSecond ifTrue: ["drag start"

src/Morphic-Core/Morph.class.st

@@ -2235,7 +2235,8 @@ Morph >> doesOwnRotation [
 { #category : #'event handling' }
 Morph >> doubleClick: evt [
 	"Handle a double-click event. This message is only sent to clients that request it by sending #waitForClicksOrDrag:event: to the initiating hand in their mouseDown: method. This default implementation does nothing."
-
+	"We should not double click if not on the same element"
+	(self containsPoint: evt position) ifFalse: [ ^self ].
 	^ self eventHandler ifNotNil:
 		[self eventHandler doubleClick: evt fromMorph: self]
 ]

src/Morphic-Tests/MockMorph.class.st

@@ -28,5 +28,7 @@ MockMorph >> myMagicClick: event [
 
 { #category : #events }
 MockMorph >> myMagicDoubleClick: event [
+	"Each client should check if it contains the point"
+	(self containsPoint: event position) ifFalse: [ ^self ].
 	magicDoubleClick := event
 ]

src/Rubric-Tests/RubEditingAreaTest.class.st

@@ -135,3 +135,29 @@ RubEditingAreaTest >> testMouseMoveAfterDoubleClick [
 	self assert: area markBlock stringIndex equals: 9.
 	self assert: area pointBlock stringIndex equals: 17
 ]
+
+{ #category : #'tests - accessing selection' }
+RubEditingAreaTest >> testSelectAllWithDoubleClickAfterLastLine [
+	| text index buttons |
+	text := 'one
+two
+three
+four'.
+	"r character from word 'three'"
+	"index := text indexOf: $r. 
+	self sendMouseClickAt: index withShift: false.
+	self sendDoubleClickAt: index withShift: false.
+	self assert: area selection equals: 'three'."
+	area setTextWith: text.
+	index := text size + 20. "an index out of bounds of string"
+	buttons := MouseButtonEvent redButton.
+	position := 20@100.
+	(area paragraph characterBlockForIndex: text size) surface leftCenter traceCr.
+	area simulateClickWith: buttons position: position.
+	self sendDoubleClickAt: index withShift: false.
+	self assert: area selection equals: text.
+
+
+
+
+]