Move #isMooseObject to Moose-Core

moosetechnology · Mar 29, 2024 · 8e5a254 · 8e5a254
1 parent ead57ea
commit 8e5a254
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/Moose-Core/MooseObject.class.st b/src/Moose-Core/MooseObject.class.st
@@ -358,6 +358,11 @@ MooseObject >> isMooseModel [
 	^ false
 ]
 
+{ #category : #testing }
+MooseObject >> isMooseObject [
+	^ true
+]
+
 { #category : #testing }
 MooseObject >> isOfType: aClassFAMIX [
 	^ self class isOfType: aClassFAMIX

diff --git a/src/Moose-Core/Object.extension.st b/src/Moose-Core/Object.extension.st
@@ -29,6 +29,11 @@ Object >> isMooseEntity [
 	^ false 
 ]
 
+{ #category : #'*Moose-Core' }
+Object >> isMooseObject [
+	^ false
+]
+
 { #category : #'*Moose-Core' }
 Object class >> isOfType: aClassFAMIX [
 	^ false