PubPubContent method's recovering after GT crash.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-05-21 20:55:46 -05:00
parent ae75337739
commit 473c262454

View File

@ -48,6 +48,7 @@ PubPubContent >> printOn: aStream [
PubPubContent >> shortName [ PubPubContent >> shortName [
| sanitized | | sanitized |
sanitized := (self title splitOn: $:) first. sanitized := (self title splitOn: $:) first.
sanitized := sanitized copyReplaceAll: '' with: ''.
sanitized := sanitized asCamelCase. sanitized := sanitized asCamelCase.
sanitized at: 1 put: sanitized first asLowercase. sanitized at: 1 put: sanitized first asLowercase.
^ sanitized ^ sanitized