BlElement:

+ hasAnyInParentChain: + hasInParentChain:
OpenSmock · Jun 23, 2023 · 103b733 · 103b733
1 parent 0e0168d
commit 103b733
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/src/Bloc/BlElement.class.st b/src/Bloc/BlElement.class.st
@@ -1762,6 +1762,15 @@ BlElement >> globalScale [
 	^ (aGlobalOrigin distanceTo: aGlobalCorner) / (anOrigin distanceTo: aCorner)
 ]
 
+{ #category : #'children testing' }
+BlElement >> hasAnyInParentChain: aCollection [
+	"Return true if any one in the given collection in my parent chain (including myself) "
+	<return: #Boolean>
+
+
+	^ aCollection anySatisfy: [ :e | self hasInParentChain: e ]
+]
+
 { #category : #'children testing' }
 BlElement >> hasChild: anElement [
 	<return: #Boolean>
@@ -1803,6 +1812,14 @@ BlElement >> hasFocusable [
 		self children anySatisfy: [ :anElement | anElement hasFocusable ] ]
 ]
 
+{ #category : #'children testing' }
+BlElement >> hasInParentChain: anElement [
+	"Return true if I have a given element in my parent chain, or if I am anElement "
+	<return: #Boolean>
+
+	^ anElement = self or: [ self hasParent: anElement ]
+]
+
 { #category : #'event management accessing' }
 BlElement >> hasNextEventTarget [
 	"Return true if this event target has a logical successor within a dispatch chain.

diff --git a/src/Bloc/BlSpaceMouseDownOutsideEvent.class.st b/src/Bloc/BlSpaceMouseDownOutsideEvent.class.st
@@ -19,3 +19,9 @@ BlSpaceMouseDownOutsideEvent >> originalEvent: aBlEvent [
 	aBlEvent consumed: true.
 	originalEvent := aBlEvent
 ]
+
+{ #category : #sending }
+BlSpaceMouseDownOutsideEvent >> sendTo: anObject [
+
+	anObject mouseDownOutsideEvent: self
+]