LeDatabaseRegistrations search pragmas also in superclasses [feenkc…

…om/gtoolkit#3679]
feenkcom · Mar 27, 2024 · 3d6ae36 · 3d6ae36
1 parent 140f8b3
commit 3d6ae36
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Lepiter-Setup/LeDatabaseRegistrations.class.st b/src/Lepiter-Setup/LeDatabaseRegistrations.class.st
@@ -27,7 +27,8 @@ LeDatabaseRegistrations class >> allDocumentationPathsDo: aBlock [
 LeDatabaseRegistrations class >> allDocumentationPragmas [
 	^ Pragma
 		allNamed: self pragmaSelector
-		in: self class
+		from: LeDatabaseRegistrations
+		to: self class
 		sortedByArgument: 1
 ]
 
@@ -48,7 +49,7 @@ LeDatabaseRegistrations class >> gtAllDocumentationPathsFor: aView [
 	<gtView>
 	<gtClassView>
 	^ aView columnedList
-		title: 'Lepiter Documentation Paths';
+		title: 'Lepiter documentation paths';
 		priority: 1;
 		items: [ Array
 				streamContents: [ :aStream |