diff --git a/repository/Grafoscopio/GrafoscopioGUI.class.st b/repository/Grafoscopio/GrafoscopioGUI.class.st
index 21f46c3..80e18f7 100644
--- a/repository/Grafoscopio/GrafoscopioGUI.class.st
+++ b/repository/Grafoscopio/GrafoscopioGUI.class.st
@@ -21,11 +21,22 @@ Class {
 	],
 	#classInstVars : [
 		'dockingBar',
-		'recentNotebooks'
+		'recentNotebooks',
+		'cacheNode'
 	],
 	#category : #'Grafoscopio-UI'
 }
 
+{ #category : #accessing }
+GrafoscopioGUI class >> cacheNode [
+	^ cacheNode
+]
+
+{ #category : #accessing }
+GrafoscopioGUI class >> cacheNode: anObject [
+	cacheNode := anObject
+]
+
 { #category : #specs }
 GrafoscopioGUI class >> defaultSpec [
 	<spec: #default>
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 6e4fdd1..593e139 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -203,14 +203,20 @@ GrafoscopioNotebook >> newWindowMainMenu [
 			group addItem: [ :item |
 				item 
 					name: nil;
-					description: 'Undo';
-					icon: Smalltalk ui icons smallUndoIcon;
+					description: 'Cut';
+					icon: Smalltalk ui icons smallCutIcon;
 					action: [ self inform: 'To be implemented...' ] ].
 			group addItem: [ :item |
 				item 
 					name: nil;
-					description: 'Redo';
-					icon: Smalltalk ui icons smallRedoIcon;
+					description: 'Copy';
+					icon: Smalltalk ui icons smallCopyIcon;
+					action: [ self inform: 'To be implemented...' ] ].
+			group addItem: [ :item |
+				item 
+					name: nil;
+					description: 'Paste';
+					icon: Smalltalk ui icons smallPasteIcon;
 					action: [ self inform: 'To be implemented...' ] ]];	
 		addGroup: [ :group |
 			group addItem: [ :item |