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