When the sample is executed, btnRun is disabled.

IronyProject · Mar 11, 2018 · ca08c39 · ca08c39
1 parent 887bba7
commit ca08c39
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 16 deletions.
diff --git a/Irony.GrammarExplorer/fmGrammarExplorer.Designer.cs b/Irony.GrammarExplorer/fmGrammarExplorer.Designer.cs
diff --git a/Irony.GrammarExplorer/fmGrammarExplorer.cs b/Irony.GrammarExplorer/fmGrammarExplorer.cs
@@ -53,6 +53,8 @@ private void fmExploreGrammar_Load(object sender, EventArgs e) {
         chkDisableHili.Checked = Settings.Default.DisableHili;
         chkAutoRefresh.Checked = Settings.Default.AutoRefresh;
         cboGrammars.SelectedIndex = Settings.Default.LanguageIndex; //this will build parser and start colorizer
+        if (Application.RenderWithVisualStyles)
+          splitRight.BackColor = SystemColors.ControlLightLight;
       } catch { }
       _loaded = true;
     }
@@ -361,6 +363,9 @@ private void RunSample() {
           ParseSample();
         if (_parseTree.ParserMessages.Count > 0) return;
 
+        //show output console
+        tabBottom.SelectedTab = pageOutput;
+        btnRun.Enabled = false;
         GC.Collect(); //to avoid disruption of perf times with occasional collections
         oldGcCount = GC.CollectionCount(0);
         System.Threading.Thread.Sleep(100);
@@ -374,11 +379,11 @@ private void RunSample() {
         var gcCount = GC.CollectionCount(0) - oldGcCount;
         lblGCCount.Text = gcCount.ToString();
         WriteOutput(output);
-        tabBottom.SelectedTab = pageOutput;
       } catch (ScriptException ex) {
         ShowRuntimeError(ex);
       } finally {
         sw.Stop();
+        btnRun.Enabled = true;
       }//finally
     }//method
 

diff --git a/Languages/Refal/Runtime/RefalLibrary.cs b/Languages/Refal/Runtime/RefalLibrary.cs
@@ -10,6 +10,7 @@
 using Irony.Interpreter.Ast;
 using Irony.Interpreter;
 using System.Numerics;
+using System.Collections.Concurrent;
 
 namespace Refal.Runtime
 {
@@ -43,9 +44,9 @@ public class RefalLibrary
 		public RefalLibrary(ScriptThread thread)
 		{
 			ScriptThread = thread;
-			OpenFiles = new Dictionary<string, object>();
-			BuriedKeys = new Dictionary<string, PassiveExpression>();
-			BuriedValues = new Dictionary<string, PassiveExpression>();
+			OpenFiles = new ConcurrentDictionary<string, object>();
+			BuriedKeys = new ConcurrentDictionary<string, PassiveExpression>();
+			BuriedValues = new ConcurrentDictionary<string, PassiveExpression>();
 			CommandLineArguments = null;
 		}