| … | |
… | |
| 230 | |
230 | |
| 231 | { |
231 | { |
| 232 | $frame->add(my $vbox = new Gtk2::VBox); |
232 | $frame->add(my $vbox = new Gtk2::VBox); |
| 233 | $vbox->add($self->{title} = new Gtk2::Label $title); |
233 | $vbox->add($self->{title} = new Gtk2::Label $title); |
| 234 | |
234 | |
| 235 | $self->{moveadj} = new Gtk2::Adjustment 1, 1, 1, 1, 1, 0; |
235 | $self->{moveadj} = new Gtk2::Adjustment 1, 1, 1, 1, 5, 0; |
| 236 | |
236 | |
| 237 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
237 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
| 238 | $scale->set_draw_value (0); |
238 | $scale->set_draw_value (0); |
| 239 | $scale->set_digits (0); |
239 | $scale->set_digits (0); |
| 240 | |
240 | |
