xref: /netbsd-src/external/gpl2/gettext/dist/gettext-tools/examples/hello-ycp/hello.ycp (revision 946379e7b37692fc43f68eb0d1c10daa0a7f3b6c) 
1// Example for use of GNU gettext.
2// Copyright (C) 2003 Free Software Foundation, Inc.
3// This file is in the public domain.
4
5// Source code of the YCP program.
6
7UI(``{
8    textdomain "hello-ycp";
9
10    map bash_out = SCR::Execute (.target.bash_output, "echo $PPID");
11    integer pid = tointeger (bash_out["stdout"]:"99999");
12
13    OpenDialog (
14        `VBox (
15             `HBox (
16                  `Label (_("Hello, world!")),
17                  `HStretch ()
18                  ),
19             `HBox (
20                  `Label (sformat (_("This program is running as process number %1."), pid)),
21                  `HStretch ()
22                  ),
23             `HBox (
24                  `HStretch (),
25                  `PushButton (`opt(`default), "&OK")
26                  )
27             )
28        );
29    UserInput();
30    CloseDialog();
31})
32