Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Terminate the listener process when shutting down.

  • Loading branch information...
commit 21ff26f69a844caa2576f7431ade8b143cf5b4b7 1 parent 117f6cd
@flambard authored
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.
Something went wrong with that request. Please try again.