Migration: Solving empty tags default value.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-08-29 19:54:11 +00:00
parent ff5c021cd3
commit 44519496a0
2 changed files with 3 additions and 3 deletions

View File

@ -580,6 +580,7 @@ GrafoscopioNode >> isEmpty [
{ #category : #operation }
GrafoscopioNode >> isTaggedAs: aString [
self tags ifEmpty: [ self tagAs: 'text' ].
^ self tags includes: aString
]
@ -955,7 +956,7 @@ GrafoscopioNode >> tagAs: aTag [
{ #category : #accessing }
GrafoscopioNode >> tags [
"Returns the receiver tags. For the moment is just one... yes silly, but will be extended properly"
"I returns the receiver tags."
| migration |
tags isString
ifTrue: [

View File

@ -67,8 +67,7 @@ GrafoscopioNotebook >> addCommandFrom: dictionary into: stream [
{ #category : #'editing nodes' }
GrafoscopioNotebook >> addNode [
| addedNode |
addedNode := tree highlightedItem content addNodeAfterMe.
self currentNodeContent addNodeAfterMe.
self notebookContent: notebook.
]