[Enh]: Registry - Make Enumerable

seandenigris · Jun 4, 2024 · 077e3ec · 077e3ec
1 parent cfe9842
commit 077e3ec
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/src/SmallWorld-Core/SmallProject.class.st b/src/SmallWorld-Core/SmallProject.class.st
@@ -196,7 +196,7 @@ SmallProject >> isObsoleteDescription [
 
 { #category : #testing }
 SmallProject >> isPrivate [
-	^ isPrivate
+	^ self maLazyInstVarUsing: self isPrivateDescription
 ]
 
 { #category : #accessing }

diff --git a/src/SmallWorld-Core/SmallProjectRegistry.class.st b/src/SmallWorld-Core/SmallProjectRegistry.class.st
@@ -1,6 +1,8 @@
 Class {
 	#name : #SmallProjectRegistry,
 	#superclass : #Object,
+	#traits : 'PeTEnumerable',
+	#classTraits : 'PeTEnumerable classTrait',
 	#instVars : [
 		'projects'
 	],
@@ -77,6 +79,11 @@ SmallProjectRegistry >> printOn: aStream [
 		nextPutAll: ' projects'
 ]
 
+{ #category : #enumerating }
+SmallProjectRegistry >> privateEnumerable [
+	^ self projects
+]
+
 { #category : #accessing }
 SmallProjectRegistry >> projects [
 	^ projects ifNil: [ projects := SortedCollection sortBlock: #name ascending ]
@@ -117,5 +124,5 @@ SmallProjectRegistry >> projectsViewFor: aView [
 		priority: 5;
 		items: [ self projects ];
 		"send: #model;"
-		yourself.
+		actionUpdateButton
 ]