
use lib qw(. .. /usr/bin/perl-install);
use interactive_gtk;
use interactive_newt;
use common qw(:file :functional :common :system);
use c;
use install_gtk;
use modules;
use mouse;
use pkgs;
use services;

c::setMouseLive("obiwan:0", 6, 0);

__END__

my $w = interactive_gtk->new;

($o->{langs}) = $w->ask_many_from_list('',
			       _("You can choose other languages that will be available after install"),			       
			       {
				list => [ lang::list() ],
				label => sub { lang::lang2text($_) },
				values => $o->{langs},
				sort => 1,				
			       },
				       { list => [ 'dd' ], value => sub { 1 } , shadow => 0 },
			       ) or die;


__END__

#$::isStandalone = 1;

my $w = interactive_gtk->new;

my $monitor;
my @hsyncranges = qw(2 3 123 15 );
my @vsyncranges = qw(AZE z3 123 15 );
my %l = ( E => 1, F => 3 );

my $u;
$u->{icon} = '';
$monitor->{hsyncrange} = "3";

$ENV{SHARE_PATH} = "/usr/share";

$s_swap = 0;

$w->ask_from_entries_ref('', " If in doubt, choose a conservative setting.",
			 [ _("Horizontal refresh rate"), _("Icon"), _("Swap partition size in MB: "), "dqs", _("Vertical refresh rate") ],
			 [ { val => \$monitor->{hsyncrange}, list => \@hsyncranges },
			   { val => \$s_swap, min => 1,  max => 3, type => 'range' },
			   { val => \$u->{icon}, list => [ qw(ftin ftout reload) ] },
			   \$u->{ddicon},
			   { val => \$monitor->{vsyncrange}, list => \@vsyncranges }, ]);
