variant setting

2005-06-23 18:53:14 +00:00
parent 4bf05f3509
commit b732ae3b0d
2 changed files with 6 additions and 6 deletions
--- a/2.10/Source/ScriptForm.pas
+++ b/2.10/Source/ScriptForm.pas
@ -1663,9 +1663,9 @@ begin
  begin
    i := GetInputArgAsInteger(0);
    if (i < 0) or (i >= NRVISVAR) then
-      i := NRVISVAR - 1;
+      i := NRVISVAR ;
    Variation := TVariation(i);
-    if i = -1 then
+    if i = NRVISVAR then
      MainForm.mnuVRandom.checked := True
    else
      MainForm.VarMenus[i].Checked := True;