#!/usr/bin/perl

use lib '/usr/lib/libDrakX';
use strict;

BEGIN { push @::textdomains, 'drakcluster' }

use standalone;
use common;
use ugtk2 qw(:wrappers :create :ask);
use mygtk2 qw(gtknew);
use interactive::gtk;
use drakcluster::server_conf_ui;
use interface_cluster;

my $banner = "/usr/share/pixmaps/cluster/IC48-mdkc.png";

my $window = ugtk2->new(N("Configuration"));
$::main_window = $window->{real_window};
$window->{rwindow}->set_size_request(630, 450);
my $W = $window->{window};
$W->signal_connect(delete_event => sub { ugtk2->exit });

$::in = interactive::gtk->new;
my $server_conf = drakcluster::server_conf::read();

$W->add(gtkpack_(Gtk2::VBox->new(0,0),
                 0, Gtk2::Banner->new($banner, N("Drakcluster Initial Configuration")),
                 1, drakcluster::server_conf_ui::create($server_conf),
                 ),
        );

$W->show_all;
Gtk2->main;
