netbsd/gnu/dist/gettext/gettext-tools/examples/hello-ycp/hello.ycp

// Example for use of GNU gettext.
// Copyright (C) 2003 Free Software Foundation, Inc.
// This file is in the public domain.

// Source code of the YCP program.

UI(``{
    textdomain "hello-ycp";

    map bash_out = SCR::Execute (.target.bash_output, "echo $PPID");
    integer pid = tointeger (bash_out["stdout"]:"99999");

    OpenDialog (
        `VBox (
             `HBox (
                  `Label (_("Hello, world!")),
                  `HStretch ()
                  ),
             `HBox (
                  `Label (sformat (_("This program is running as process number %1."), pid)),
                  `HStretch ()
                  ),
             `HBox (
                  `HStretch (),
                  `PushButton (`opt(`default), "&OK")
                  )
             )
        );
    UserInput();
    CloseDialog();
})