experimental "disalbe click-to-run" preference

HISTORY.md

@@ -56,6 +56,7 @@
 ### 2021-11-11
 * German translation update, changed %hsva -> %clrdim
 * Brazilian Portuguese translation update, thank you, Cassiano D'Andrea!!
+* threads, gui: experimental "disalbe click-to-run" preference
 
 ### 2021-11-10
 * objects, store: new "penColorModel" setting, can e 'hsv' or 'hsl'

snap.html

@@ -17,10 +17,10 @@
         <script src="src/symbols.js?version=2021-03-03"></script>
         <script src="src/widgets.js?version=2021-17-09"></script>
         <script src="src/blocks.js?version=2021-11-09"></script>
-        <script src="src/threads.js?version=2021-11-10"></script>
+        <script src="src/threads.js?version=2021-11-11"></script>
         <script src="src/objects.js?version=2021-11-10"></script>
         <script src="src/scenes.js?version=2021-10-12"></script>
-        <script src="src/gui.js?version=2021-11-10"></script>
+        <script src="src/gui.js?version=2021-11-11"></script>
         <script src="src/paint.js?version=2021-07-05"></script>
         <script src="src/lists.js?version=2021-07-19"></script>
         <script src="src/byob.js?version=2021-11-09"></script>

src/gui.js

@@ -80,13 +80,13 @@ BlockLabelPlaceHolderMorph, SpeechBubbleMorph, XML_Element, WatcherMorph, WHITE,
 BlockRemovalDialogMorph,TableMorph, isSnapObject, isRetinaEnabled, SliderMorph,
 disableRetinaSupport, enableRetinaSupport, isRetinaSupported, MediaRecorder,
 Animation, BoxMorph, BlockDialogMorph, RingMorph, Project, ZERO, BLACK,
-BlockVisibilityDialogMorph*/
+BlockVisibilityDialogMorph, ThreadManager*/
 
 /*jshint esversion: 6*/
 
 // Global stuff ////////////////////////////////////////////////////////
 
-modules.gui = '2021-November-10';
+modules.gui = '2021-November-11';
 
 // Declarations
 
@@ -4248,6 +4248,15 @@ IDE_Morph.prototype.settingsMenu = function () {
         'check to enable\ndropping commands in all rings',
         true
     );
+    addPreference(
+        'Disable click-to-run',
+        () => ThreadManager.prototype.disableClickToRun =
+            !ThreadManager.prototype.disableClickToRun,
+        ThreadManager.prototype.disableClickToRun,
+        'uncheck to enable\ndirectly running blocks\nby clicking on them',
+        'check to disable\ndirectly running blocks\nby clicking on them',
+        true
+    );
     menu.popup(world, pos);
 };
 

src/threads.js

@@ -64,7 +64,7 @@ SnapExtensions, AlignmentMorph, TextMorph, Cloud, HatBlockMorph*/
 
 /*jshint esversion: 6*/
 
-modules.threads = '2021-November-10';
+modules.threads = '2021-November-11';
 
 var ThreadManager;
 var Process;
@@ -194,8 +194,12 @@ function ThreadManager() {
 }
 
 ThreadManager.prototype.pauseCustomHatBlocks = false;
+ThreadManager.prototype.disableClickToRun = false;
 
 ThreadManager.prototype.toggleProcess = function (block, receiver) {
+    if (this.disableClickToRun) {
+        return;
+    }
     var active = this.findProcess(block, receiver);
     if (active) {
         active.stop();