4 lines
129 B
Smalltalk
4 lines
129 B
Smalltalk
|
accessing
|
||
|
|
guiLinkLabel
|
||
|
|
self url ifNil: [^ ''].
|
||
|
|
^ (self url asString copyReplaceAll: self url scheme, '://' with: '') allButLast
|