From ed34bb63a43f50dfc0ce3cb790668714750b966f Mon Sep 17 00:00:00 2001
From: CyrilFerlicot <cyril@ferlicot.me>
Date: Mon, 2 Sep 2024 15:27:36 +0200
Subject: [PATCH] Add navigation of imports

For Python
---
 src/Famix-Traits/MooseAbstractGroup.extension.st | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/Famix-Traits/MooseAbstractGroup.extension.st b/src/Famix-Traits/MooseAbstractGroup.extension.st
index e20a4fe2..c66cc6b2 100644
--- a/src/Famix-Traits/MooseAbstractGroup.extension.st
+++ b/src/Famix-Traits/MooseAbstractGroup.extension.st
@@ -94,6 +94,13 @@ MooseAbstractGroup >> allImplicitVariables [
 	^self allUsing: FamixTImplicitVariable 
 ]
 
+{ #category : #'*Famix-Traits' }
+MooseAbstractGroup >> allImports [
+	
+	<navigation: 'All imports'>
+	^self allUsing: FamixTImport 
+]
+
 { #category : #'*Famix-Traits' }
 MooseAbstractGroup >> allInheritanceDefinitions [
 	<navigation: 'All inheritances'>
@@ -133,6 +140,13 @@ MooseAbstractGroup >> allModelClasses [
 	^ self cacheAt: 'All model classes' ifAbsentPut: [ MooseGroup withAll: (self allClasses reject: [ :each | each isStub ]) withDescription: 'All model classes' ]
 ]
 
+{ #category : #'*Famix-Traits' }
+MooseAbstractGroup >> allModelImports [
+
+	<navigation: 'All model imports'>
+	^ self cacheAt: 'All model imports' ifAbsentPut: [ MooseGroup withAll: (self allImports reject: [ :each | each isStub ]) withDescription: 'All model imports' ]
+]
+
 { #category : #'*Famix-Traits' }
 MooseAbstractGroup >> allModelMethods [
 	<navigation: 'All model methods'>