… | |
… | |
52 | if (!$self->{moves}) { |
52 | if (!$self->{moves}) { |
53 | util::format_time $_[0] - $low; |
53 | util::format_time $_[0] - $low; |
54 | } else { |
54 | } else { |
55 | my $time = int (($_[0] - 1) % $interval + 1); |
55 | my $time = int (($_[0] - 1) % $interval + 1); |
56 | |
56 | |
57 | sprintf "%s/%d [%d]", |
57 | sprintf "%s/%d =%d", |
58 | util::format_time $time, |
58 | util::format_time $time, |
59 | $self->{moves}, |
59 | $self->{moves}, |
60 | $time / ($self->{moves} || 1); |
60 | $time / ($self->{moves} || 1); |
61 | |
61 | |
62 | } |
62 | } |
… | |
… | |
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 | |
… | |
… | |
244 | $self->{boardbox}->pack_start((my $aspect_frame = new Gtk2::AspectFrame "", 0.5, 0.5, 1, 0), 1, 1, 0); |
244 | $self->{boardbox}->pack_start((my $aspect_frame = new Gtk2::AspectFrame "", 0.5, 0.5, 1, 0), 1, 1, 0); |
245 | $aspect_frame->set (border_width => 0, shadow_type => 'none', label_xalign => 0.5); |
245 | $aspect_frame->set (border_width => 0, shadow_type => 'none', label_xalign => 0.5); |
246 | $self->{board_label} = $aspect_frame->get_label_widget; |
246 | $self->{board_label} = $aspect_frame->get_label_widget; |
247 | |
247 | |
248 | $aspect_frame->add($self->{canvas} = new Gtk2::DrawingArea); |
248 | $aspect_frame->add($self->{canvas} = new Gtk2::DrawingArea); |
249 | $self->{canvas}->double_buffered (0);# if $::config->{conserve_memory}; |
249 | $self->{canvas}->double_buffered (0); |
250 | |
250 | |
251 | $self->{canvas}->signal_connect(configure_event => \&configure_event, $self); |
251 | $self->{canvas}->signal_connect(configure_event => \&configure_event, $self); |
252 | $self->{canvas}->signal_connect(expose_event => \&expose_event, $self); |
252 | $self->{canvas}->signal_connect(expose_event => \&expose_event, $self); |
253 | |
253 | |
254 | # RIGHT PANE |
254 | # RIGHT PANE |