fix show variable value bug.

unhighlight close menu when the option specified.
EiichiroIto · Nov 12, 2020 · 3ef5e22 · 3ef5e22
1 parent 4012343
commit 3ef5e22
Show file tree

Hide file tree

Showing 6 changed files with 15 additions and 1 deletion.
diff --git a/filetree/FromScratch.package/ScratchStackProcess.class/instance/stopAll.st b/filetree/FromScratch.package/ScratchStackProcess.class/instance/stopAll.st
@@ -0,0 +1,3 @@
+api
+stopAll
+	topBlock applicationDo: [ :app | app stopAllProcesses ]
diff --git a/filetree/FromScratch.package/VariableBlockMorph.class/instance/args.st b/filetree/FromScratch.package/VariableBlockMorph.class/instance/args.st
@@ -0,0 +1,3 @@
+accessing
+args
+	^ { self variable }
diff --git a/filetree/FromScratch.package/VariableBlockMorph.class/instance/numberArgFlags.st b/filetree/FromScratch.package/VariableBlockMorph.class/instance/numberArgFlags.st
@@ -0,0 +1,3 @@
+accessing
+numberArgFlags
+	^ #(false)
diff --git a/filetree/FromScratch.package/VariableBlockMorph.class/instance/selector.st b/filetree/FromScratch.package/VariableBlockMorph.class/instance/selector.st
@@ -0,0 +1,3 @@
+accessing
+selector
+	^ #getVar:
diff --git 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
@@ -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;