mingw/share/doc/gettext/examples/hello-ycp/hello.ycp

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