… | |
… | |
132 | for (@{$self->{dialog}}) { |
132 | for (@{$self->{dialog}}) { |
133 | push @{$self->{hash_keys}}, $_->[0] if defined $_->[0]; |
133 | push @{$self->{hash_keys}}, $_->[0] if defined $_->[0]; |
134 | } |
134 | } |
135 | |
135 | |
136 | $self->add (my $vb = Gtk2::VBox->new); |
136 | $self->add (my $vb = Gtk2::VBox->new); |
|
|
137 | $vb->pack_start (my $ilbl = Gtk2::Label->new ($self->{info}), 0, 1, 0) |
|
|
138 | if $self->{info}; |
137 | $vb->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0); |
139 | $vb->pack_start (my $sw = Gtk2::ScrolledWindow->new, 1, 1, 0); |
138 | $sw->set_policy ('automatic', 'automatic'); |
140 | $sw->set_policy ('automatic', 'automatic'); |
139 | $sw->add_with_viewport (my $v = Gtk2::VBox->new); |
141 | $sw->add_with_viewport (my $v = Gtk2::VBox->new); |
140 | $v->pack_start ($self->{table} = Gtk2::Table->new (2, $cfg_lines), 0, 0, 0); |
142 | $v->pack_start ($self->{table} = Gtk2::Table->new (2, $cfg_lines), 0, 0, 0); |
141 | if ($self->{text_entry}) { |
143 | if ($self->{text_entry}) { |