Craig Everett
4cecb23001
- Improve layout of TX request GRIDS screen - Add clipboard copy option to mnemonic dialog - Silence a few old tell/2 calls - Refresh main sizer layout on gmc_gui:show/1 - Resize a few silly looking single-input dialogs
47 lines
1.3 KiB
Erlang
47 lines
1.3 KiB
Erlang
%%% @doc
|
|
%%% Clutch Top-level Supervisor
|
|
%%%
|
|
%%% The very top level supervisor in the system. It only has one service branch: the
|
|
%%% "con" (program controller). The con is the
|
|
%%% only be one part of a larger system. Were this a game system, for example, the
|
|
%%% item data management service would be a peer, as would a login credential provision
|
|
%%% service, game world event handling, and so on.
|
|
%%%
|
|
%%% See: http://erlang.org/doc/design_principles/applications.html
|
|
%%% See: http://zxq9.com/archives/1311
|
|
%%% @end
|
|
|
|
-module(gmc_sup).
|
|
-vsn("0.1.1").
|
|
-behaviour(supervisor).
|
|
-author("Craig Everett <craigeverett@qpq.swiss>").
|
|
-copyright("QPQ AG <info@qpq.swiss>").
|
|
-license("GPL-3.0-or-later").
|
|
|
|
-export([start_link/0]).
|
|
-export([init/1]).
|
|
|
|
|
|
-spec start_link() -> {ok, pid()}.
|
|
%% @private
|
|
%% This supervisor's own start function.
|
|
|
|
start_link() ->
|
|
supervisor:start_link({local, ?MODULE}, ?MODULE, []).
|
|
|
|
|
|
-spec init([]) -> {ok, {supervisor:sup_flags(), [supervisor:child_spec()]}}.
|
|
%% @private
|
|
%% The OTP init/1 function.
|
|
|
|
init([]) ->
|
|
RestartStrategy = {one_for_one, 0, 60},
|
|
Clients = {gmc_con,
|
|
{gmc_con, start_link, []},
|
|
permanent,
|
|
5000,
|
|
worker,
|
|
[gmc_con]},
|
|
Children = [Clients],
|
|
{ok, {RestartStrategy, Children}}.
|