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

Fixing autoupdate of code nodes. See:

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

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

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

5
repository/Grafoscopio/GrafoscopioDocs.class.st
View File

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

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

@ -81,7 +81,7 @@ GrafoscopioNotebook >> autoSaveBodyOf: aNode [
playground := body body glmPres. playground := body body glmPres.
playground playground
onChangeOfPort: #text onChangeOfPort: #text
act: [ :x | aNode body: x entity value content ]"; act: [ :x | aNode body: (x pane port: #text) value ]";
onChangeOfPort: #activePresentation onChangeOfPort: #activePresentation
act: [ aNode output: aNode processOutput ]" act: [ aNode output: aNode processOutput ]"
] ]
@ -379,7 +379,8 @@ GrafoscopioNotebook >> links: anObject [
{ #category : #persistence } { #category : #persistence }
GrafoscopioNotebook >> loadFromFile: aFileReference [ 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 workingFile: aFileReference.
self notebook: ((STON fromString: self workingFile contents) at: 1) parent. self notebook: ((STON fromString: self workingFile contents) at: 1) parent.
self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'. self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'.