ACC SHELL

Path : /proc/self/root/usr/share/doc/packages/yast2-perl-bindings/examples/
File Upload :
Current File : //proc/self/root/usr/share/doc/packages/yast2-perl-bindings/examples/helloui.pl

#! /usr/bin/perl -w
use YaST::YCP qw(:DATA :UI);
YaST::YCP::Import "UI";
YaST::YCP::init_ui ($ARGV[0] || "qt");

# http://forgeftp.novell.com/yast/doc/SL10.2/tdg/Book-UIReference.html

my $c = VBox(
    Label("Now we can call YaST UI from other languages!"),
    PushButton("&So What?")
    );

UI->OpenDialog($c);
UI->UserInput();
UI->CloseDialog();

ACC SHELL 2018