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

Spec-Glamour new GUI: Open notebook from file implemented.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-05-06 16:51:51 +00:00
parent cc6760199f
commit 1596121745
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -64,10 +64,12 @@ GrafoscopioBrowser class >> docDataTutorial [
{ #category : #updating }
GrafoscopioBrowser class >> docDownloadFor: aDocumentType [
"I download the interactive documentation in STON format, according to the document time which can be: 'tutorial' or 'manual'.
If a the documentation is already present in the system I made a temporal backup and download a new copy"
"I download the interactive documentation in STON format, according to the document
type which can be: 'tutorial' or 'manual'.
If a the documentation is already present in the system I made a temporal backup and
download a new copy"
| docInfo client rootFolder localDoc temporalBackup remoteDoc |
| docInfo rootFolder localDoc temporalBackup remoteDoc |
(aDocumentType = 'tutorial') ifTrue: [ docInfo := self docDataTutorial ].
(aDocumentType = 'manual') ifTrue: [ docInfo := self docDataManual ].

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

@ -73,7 +73,7 @@ GrafoscopioNotebook >> initializePresenter [
header whenTextChanged: [ :arg |
(tree selectedItem) content header: header text.
tree updateTree]
"tree updateTree"]
]
{ #category : #initialization }
@ -85,7 +85,7 @@ GrafoscopioNotebook >> initializeWidgets [
header := self newText.
body disable.
body text: 'Seleciona un nodo a la izquierda'.
body text: '<-- Seleciona un nodo a la izquierda'.
tree childrenBlock: [:node | node children];
displayBlock: [:node | node title ].
@ -98,6 +98,19 @@ GrafoscopioNotebook >> notebookContent: aTree [
]
{ #category : #persistence }
GrafoscopioNotebook >> openFromFile: aFileName [
"I open a notebook from a file named aFileName containing a grafoscopio tree"
| root nb |
root := ((STON fromString: aFileName contents) at: 1) parent.
nb := self class new.
nb title: aFileName basenameWithIndicator.
nb notebookContent: root.
^ nb openWithSpec.
]
{ #category : #accessing }
GrafoscopioNotebook >> tree [
^ tree