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