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

my $c = VBox(
TextEntry( id("Input"), "Type Some Text",""),
PushButton(opt("default"), "&OK")
);
 
UI->OpenDialog($c);
UI->UserInput();
my $text = UI->QueryWidget(id("Input"),Symbol("Value"));
UI->CloseDialog();

print "It is '$text'\n";