-sub creat_ip_input {
- my ($init, $default, $text) = @_;
-
- my (@ips) = split /\./, $init;
- my (@defs) = split /\./, $default;
-
- my $hbox = Gtk3::HBox->new (0, 0);
-
- my $label = Gtk3::Label->new ($text);
- $label->set_size_request (150, -1);
- $label->set_alignment (1, 0.5);
- $hbox->pack_start ($label, 0, 0, 10);
-
- my $e1 = Gtk3::Entry->new();
- $e1->set_max_length(3);
- $e1->{default} = $defs[0];
- $hbox->pack_start ($e1, 0, 0, 0);
- $e1->set_width_chars (3);
- $e1->set_text ($ips[0]);
- $e1->signal_connect (key_press_event => \&check_num);
- $e1->signal_connect (focus_out_event => \&check_range);
-
- my $l1 = Gtk3::Label->new (".");
- $hbox->pack_start ($l1, 0, 0, 2);
-
- my $e2 = Gtk3::Entry->new();
- $e2->set_max_length(3);
- $e2->{default} = $defs[1];
- $hbox->pack_start ($e2, 0, 0, 0);
- $e2->set_width_chars (3);
- $e2->set_text ($ips[1]);
- $e2->signal_connect (key_press_event => \&check_num);
- $e2->signal_connect (focus_out_event => \&check_range);
-
- my $l2 = Gtk3::Label->new (".");
- $hbox->pack_start ($l2, 0, 0, 2);
-
- my $e3 = Gtk3::Entry->new();
- $e3->set_max_length(3);
- $e3->{default} = $defs[2];
- $hbox->pack_start ($e3, 0, 0, 0);
- $e3->set_width_chars (3);
- $e3->set_text ($ips[2]);
- $e3->signal_connect (key_press_event => \&check_num);
- $e3->signal_connect (focus_out_event => \&check_range);
-
- my $l3 = Gtk3::Label->new (".");
- $hbox->pack_start ($l3, 0, 0, 2);
-
- my $e4 = Gtk3::Entry->new();
- $e4->set_max_length(3);
- $e4->{default} = $defs[3];
- $hbox->pack_start ($e4, 0, 0, 0);
- $e4->set_width_chars (3);
- $e4->set_text ($ips[3]);
- $e4->signal_connect (key_press_event => \&check_num);
- $e4->signal_connect (focus_out_event => \&check_range);
-
- return ($hbox, $e1, $e2, $e3, $e4);
-}
-