gu

-module(examples@entry).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([main/0]).

-spec main() -> {ok, binary()} | {error, {integer(), binary()}}.
main() ->
    Answer = begin
        _pipe = [<<"zenity"/utf8>>],
        _pipe@1 = gu:new_entry(
            _pipe,
            {some, <<"Enter text"/utf8>>},
            {some, <<"text..."/utf8>>},
            false
        ),
        _pipe@2 = gu:set_title(_pipe@1, <<"Entry"/utf8>>),
        gu:show(_pipe@2, false)
    end,
    Answer@1 = case Answer of
        {ok, Val} ->
            gu:parse(Val);

        {error, _} ->
            <<"No answer"/utf8>>
    end,
    _pipe@3 = [<<"zenity"/utf8>>],
    _pipe@4 = gu:new_info(_pipe@3),
    _pipe@5 = gu:set_text(_pipe@4, Answer@1),
    _pipe@6 = gu:set_timeout(_pipe@5, 10),
    gu:show(_pipe@6, true).