diff --git a/filetree/FromScratch.package/ScratchStackProcess.class/instance/stopAll.st b/filetree/FromScratch.package/ScratchStackProcess.class/instance/stopAll.st
new file mode 100644
index 0000000..ed12bc7
--- /dev/null
+++ b/filetree/FromScratch.package/ScratchStackProcess.class/instance/stopAll.st
@@ -0,0 +1,3 @@
+api
+stopAll
+	topBlock applicationDo: [ :app | app stopAllProcesses ]
\ No newline at end of file
diff --git a/filetree/FromScratch.package/VariableBlockMorph.class/instance/args.st b/filetree/FromScratch.package/VariableBlockMorph.class/instance/args.st
new file mode 100644
index 0000000..78f2203
--- /dev/null
+++ b/filetree/FromScratch.package/VariableBlockMorph.class/instance/args.st
@@ -0,0 +1,3 @@
+accessing
+args
+	^ { self variable }
\ No newline at end of file
diff --git a/filetree/FromScratch.package/VariableBlockMorph.class/instance/numberArgFlags.st b/filetree/FromScratch.package/VariableBlockMorph.class/instance/numberArgFlags.st
new file mode 100644
index 0000000..186d5f0
--- /dev/null
+++ b/filetree/FromScratch.package/VariableBlockMorph.class/instance/numberArgFlags.st
@@ -0,0 +1,3 @@
+accessing
+numberArgFlags
+	^ #(false)
\ No newline at end of file
diff --git a/filetree/FromScratch.package/VariableBlockMorph.class/instance/selector.st b/filetree/FromScratch.package/VariableBlockMorph.class/instance/selector.st
new file mode 100644
index 0000000..2a2fe18
--- /dev/null
+++ b/filetree/FromScratch.package/VariableBlockMorph.class/instance/selector.st
@@ -0,0 +1,3 @@
+accessing
+selector
+	^ #getVar:
\ No newline at end of file
diff --git a/filetree/Gratch.package/SpGratchFrame.class/class/defaultSpec.st b/filetree/Gratch.package/SpGratchFrame.class/class/defaultSpec.st
index 93e7ee5..9d0fb96 100644
--- a/filetree/Gratch.package/SpGratchFrame.class/class/defaultSpec.st
+++ b/filetree/Gratch.package/SpGratchFrame.class/class/defaultSpec.st
@@ -18,6 +18,7 @@ defaultSpec
 					withConstraints: [ :c | c width: self viewerPaneWidth ];
 				add:
 					(SpPanedLayout newHorizontal
+						position: 40 percent;
 						add: #editorPane;
 						add:
 							(SpBoxLayout newVertical
diff --git a/filetree/Gratch.package/SpGratchFrame.class/instance/fileMenu.st b/filetree/Gratch.package/SpGratchFrame.class/instance/fileMenu.st
index d170236..a27329a 100644
--- a/filetree/Gratch.package/SpGratchFrame.class/instance/fileMenu.st
+++ b/filetree/Gratch.package/SpGratchFrame.class/instance/fileMenu.st
@@ -36,7 +36,8 @@ fileMenu
 		addItem: [ :item | 
 			item
 				name: 'Close' localized;
-				action: [ application close ] ];
+				action: [ application close ];
+				enabled: [ application class dontClose not ] ];
 		addItem: [ :item | 
 			item
 				name: 'Quit' localized;