Skip to content

Commit

Permalink
Author was removed in Pharo 13: disregard setting the author when usi…
Browse files Browse the repository at this point in the history
…ng version 13...
  • Loading branch information
jbrichau committed Oct 25, 2024
1 parent 0f7d6f7 commit 61c22a4
Show file tree
Hide file tree
Showing 3 changed files with 8 additions and 3 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,8 @@ ensureAuthorInitialsWith: aOneArgumentBlock
ifTrue: [
"Special Pharo code path to avoid deprecation"
| author |
author := Smalltalk at: #Author.
SystemVersion current major >= 13 ifTrue:[ ^ self. "do nothing because Author does not exist anymore" ].
author := Smalltalk at: #Author ifAbsent: [ nil ].
author isNil
ifTrue: [ ^ self error: 'unsupported Pharo version' ].
author fullNamePerSe isEmptyOrNil
Expand Down
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
*seaside-pharo-welcome
seasideIsAuthorNameSet
^ Author fullNamePerSe isEmptyOrNil not

SystemVersion current major >= 13 ifTrue:[ ^ true. "Author does not exist anymore" ].
^ (Smalltalk at: #Author) fullNamePerSe isEmptyOrNil not
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
*seaside-pharo-welcome
seasideSetAuthorName: anAuthorName
Author fullName: anAuthorName

SystemVersion current major >= 13 ifTrue:[ ^ self error: 'Author does not exist anymore.' ].
(Smalltalk at: #Author) fullName: anAuthorName

0 comments on commit 61c22a4

Please sign in to comment.