diff --git a/src/GToolkit-Inspector/ZnUrl.extension.st b/src/GToolkit-Inspector/ZnUrl.extension.st index b880194e0..8bee6ec30 100644 --- a/src/GToolkit-Inspector/ZnUrl.extension.st +++ b/src/GToolkit-Inspector/ZnUrl.extension.st @@ -3,9 +3,17 @@ Extension { #name : #ZnUrl } { #category : #'*GToolkit-Inspector' } ZnUrl >> gtUrlFor: aView [ - ^ aView textEditor + ^ aView explicit title: 'URL'; priority: 1; - look: BrGlamorousCodeEditorLook; - text: [ self printString asRopedText ] + stencil: [ + | docTemplate | + docTemplate := '*{1}* + +[[[smalltalk +ZnClient new get: ''{1}''. +]]]'. + GtDocument new + text: (docTemplate format: { self printString }); + asElementWithoutSaveAction ] ]