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

Starting to explore top docking bar for a fixed menu.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-07 13:13:38 +00:00
parent 38f078dbd2
commit d35e04c931
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -360,8 +360,8 @@ GrafoscopioBrowser >> configureSettings [
Smalltalk platform name = 'unix'
ifTrue: [
fossil := (FileSystem disk workingDirectory parent / 'Platform' / 'Linux' / 'Programs' / 'Fossil' / 'fossil') fullName.
pandoc := (FileSystem disk workingDirectory parent / 'Platform' / 'Linux' / 'Programs' / 'Pandoc' / 'pandoc') fullName.
fossil := (FileSystem disk workingDirectory parent / 'Platform/Linux/Programs/Fossil/fossil') fullName.
pandoc := (FileSystem disk workingDirectory parent / 'Platform/Linux/Programs/Pandoc/pandoc') fullName.
].
Smalltalk platform name = 'Win32'
ifTrue: [
@ -465,11 +465,10 @@ GrafoscopioBrowser >> exportAsPdf [
Smalltalk platform name = 'unix'
ifTrue: [
OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' -o ' , pdfFileLocation.
OSProcess command: 'exec echo "exportando como html"'.
self inform: 'Archivo exportado como pdf en: ', pdfFileLocation.
self inform: pandoc].
OSProcess command: 'exec echo "exportando como pdf"'.
self inform: 'Archivo exportado como pdf en: ', pdfFileLocation.].
Smalltalk platform name = 'Win32'
ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' --standalone -o ' , pdfFileLocation ]]
ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' -o ' , pdfFileLocation ]]
ifFalse: [self configurePandoc ].
self customKeys.
@ -876,6 +875,23 @@ GrafoscopioBrowser >> showTagsAvailable [
]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> startDockingBar [
"Creates a custom docking bar for grafoscopio on top, with shorcuts for most used actions, and a fixed place for asking for help"
| dockingBar |
"World deleteDockingBars."
dockingBar := DockingBarMorph new.
World worldMenu items copy select:[:i| i hasSubMenu] thenDo:[:i|
dockingBar
add: i contents
icon: i icon
help: i contents
subMenu: i subMenu].
dockingBar adhereToTop;
openInWorld.
]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> treeOn: constructor [
"Shows the correspondent tree of a node"