File tree 3 files changed +8
-3
lines changed
Seaside-Pharo-Development.package/WADevelopment.class/class
Seaside-Pharo-Welcome.package/GRPharoPlatform.extension/instance
3 files changed +8
-3
lines changed Original file line number Diff line number Diff line change @@ -7,7 +7,8 @@ ensureAuthorInitialsWith: aOneArgumentBlock
7
7
ifTrue: [
8
8
" Special Pharo code path to avoid deprecation"
9
9
| 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 ].
11
12
author isNil
12
13
ifTrue: [ ^ self error: ' unsupported Pharo version' ].
13
14
author fullNamePerSe isEmptyOrNil
Original file line number Diff line number Diff line change 1
1
* seaside- pharo- welcome
2
2
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 number Diff line number Diff line change 1
1
* seaside- pharo- welcome
2
2
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
You can’t perform that action at this time.
0 commit comments