From bc505b84f0f2053b4f2dda57c81666e5899fa928 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 13 Apr 2020 20:12:50 +0000
Subject: [PATCH] LazStats: Fix crash of MedianPolishUnit when plot appears.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7377 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../forms/analysis/multivariate/medianpolishunit.pas       | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/applications/lazstats/source/forms/analysis/multivariate/medianpolishunit.pas b/applications/lazstats/source/forms/analysis/multivariate/medianpolishunit.pas
index 99c93a9e2..9c3eadfeb 100644
--- a/applications/lazstats/source/forms/analysis/multivariate/medianpolishunit.pas
+++ b/applications/lazstats/source/forms/analysis/multivariate/medianpolishunit.pas
@@ -2,6 +2,9 @@
 //     Tried to reproduce https://www.youtube.com/watch?v=RtC9ZMOYgk8
 //     --> does not work...
 
+// wp: a file with reasonable output is LesMaySmoothin.laz with x -> dep,
+//     row --> Factor 1, col --> Factor2.
+
 unit MedianPolishUnit;
 
 {$mode objfpc}{$H+}
@@ -732,8 +735,8 @@ end;
 procedure TMedianPolishForm.FormCreate(Sender: TObject);
 begin
   Assert(OS3MainFrm <> nil);
-  if OutputFrm = nil then
-    Application.CreateForm(TOutputFrm, OutputFrm);
+  if GraphFrm = nil then
+    Application.CreateForm(TGraphFrm, GraphFrm);
 end;
 
 function TMedianPolishForm.Median(const X: DblDyneVec; ASize: integer): double;