Skip to content

Commit 61c22a4

Browse files
author
Johan Brichau
committed
Author was removed in Pharo 13: disregard setting the author when using version 13...
1 parent 0f7d6f7 commit 61c22a4

File tree

3 files changed

+8
-3
lines changed

3 files changed

+8
-3
lines changed

repository/Seaside-Pharo-Development.package/WADevelopment.class/class/ensureAuthorInitialsWith..st

+2-1
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,8 @@ ensureAuthorInitialsWith: aOneArgumentBlock
77
ifTrue: [
88
"Special Pharo code path to avoid deprecation"
99
| author |
10-
author := Smalltalk at: #Author.
10+
SystemVersion current major >= 13 ifTrue:[ ^ self. "do nothing because Author does not exist anymore" ].
11+
author := Smalltalk at: #Author ifAbsent: [ nil ].
1112
author isNil
1213
ifTrue: [ ^ self error: 'unsupported Pharo version' ].
1314
author fullNamePerSe isEmptyOrNil
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
11
*seaside-pharo-welcome
22
seasideIsAuthorNameSet
3-
^ Author fullNamePerSe isEmptyOrNil not
3+
4+
SystemVersion current major >= 13 ifTrue:[ ^ true. "Author does not exist anymore" ].
5+
^ (Smalltalk at: #Author) fullNamePerSe isEmptyOrNil not
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
11
*seaside-pharo-welcome
22
seasideSetAuthorName: anAuthorName
3-
Author fullName: anAuthorName
3+
4+
SystemVersion current major >= 13 ifTrue:[ ^ self error: 'Author does not exist anymore.' ].
5+
(Smalltalk at: #Author) fullName: anAuthorName

0 commit comments

Comments
 (0)