Fixing autoupdate of code nodes. See:

http://mutabit.com/repos.fossil/grafoscopio/info/479f6127811bbb1b .
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-11-28 14:20:50 +00:00
parent 880006df73
commit 43cb1e69ac
3 changed files with 5 additions and 8 deletions

View File

@ -54,9 +54,6 @@ GrafoscopioDockingBar class >> defaultHelpMenu [
| defaultHelpMenu |
defaultHelpMenu := MenuMorph new.
defaultHelpMenu
add: 'Tutorial (Spanish)'
target: [ GrafoscopioNotebook open: GrafoscopioDocs tutorial ]
selector: #value;
add: 'Manual'
target: [ GrafoscopioNotebook open: GrafoscopioDocs manual ]
selector: #value;

View File

@ -54,15 +54,14 @@ GrafoscopioDocs >> initialize [
When more documents become more mature and usable, I will include them."
super initialize.
name := 'grafoscopio'.
repository := (FossilRepo new remote: 'http://mutabit.com/repos.fossil/grafoscopio').
localPlace := FileLocator workingDirectory asFileReference /'Grafoscopio'.
self
addDocument: 'Docs/Es/Tutoriales/tutorial.ston';
addDocument: 'Docs/En/Books/Manual/manual.ston';
addDocument: 'Docs/En/Books/Manual/manual.pdf';
addDocument: 'Docs/En/Books/DataActivism/techniques-for-datactivism.ston';
addDocument: 'Docs/En/dev-notes.ston';
addDocument: 'Docs/En/Books/Manual/manual.pdf';
addDocument: 'Docs/En/SpecIUFramework/spec-ui-framework.ston'.
addDocument: 'Docs/En/Books/SpecIUFramework/spec-ui-framework.ston'.
]

View File

@ -81,7 +81,7 @@ GrafoscopioNotebook >> autoSaveBodyOf: aNode [
playground := body body glmPres.
playground
onChangeOfPort: #text
act: [ :x | aNode body: x entity value content ]";
act: [ :x | aNode body: (x pane port: #text) value ]";
onChangeOfPort: #activePresentation
act: [ aNode output: aNode processOutput ]"
]
@ -379,7 +379,8 @@ GrafoscopioNotebook >> links: anObject [
{ #category : #persistence }
GrafoscopioNotebook >> loadFromFile: aFileReference [
"I load the contents of aFileReference into a GrafoscopioNotebook, without opening it."
"I load the contents of aFileReference into a GrafoscopioNotebook, without opening it."
(aFileReference basename endsWith: 'ston') ifFalse: [ ^ self ].
self workingFile: aFileReference.
self notebook: ((STON fromString: self workingFile contents) at: 1) parent.
self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'.