From fb767602c08159daa2190129622ebf185606fd35 Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Fri, 17 Jan 2014 16:57:29 +0100
Subject: wx: Delay memory cleanup until safe

Previously we could do a cleanup while we where recursed down
and thus delete the objects we where invoking.
---
 lib/wx/test/wx_event_SUITE.erl | 51 +++++++++++++++++++++---------------------
 1 file changed, 25 insertions(+), 26 deletions(-)

(limited to 'lib/wx/test/wx_event_SUITE.erl')

diff --git a/lib/wx/test/wx_event_SUITE.erl b/lib/wx/test/wx_event_SUITE.erl
index 2711943e5d..b9c2fafe0e 100644
--- a/lib/wx/test/wx_event_SUITE.erl
+++ b/lib/wx/test/wx_event_SUITE.erl
@@ -409,32 +409,31 @@ dialog(Config) ->
     wxFrame:show(Frame),
     Env = wx:get_env(),
     Tester = self(),
-    spawn_link(
-      fun() ->
-	      wx:set_env(Env),
-	      PD = wxProgressDialog:new("Dialog","Testing",
-					[%%{parent, Frame},
-					 {maximum,10},
-					 {style, ?wxPD_SMOOTH bor ?wxPD_AUTO_HIDE}]),
-	      wxDialog:connect(PD, init_dialog
-			       , [{callback, fun(#wx{event=#wxInitDialog{}}, Ev) ->
-						     ?mt(wxInitDialogEvent, Ev),
-						     io:format("Heyhoo~n", []),
-						     wxEvent:skip(Ev),
-						     Tester ! {progress_dialog,PD}
-					     end}]
-			      ),
-	      wxProgressDialog:showModal(PD),
-	      wxDialog:destroy(PD)
-      end),
-    receive {progress_dialog,PD} ->
-	    wxDialog:endModal(PD, ?wxID_OK)
-    after 5000 ->
-	    exit(timeout)
-    end,
-
-    wx_test_lib:flush(),
-
+    PD = wxProgressDialog:new("Dialog","Testing",
+			      [%%{parent, Frame},
+			       {maximum,101},
+			       {style, ?wxPD_SMOOTH bor ?wxPD_AUTO_HIDE}]),
+    Forward = fun(#wx{event=#wxInitDialog{}}, Ev) ->
+		      ?mt(wxInitDialogEvent, Ev),
+		      io:format("Heyhoo~n", []),
+		      wxEvent:skip(Ev),
+		      Tester ! {progress_dialog,PD}
+	      end,
+    wxDialog:connect(PD, init_dialog, [{callback, Forward}]),
+    Recurse = fun(Recurse, N) ->
+		      true = wxProgressDialog:update(PD, min(N,100)),
+		      timer:sleep(5),
+		      Recurse(Recurse,N+1)
+	      end,
+    Run = fun() ->
+		  wx:set_env(Env),
+		  Recurse(Recurse, 0)
+	  end,
+    Worker = spawn_link(Run),
+    timer:sleep(500),
+    io:format("Got ~p~n", [wx_test_lib:flush()]),
+    unlink(Worker),
+    wxProgressDialog:destroy(PD),
     wx_test_lib:wx_destroy(Frame, Config).
 
 
-- 
cgit v1.2.3