From 24f32911b2d76bae3da0f2f705556ae605713632 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 26 Jun 2016 21:01:36 +0000
Subject: [PATCH] Minor changes from a new image (last one become
 irresponsive).

---
 repository/Grafoscopio/GrafoscopioGUI.class.st      | 5 ++---
 repository/Grafoscopio/GrafoscopioNotebook.class.st | 9 ---------
 2 files changed, 2 insertions(+), 12 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioGUI.class.st b/repository/Grafoscopio/GrafoscopioGUI.class.st
index 894bd43..2835802 100644
--- a/repository/Grafoscopio/GrafoscopioGUI.class.st
+++ b/repository/Grafoscopio/GrafoscopioGUI.class.st
@@ -258,9 +258,9 @@ GrafoscopioGUI class >> startDockingBar [
 	
 	launchMenu := MenuMorph new.
 	launchMenu 
-		add: 'New notebook' target: GrafoscopioNotebook selector: #new;
+		add: 'New notebook' target: (GrafoscopioNotebook new)  selector: #open;
 		add: 'Notebook from file...' target: (GrafoscopioNotebook new) selector: #openFromFileSelector;
-		add: 'Notebook from Internet...' target: (GrafoscopioNotebook new) selector: #openFromUrlUI;
+		add: 'Notebook from Internet...' target: (self new) selector: #openFromUrlUI;
 	 	add: 'Recent notebooks...' target: self selector: #openFromRecentlyUsed;
 		add: 'Example notebooks...' target: self selector: #messageNotImplementedYet;
 		add: 'Roassal visualizations gallery' target: (RTExampleBrowser new) selector: #open;
@@ -272,7 +272,6 @@ GrafoscopioGUI class >> startDockingBar [
 		add: 'Grafoscopio' target: self selector: #updateGrafoscopioUI;
 		add: 'Documentation' target: self selector: #updateDocumentationUI;
 		add: 'DataViz package' target: self selector: #updateDatavizUI;
-		add: 'Graphical Interface' target: self selector: #updateUI;
 		add: 'Database engine' target: ExternalApp selector: #installSQLite32BitsUI;
 		add: 'Pandoc path' target: ExternalApp selector: #configurePandoc;
 		add: 'Fossil path' target: ExternalApp selector: #configureFossil;
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 700e573..fe29f94 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -46,15 +46,6 @@ GrafoscopioNotebook class >> defaultSpec [
 							bc add: #body ]]]
 ]
 
-{ #category : #'instance creation' }
-GrafoscopioNotebook class >> new [
-	| testTree nb |
-	testTree := GrafoscopioNode new becomeDefaultTestTree.
-	nb := self new.
-	nb notebookContent: testTree.
-	nb openWithSpec 
-]
-
 { #category : #accessing }
 GrafoscopioNotebook >> body [
 	^ body