Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updating before starting to develop in a new image.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-11-28 21:20:20 +00:00
parent 43cb1e69ac
commit 452db98945
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
repository/Grafoscopio/GrafoscopioNode.class.st
View File

@ -74,16 +74,15 @@ GrafoscopioNode >> addLink: anUrl [
] ]
{ #category : #'add/remove nodes' } { #category : #adding }
GrafoscopioNode >> addNode: aNode [ GrafoscopioNode >> addNode: aNode [
"Adds the given node to the receivers collection of children, and sets this object as the parent "Adds the given node to the receivers collection of children, and sets this object as the parent
of the node" of the node"
aNode parent = self ifTrue: [ ^ self ].
self children add: aNode. self children add: aNode.
aNode level: (self level) + 1. aNode level: (self level) + 1.
aNode parent: self. aNode parent: self.
^aNode ^aNode
] ]
{ #category : #'add/remove nodes' } { #category : #'add/remove nodes' }
@ -846,7 +845,7 @@ GrafoscopioNode >> parent [
{ #category : #accessing } { #category : #accessing }
GrafoscopioNode >> parent: aNode [ GrafoscopioNode >> parent: aNode [
"A parent is a node that has the current node in its children" "A parent is a node that has the current node in its children"
parent := aNode aNode addNode: self.
] ]
{ #category : #'add/remove nodes' } { #category : #'add/remove nodes' }
@ -948,6 +947,20 @@ GrafoscopioNode >> specModelClass [
^ GrafoscopioTextModel ^ GrafoscopioTextModel
] ]
{ #category : #'as yet unclassified' }
GrafoscopioNode >> surfaceCopy [
"I copy the most relevant values of the receiver. I'm useful to avoid copying references
to the rest of the container tree, which could end in copying the whole tree."
| newNode |
newNode := self class new.
^ newNode
header: self header;
body: self body;
tags: self tags.
]
{ #category : #accessing } { #category : #accessing }
GrafoscopioNode >> tagAs: aTag [ GrafoscopioNode >> tagAs: aTag [
"Tags the recipient node with aTag (string). For the moment we will have only one tag. "Tags the recipient node with aTag (string). For the moment we will have only one tag.
@ -975,6 +988,11 @@ GrafoscopioNode >> tags [
^ tags ^ tags
] ]
{ #category : #accessing }
GrafoscopioNode >> tags: aCollection [
tags := aCollection
]
{ #category : #accessing } { #category : #accessing }
GrafoscopioNode >> title [ GrafoscopioNode >> title [
"Returns the receiver header" "Returns the receiver header"