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

Cleaning main dock bar menu to exclude from 'Help' and 'Update' not maintained documents. For the moment I will focus on good Grafoscopio notebook and Dataviz experience and leave PDF and HTML exporting and documentation for later.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-11-08 19:55:57 +00:00
parent 762d125983
commit 38f7380ff1
1 changed files with 5 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
repository/Grafoscopio/GrafoscopioGUI.class.st
View File

@ -401,35 +401,6 @@ GrafoscopioGUI class >> openFromRecentlyUsed [
] ]
{ #category : #'graphical interface' }
GrafoscopioGUI class >> openHelpInHtml [
"Launches the help manual in PDF format in an external viewer."
| htmlHelpFileLocation |
htmlHelpFileLocation := (FileSystem disk workingDirectory parent / 'Docs' /'Es' / 'Manual' / 'manual-grafoscopio.html') fullName.
Smalltalk platform name = 'unix'
ifTrue: [OSProcess command: 'xdg-open ', htmlHelpFileLocation].
Smalltalk platform name = 'Win32'
ifTrue: [OSProcess command: 'explorer ', htmlHelpFileLocation].
Smalltalk platform name = 'Mac OS'
ifTrue: [OSProcess command: 'open ', htmlHelpFileLocation].
]
{ #category : #'graphical interface' }
GrafoscopioGUI class >> openHelpInPdf [
"Launches the help manual in PDF format in an external viewer."
| pdfHelpFileLocation |
pdfHelpFileLocation := (FileSystem disk workingDirectory parent / 'Docs' /'Es' / 'Manual' / 'manual-grafoscopio.pdf') fullName.
Smalltalk platform name = 'unix'
ifTrue: [OSProcess command: 'xdg-open ', pdfHelpFileLocation].
Smalltalk platform name = 'Win32'
ifTrue: [OSProcess command: 'explorer ', pdfHelpFileLocation].
Smalltalk platform name = 'Mac OS'
ifTrue: [OSProcess command: 'open ', pdfHelpFileLocation].
]
{ #category : #accessing } { #category : #accessing }
GrafoscopioGUI class >> recentNotebooks [ GrafoscopioGUI class >> recentNotebooks [
^ recentNotebooks ifNil: [recentNotebooks := OrderedCollection new ] ^ recentNotebooks ifNil: [recentNotebooks := OrderedCollection new ]
@ -463,7 +434,7 @@ GrafoscopioGUI class >> startDockingBar [
add: 'Notebook from Internet...' target: (GrafoscopioNotebook new) selector: #openFromUrlUI; add: 'Notebook from Internet...' target: (GrafoscopioNotebook new) selector: #openFromUrlUI;
add: 'Recent notebooks...' target: self selector: #openFromRecentlyUsed; add: 'Recent notebooks...' target: self selector: #openFromRecentlyUsed;
add: 'Example notebooks...' target: self selector: #messageNotImplementedYet; add: 'Example notebooks...' target: self selector: #messageNotImplementedYet;
"add: 'Roassal visualizations gallery' target: (RTExampleBrowser new) selector: #open;" add: 'Roassal visualizations gallery' target: (RTExampleBrowser new) selector: #open;
add: 'Playground' target: (Smalltalk tools) selector: #openWorkspace; add: 'Playground' target: (Smalltalk tools) selector: #openWorkspace;
add: 'Transcript' target: (Smalltalk tools) selector: #openTranscript. add: 'Transcript' target: (Smalltalk tools) selector: #openTranscript.
@ -472,17 +443,15 @@ GrafoscopioGUI class >> startDockingBar [
add: 'Grafoscopio' target: self selector: #updateGrafoscopioUI; add: 'Grafoscopio' target: self selector: #updateGrafoscopioUI;
add: 'Documentation' target: self selector: #updateDocumentationUI; add: 'Documentation' target: self selector: #updateDocumentationUI;
add: 'DataViz package' target: self selector: #updateDatavizUI; add: 'DataViz package' target: self selector: #updateDatavizUI;
add: 'Database engine' target: ExternalApp selector: #installSQLite32BitsUI; "add: 'Database engine' target: ExternalApp selector: #installSQLite32BitsUI;
add: 'Pandoc path' target: ExternalApp selector: #configurePandoc; add: 'Pandoc path' target: ExternalApp selector: #configurePandoc;
add: 'Fossil path' target: ExternalApp selector: #configureFossil; add: 'Fossil path' target: ExternalApp selector: #configureFossil;"
add: 'All the system' target: self selector: #updateSystem. add: 'All the system' target: self selector: #updateSystem.
helpMenu := MenuMorph new. helpMenu := MenuMorph new.
helpMenu helpMenu
add: 'Tutorial in Grafoscopio' target: (GrafoscopioNotebook new) selector: #openTutorial; add: 'Tutorial' target: (GrafoscopioNotebook new) selector: #openTutorial;
add: 'PDF Manual' target: self selector: #openHelpInPdf; add: 'Manual' target: (self new) selector: #openManual;
add: 'HTML Manual' target: self selector: #openHelpInHtml;
add: 'Manual in grafoscopio' target: (self new) selector: #openHelp;
add: 'About Grafoscopio' target: self selector: #messageAbout. add: 'About Grafoscopio' target: self selector: #messageAbout.
dockingBar := DockingBarMorph new. dockingBar := DockingBarMorph new.