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

Updating versions and implementing improvements for the JOSS.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2019-04-07 18:32:17 +00:00
parent ebbaf37eb7
commit 54209aff9d
2 changed files with 83 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
repository/Grafoscopio/GfUIHelpers.class.st
View File

@ -49,6 +49,39 @@ GfUIHelpers class >> addToHelpMenu: aGrafoscopioNotebook [
self updateUI self updateUI
] ]
{ #category : #updating }
GfUIHelpers class >> installDataviz [
"I install the Dataviz package.
DataViz contains Data visualization helpers"
"self isDatavizInstalled ifTrue: [ ^ self ]."
Metacello new
smalltalkhubUser: 'Offray' project: 'Dataviz';
configuration: 'Dataviz';
load.
self inform: 'Dataviz package install finished.'
]
{ #category : #updating }
GfUIHelpers class >> installDatavizUI [
"I'm the User Interface for installing the Dataviz package for the first time."
| install |
install := (UIManager default
confirm:
'Dataviz is data visualization package, with several', String cr,
'Domain Specific Examples, like Panama Papers, Twitter Data Selfies.',
String cr, 'Do you want to install it?'
label: 'Install Dataviz package').
install ifFalse: [ ^ self ].
self installDataviz
]
{ #category : #updating }
GfUIHelpers class >> isDatavizInstalled [
^ (Metacello image
configuration: #('Dataviz');
list) isNotEmpty
]
{ #category : #'graphical interface' } { #category : #'graphical interface' }
GfUIHelpers class >> messageAbout [ GfUIHelpers class >> messageAbout [
"I show the author(s), license, sponsors and main contributors to the project "I show the author(s), license, sponsors and main contributors to the project
@ -156,11 +189,15 @@ GfUIHelpers class >> updateDataviz [
"I update the Dataviz package with new versions of itself take from the source code "I update the Dataviz package with new versions of itself take from the source code
repository. repository.
DataViz contains Data visualization helpers" DataViz contains Data visualization helpers"
Gofer it self isDatavizInstalled
smalltalkhubUser: 'Offray' project: 'Dataviz'; ifFalse: [ self installDatavizUI ]
configurationOf: 'Dataviz'; ifTrue: [
load. Gofer it
self inform: 'Dataviz package update finished.' smalltalkhubUser: 'Offray' project: 'Dataviz';
configurationOf: 'Dataviz';
load.
self inform: 'Dataviz package update finished.'].
] ]
{ #category : #updating } { #category : #updating }

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

@ -10,7 +10,7 @@ nb openWithSpec
" "
Class { Class {
#name : #GrafoscopioNotebook, #name : #GrafoscopioNotebook,
#superclass : #ComposableModel, #superclass : #ComposablePresenter,
#instVars : [ #instVars : [
'tree', 'tree',
'header', 'header',
@ -218,7 +218,7 @@ GrafoscopioNotebook >> exportAsHTML [
ifFalse: [ self inform: 'Exportation unsuccesful. Please review that you have ifFalse: [ self inform: 'Exportation unsuccesful. Please review that you have
installed Pandoc and have used the exportation options properly.' ]]]. installed Pandoc and have used the exportation options properly.' ]]].
Smalltalk platformName = 'Win32' Smalltalk platformName = 'Win32'
ifTrue: [WinProcess createProcess: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile]. ifTrue: ["WinProcess createProcess: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile"].
] ]
{ #category : #persistence } { #category : #persistence }
@ -403,8 +403,9 @@ GrafoscopioNotebook >> initializeWidgets [
body := self newText. body := self newText.
body disable. body disable.
body text: '<- Select a node'. body text: '<- Select a node'.
body autoAccept: true.
links := self newTextInput. links := self newTextInput.
tree := TreeModel new. tree := self newTree.
tree tree
childrenBlock: [:node | node children]; childrenBlock: [:node | node children];
displayBlock: [:node | node title ]. displayBlock: [:node | node title ].
@ -729,40 +730,44 @@ GrafoscopioNotebook >> pdfFile [
{ #category : #initialization } { #category : #initialization }
GrafoscopioNotebook >> projectSubMenu [ GrafoscopioNotebook >> projectSubMenu [
^ MenuModel new ^ MenuModel new
addGroup: [ :group | addGroup: [ :group |
group addItem: [ :item | group
item addItem: [ :item |
name: 'Activate remote repository...'; item
icon: Smalltalk ui icons smallPushpinIcon; name: 'Activate remote repository...';
action: [ self inform: 'To be implemented ...' ] ]. icon: Smalltalk ui icons smallPushpinIcon;
group addItem: [ :item | action: [ self inform: 'To be implemented ...' ] ].
item group
name: 'Activate local repository...'; addItem: [ :item |
icon: Smalltalk ui icons homeIcon; item
action: [ self inform: 'To be implemented ...' ] ]. name: 'Activate local repository...';
group addItem: [ :item | icon: Smalltalk ui icons homeIcon;
item action: [ self inform: 'To be implemented ...' ] ].
name: 'Add file...'; group
icon: Smalltalk ui icons newerPackagesAvailableIcon; addItem: [ :item |
action: [ self inform: 'To be implemented ...' ] ]. item
group addItem: [ :item | name: 'Add file...';
item icon: Smalltalk ui icons newerPackagesAvailableIcon;
name: 'Delete file...'; action: [ self inform: 'To be implemented ...' ] ].
icon: Smalltalk ui icons packageDeleteIcon; group
action: [ self inform: 'To be implemented ...' ] ]. addItem: [ :item |
group addItem: [ :item | item
item name: 'Delete file...';
name: 'Commit to repository'; icon: Smalltalk ui icons packageDeleteIcon;
icon: Smalltalk ui icons smallScreenshotIcon; action: [ self inform: 'To be implemented ...' ] ].
action: [ self inform: 'To be implemented ...' ] ]. group
group addItem: [ :item | addItem: [ :item |
item item
name: 'Credentials'; name: 'Commit to repository';
icon: Smalltalk ui icons userIcon; icon: Smalltalk ui icons smallScreenshotIcon;
action: [ self inform: 'To be implemented ...' ] ] ] action: [ self inform: 'To be implemented ...' ] ].
group
addItem: [ :item |
item
name: 'Credentials';
icon: (self iconNamed: #userIcon);
action: [ self inform: 'To be implemented ...' ] ] ]
] ]
{ #category : #'editing nodes' } { #category : #'editing nodes' }