From c9a27dee85f68a224077138ba0c8582710412cc8 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 26 Jun 2016 20:44:36 +0000
Subject: [PATCH] Notebooks: starting migration to new toolkit support, from
 docking bar.

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

diff --git a/repository/Grafoscopio/GrafoscopioGUI.class.st b/repository/Grafoscopio/GrafoscopioGUI.class.st
index 1ee9e37..894bd43 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: self selector: #open;
+		add: 'New notebook' target: GrafoscopioNotebook selector: #new;
 		add: 'Notebook from file...' target: (GrafoscopioNotebook new) selector: #openFromFileSelector;
-		add: 'Notebook from Internet...' target: (self new) selector: #openFromUrlUI;
+		add: 'Notebook from Internet...' target: (GrafoscopioNotebook 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,6 +272,7 @@ 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 fe29f94..700e573 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -46,6 +46,15 @@ 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