Permalink
Browse files

Terminate the listener process when shutting down.

  • Loading branch information...
1 parent 117f6cd commit 21ff26f69a844caa2576f7431ade8b143cf5b4b7 @flambard committed Jul 5, 2010
Showing with 2 additions and 0 deletions.
  1. +2 −0 erlang/gui.erl
View
2 erlang/gui.erl
@@ -169,9 +169,11 @@ loop(Listener) ->
ok;
{gs, exit_menuitem, click, _Data, _Args} ->
gs:stop(),
+ exit(Listener, quit),
exit(normal);
{gs, the_window, destroy, _Data, _Args} ->
gs:stop(),
+ exit(Listener, quit),
exit(normal);
{gs, _ID, _EventType, _Data, _Args} = Msg ->
io:format("Got unrecognized gs message: ~p\n", [Msg]);

0 comments on commit 21ff26f

Please sign in to comment.