#!/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("&OK")
);
 
UI->OpenDialog($c);
UI->UserInput();
UI->CloseDialog();

my $ycpvalue = UI->QueryWidget(id("Username"),Symbol("Value"));
print $ycpvalue->value();
