diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 29bdc1a..989fd79 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -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"