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

Cerrando <http://mutabit.com/repos.fossil/grafoscopio/tktview?name=8b63fe16c6>

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-08-27 14:00:45 +00:00
parent bab4ab7fb9
commit ff5c021cd3
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,6 +113,19 @@ GrafoscopioNotebook >> copyNodeToClipboard [
self notebookContent: notebook.
]
{ #category : #operation }
GrafoscopioNotebook >> currentNode [
| currentNode |
currentNode := tree highlightedItem.
currentNode ifNil: [ ^ self ].
^ currentNode
]
{ #category : #operation }
GrafoscopioNotebook >> currentNodeContent [
^ self currentNode content
]
{ #category : #'editing nodes' }
GrafoscopioNotebook >> cutNodeToClipboard [
self copyNodeToClipboard; removeNode.
@ -263,22 +276,14 @@ GrafoscopioNotebook >> header: anObject [
{ #category : #operation }
GrafoscopioNotebook >> htmlToMarkdown [
| currentNode nodeContent |
currentNode := tree highlightedItem.
currentNode ifNil: [ ^ self ].
nodeContent := currentNode content.
nodeContent htmlToMarkdown.
self updateBodyFor: currentNode
self currentNodeContent htmlToMarkdown.
self updateBodyFor: self currentNode
]
{ #category : #operation }
GrafoscopioNotebook >> htmlToMarkdownSubtree [
| currentNode nodeContent |
currentNode := tree highlightedItem.
currentNode ifNil: [ ^ self ].
nodeContent := currentNode content.
nodeContent htmlToMarkdownSubtree.
self updateBodyFor: currentNode
self currentNodeContent htmlToMarkdownSubtree.
self updateBodyFor: self currentNode
]
{ #category : #operation }