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

Persistence on basic notebooks done! Text and code playgrounds are saved almost automatically (text needs explicit saving).

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-08-07 17:25:48 +00:00
parent f2319ec3e7
commit c9e410a36d
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,9 +76,15 @@ GrafoscopioNotebook >> changeBody: aNode [
body body class = TextModel
ifTrue: [body body whenTextChanged: [ :arg | aNode body: arg ]].
body body class = GlamourPresentationModel
ifTrue: [
"Transcript show:" "body body glmPres inspect" ].
"Transcript show: body body class; cr."
ifTrue: [ | playground |
playground := body body glmPres.
playground when: GLMContextChanged
do: [ :ann | ann property = #text
ifTrue: [ | playgroundText |
playgroundText := (playground pane ports at: 2) value.
aNode body: playgroundText]
]
].
header text: aNode header.
body needRebuild: true.
self buildWithSpecLayout: self class defaultSpec.
@ -451,9 +457,11 @@ GrafoscopioNotebook >> promoteNode [
{ #category : #operation }
GrafoscopioNotebook >> removeNode [
| currentNode |
currentNode := tree selectedItem content.
currentNode parent removeNode: currentNode.
| nodeToDelete |
nodeToDelete := tree selectedItem content.
nodeToDelete parent removeNode: nodeToDelete.
"tree selectedItem: tree selectedItem parentNode."
tree selectOnlyLastHighlighted.
tree needRebuild: true.
tree roots: tree roots.
self buildWithSpecLayout: self class defaultSpec.