Updating for the new minor version.
This commit is contained in:
parent
b4b6270774
commit
9c7fffcb24
@ -556,15 +556,14 @@ GrafoscopioNotebook >> updateBodyFor: aNodeContainer [
|
|||||||
|
|
||||||
{ #category : #operation }
|
{ #category : #operation }
|
||||||
GrafoscopioNotebook >> updateForSpecialHeader [
|
GrafoscopioNotebook >> updateForSpecialHeader [
|
||||||
"I see if a node header is an ulr located at 'http://ws.stfx.eu', wich means that is a shared
|
"I see if a node header is an url located at 'http://ws.stfx.eu', wich means that is a shared
|
||||||
workspace, and convert the node body to an interactive playground"
|
workspace, and convert the node body to an interactive playground"
|
||||||
|
|
||||||
| currentNode nodeContent |
|
| currentNode nodeContent |
|
||||||
currentNode := tree highlightedItem.
|
currentNode := tree highlightedItem.
|
||||||
currentNode ifNil: [ ^ self ].
|
currentNode ifNil: [ ^ self ].
|
||||||
nodeContent := currentNode content.
|
nodeContent := currentNode content.
|
||||||
nodeContent header asUrl host = 'ws.stfx.eu'
|
nodeContent header isAsciiString ifFalse: [ ^ self ].
|
||||||
ifFalse: [ ^ self ].
|
nodeContent header asUrl host = 'ws.stfx.eu' ifFalse: [ ^ self ].
|
||||||
nodeContent
|
nodeContent
|
||||||
body: (ZnClient new get: nodeContent header);
|
body: (ZnClient new get: nodeContent header);
|
||||||
tagAs: 'código'.
|
tagAs: 'código'.
|
||||||
|
Loading…
Reference in New Issue
Block a user