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).

Browse Source
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.