Better roassal graphs

Author: Nyan11

src/BaselineOfExecutableRequirements/BaselineOfExecutableRequirements.class.st

@@ -37,8 +37,10 @@ BaselineOfExecutableRequirements >> coreDependencies: spec [
 BaselineOfExecutableRequirements >> corePackages: spec [
 
 	spec package: 'ExecutableRequirements'.
-	spec package: 'ExecutableRequirements-Impacts'.
 
+	spec
+		package: 'ExecutableRequirements-Roassal'
+		with: [ spec requires: #( 'ExecutableRequirements' ) ].
 	spec
 		package: 'ExecutableRequirements-Examples'
 		with: [ spec requires: #( 'ExecutableRequirements' ) ].

src/ExecutableRequirements-Examples/ExReqExampleTODORequirements.class.st

@@ -17,6 +17,17 @@ ExReqExampleTODORequirements >> inspectRepositoryReport [
 	repository asReport inspect
 ]
 
+{ #category : 'as yet unclassified' }
+ExReqExampleTODORequirements >> openOnExample [
+
+	<script: 'ExReqExampleTODORequirements new openOnExample'>
+	| repository |
+	repository := ExReqRepository new
+		              pragmaSelector: #ExReqTODO;
+		              yourself.
+	^ ExReqUIPresenter new repositoryReport: repository asReport ; open
+]
+
 { #category : 'tests' }
 ExReqExampleTODORequirements >> todoReq1 [
 

src/ExecutableRequirements-Examples/ManifestExecutableRequirementsExamples.class.st

@@ -0,0 +1,10 @@
+"
+Please describe the package using the class comment of the included manifest class. The manifest class also includes other additional metadata for the package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser
+"
+Class {
+	#name : 'ManifestExecutableRequirementsExamples',
+	#superclass : 'PackageManifest',
+	#category : 'ExecutableRequirements-Examples-Manifest',
+	#package : 'ExecutableRequirements-Examples',
+	#tag : 'Manifest'
+}

src/ExecutableRequirements/ExReqRepositoryReport.class.st

@@ -52,6 +52,27 @@ ExReqRepositoryReport >> announcer [
 	^ announcer
 ]
 
+{ #category : 'as yet unclassified' }
+ExReqRepositoryReport >> associatedClasses [
+	^ self repository associatedClasses.
+]
+
+{ #category : 'as yet unclassified' }
+ExReqRepositoryReport >> associatedMethods [
+	^ self repository associatedMethods.
+]
+
+{ #category : 'as yet unclassified' }
+ExReqRepositoryReport >> associatedNodes [
+	^ self repository associatedNodes.
+]
+
+{ #category : 'as yet unclassified' }
+ExReqRepositoryReport >> associatedPackages [
+
+	^ self repository associatedPackages.
+]
+
 { #category : 'as yet unclassified' }
 ExReqRepositoryReport >> createTracingPoints [
 

src/ExecutableRequirements/ExReqTracingPoint.class.st

@@ -105,6 +105,18 @@ ExReqTracingPoint >> preconditionMetaLink [
 		  arguments: #( context )
 ]
 
+{ #category : 'removing' }
+ExReqTracingPoint >> remove [
+
+	| method |
+	super remove.
+	method := self target node methodNode compiledMethod.
+	method methodClass
+		compile: method sourceCode
+		classified: method protocolName
+		notifying: nil
+]
+
 { #category : 'accessing' }
 ExReqTracingPoint >> stepReports [
 

src/ExecutableRequirements/ManifestExecutableRequirements.class.st

@@ -0,0 +1,10 @@
+"
+Please describe the package using the class comment of the included manifest class. The manifest class also includes other additional metadata for the package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser
+"
+Class {
+	#name : 'ManifestExecutableRequirements',
+	#superclass : 'PackageManifest',
+	#category : 'ExecutableRequirements-Manifest',
+	#package : 'ExecutableRequirements',
+	#tag : 'Manifest'
+}