Updating for the new minor version.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-09-20 17:39:46 +00:00
parent b4b6270774
commit 9c7fffcb24
1 changed files with 3 additions and 4 deletions

View File

@ -556,15 +556,14 @@ GrafoscopioNotebook >> updateBodyFor: aNodeContainer [
{ #category : #operation }
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"
| currentNode nodeContent |
currentNode := tree highlightedItem.
currentNode ifNil: [ ^ self ].
nodeContent := currentNode content.
nodeContent header asUrl host = 'ws.stfx.eu'
ifFalse: [ ^ self ].
nodeContent header isAsciiString ifFalse: [ ^ self ].
nodeContent header asUrl host = 'ws.stfx.eu' ifFalse: [ ^ self ].
nodeContent
body: (ZnClient new get: nodeContent header);
tagAs: 'código'.