Fix runtime shutdown problem with GajuDesk

src/gd_con.erl

@@ -3,7 +3,7 @@
 %%% @end
 
 -module(gd_con).
--vsn("0.6.0").
+-vsn("0.6.1").
 -author("Craig Everett <craigeverett@qpq.swiss>").
 -copyright("QPQ AG <info@qpq.swiss>").
 -license("GPL-3.0-or-later").
@@ -455,7 +455,6 @@ handle_cast({set_sole_node, TheOneTrueNode}, State) ->
     {noreply, NewState};
 handle_cast(stop, State) ->
     NewState = do_stop(State),
-    ok = zx:stop(),
     {noreply, NewState};
 handle_cast(Unexpected, State) ->
     ok = tell(warning, "Unexpected cast: ~tp~n", [Unexpected]),
@@ -1049,7 +1048,13 @@ do_password(Old, New, State = #s{pass = Pass}) ->
 
 do_stop(State = #s{prefs = Prefs}) ->
     ok = persist(Prefs),
-    do_close_wallet(State).
+    NewState = do_close_wallet(State),
+    ok =
+        case is_pid(whereis(gmc_con)) of
+            false -> zx:stop();
+            true  -> application:stop(gajudesk)
+        end,
+    NewState.
 
 
 do_new_wallet(Name, Path, Password, State = #s{wallets = Wallets, prefs = Prefs}) ->