equal
deleted
inserted
replaced
4188 other filename classes (i.e. VMS) may want to redefine this method." |
4188 other filename classes (i.e. VMS) may want to redefine this method." |
4189 |
4189 |
4190 |sepString sub| |
4190 |sepString sub| |
4191 |
4191 |
4192 sub := subName asString. |
4192 sub := subName asString. |
|
4193 nameString size == 0 ifTrue:[ |
|
4194 ^ sub |
|
4195 ]. |
4193 sepString := self species separatorString. |
4196 sepString := self species separatorString. |
4194 nameString size == 0 ifTrue:[ |
|
4195 ^ sub |
|
4196 ]. |
|
4197 (nameString endsWith:sepString) ifTrue:[ |
4197 (nameString endsWith:sepString) ifTrue:[ |
4198 ^ nameString , sub |
4198 ^ nameString , sub |
4199 ]. |
4199 ]. |
4200 ^ nameString , sepString , sub |
4200 ^ nameString , sepString , sub |
4201 |
4201 |
4202 " |
4202 " |
4203 '/tmp' asFilename constructString:'foo' |
4203 '/tmp' asFilename constructString:'foo' |