Use “New folder” as default name for MailFolder instances

koendehondt · koendehondt · commit 8f4aa73eeba3 · 2024-10-11T13:19:28.000+02:00
diff --git a/src/CodeOfSpec20Book/MailFolder.class.st b/src/CodeOfSpec20Book/MailFolder.class.st
@@ -44,7 +44,8 @@ MailFolder >> emails: aCollection [
 MailFolder >> initialize [
 
 	super initialize.
-	emails := OrderedCollection new
+	emails := OrderedCollection new.
+	name := 'New folder'
 ]
 
 { #category : 'testing' }

Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,8 @@ MailFolder >> emails: aCollection [`
`44`	`44`	`MailFolder >> initialize [`
`45`	`45`
`46`	`46`	`super initialize.`
`47`		`- emails := OrderedCollection new`
	`47`	`+ emails := OrderedCollection new.`
	`48`	`+ name := 'New folder'`
`48`	`49`	`]`
`49`	`50`
`50`	`51`	`{ #category : 'testing' }`