/*
 *   input tests - input, inputKey, inputEvent, inputDialog
 */

#include "t3.h"
#include "tads.h"

_say_embed(str) { tadsSay(str); }

class RuntimeError: object
    construct(errno, ...) { errno_ = errno; }
    display = "Runtime Error: <<errno_>>"
    errno_ = 0
;

_main(args)
{
    try
    {
        t3SetSay(_say_embed);
        main();
    }
    catch (RuntimeError rte)
    {
        "\n<<rte.display>>\n";
    }
}

function main()
{
    local x;
    
    "Input and input key tests.\n";

    "Enter a command: ";
    x = inputLine();
    "You entered: \"<<x>>\"\n";

    "Press a key...";
    x = inputKey();
    "You typed: \"<<x>>\"\n";

    "Enter an event...";
    x = inputEvent();
    "Event code = <<x[1]>>, additional data = \"<<
        x.length() > 1 ? x[2] : "">>\"\n";

    "Dialog...\n";
    x = inputDialog(InDlgIconNone, 'This is a sample dialog prompt!',
                    ['Hello', 'Goodbye', 'Anyway'], 1, 2);
    "Response = <<x>>\n";

    x = inputDialog(InDlgIconQuestion,
                    'A standard yes/no dialog!', InDlgYesNo, 1, 2);
    "Response = <<x>>\n";

    x = inputDialog(InDlgIconInfo,
                    'Another dialog!', [InDlgLblOk, InDlgLblNo],
                    nil, nil);
    "Response = <<x>>\n";

    "Done!!!\n";
}

