Merge branch 'pascalabcnet:master' into test

spectatorBH · Aug 17, 2023 · 65e6a04 · 65e6a04
2 parents 29f18b2 + be2b7e8
commit 65e6a04
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 7 deletions.
diff --git a/VisualPlugins/TraningControlPlugin/LoginForm.cs b/VisualPlugins/TraningControlPlugin/LoginForm.cs
@@ -193,7 +193,7 @@ public void WriteLoginPassToAuthDat(string login, string pass)
             }
 
             // На мехмате проверяем lightPT
-            var isLightPT = Plugin.IsLightPTInWorkingDirectiry();
+            var isLightPT = Plugin.IsLightPTInWorkingDirectory();
             // Первый вариант - в родительский или текущий
             var authCreated = false;
 

diff --git a/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs b/VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
@@ -46,7 +46,7 @@ public VisualPascalABCPlugin_TeacherControlPlugin(IWorkbench Workbench)
             this.Workbench = Workbench;
             VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
 
-            if (IsLightPTInWorkingDirectiry())
+            if (IsLightPTInWorkingDirectory())
             {
                 IsMechmath = System.Environment.MachineName.ToLower().StartsWith("mil8a-");
                 User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc";
@@ -88,7 +88,7 @@ public string FullLightPTName()
             return "";
         }
 
-        public bool IsLightPTInWorkingDirectiry()
+        public bool IsLightPTInWorkingDirectory()
         {
             var WorkingDir = WorkingDirectory();
             var lightptname = Path.Combine(WorkingDir, "lightpt.dat");
@@ -209,7 +209,7 @@ public void GetGUI(List<IPluginGUIItem> MenuItems, List<IPluginGUIItem> ToolBarI
             // SSM 20/06/22 Решил включить плагин в инсталлят и показывать кнопки только если есть lightpt.dat в текущем 
             // или auth.dat в корне сетевого - убрал это 11.07.23 - только если при запуске lightpt.dat в текущем!!!
             {
-                if (IsLightPTInWorkingDirectiry()) // если lightpt.dat существует в текущем
+                if (IsLightPTInWorkingDirectory()) // если lightpt.dat существует в текущем
                     InitItems(MenuItems, ToolBarItems);
                 /*else
                 {
@@ -249,7 +249,7 @@ public void AfterAddInGUI()
 
                 // !!! НАДО ТУТ ИСКАТЬ lightpt.dat в текущем!!!
                 var AuthFileFullName = "";
-                if (IsLightPTInWorkingDirectiry()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
+                if (IsLightPTInWorkingDirectory()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
                     AuthFileFullName = FullAuthNameFromWorkingDirOrParent();
                 /*if (AuthFileFullName == "" && IsMechmath)
                 {

diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
@@ -8884,9 +8884,10 @@ procedure Shuffle<T>(l: List<T>);
   var n := l.Count;
   for var i := 0 to n - 1 do
   begin
+    var ind := Random(n);
     var v := l[i];
-    l[i] := l[Random(n)];
-    l[Random(n)] := v;
+    l[i] := l[ind];
+    l[ind] := v;
   end;
 end;