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

Migration: Solving empty tags default value.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -580,6 +580,7 @@ GrafoscopioNode >> isEmpty [
{ #category : #operation } { #category : #operation }
GrafoscopioNode >> isTaggedAs: aString [ GrafoscopioNode >> isTaggedAs: aString [
self tags ifEmpty: [ self tagAs: 'text' ].
^ self tags includes: aString ^ self tags includes: aString
] ]
@ -955,7 +956,7 @@ GrafoscopioNode >> tagAs: aTag [
{ #category : #accessing } { #category : #accessing }
GrafoscopioNode >> tags [ 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 | | migration |
tags isString tags isString
ifTrue: [ ifTrue: [

3
repository/Grafoscopio/GrafoscopioNotebook.class.st
View File

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