1// Example for use of GNU gettext. 2// This file is in the public domain. 3 4// Source code of the YCP program. 5 6UI(``{ 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}) 31