From 3ef5e22ce16d187be57f6b03b2f5aa212f9b55c1 Mon Sep 17 00:00:00 2001
From: Eiichiro Ito <eiichiro.ito@gmail.com>
Date: Thu, 12 Nov 2020 18:57:13 +0900
Subject: [PATCH] fix show variable value bug. unhighlight close menu when the
 option specified.

---
 .../ScratchStackProcess.class/instance/stopAll.st              | 3 +++
 .../VariableBlockMorph.class/instance/args.st                  | 3 +++
 .../VariableBlockMorph.class/instance/numberArgFlags.st        | 3 +++
 .../VariableBlockMorph.class/instance/selector.st              | 3 +++
 .../Gratch.package/SpGratchFrame.class/class/defaultSpec.st    | 1 +
 .../Gratch.package/SpGratchFrame.class/instance/fileMenu.st    | 3 ++-
 6 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 filetree/FromScratch.package/ScratchStackProcess.class/instance/stopAll.st
 create mode 100644 filetree/FromScratch.package/VariableBlockMorph.class/instance/args.st
 create mode 100644 filetree/FromScratch.package/VariableBlockMorph.class/instance/numberArgFlags.st
 create mode 100644 filetree/FromScratch.package/VariableBlockMorph.class/instance/selector.st

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;