| … | |
… | |
| 13 | $self = $self->SUPER::new(@_); |
13 | $self = $self->SUPER::new(@_); |
| 14 | |
14 | |
| 15 | $self->listen($self->{conn}); |
15 | $self->listen($self->{conn}); |
| 16 | |
16 | |
| 17 | $self->{window} = new Gtk2::Window 'toplevel'; |
17 | $self->{window} = new Gtk2::Window 'toplevel'; |
| 18 | my $title = $self->{channel} ? $self->owner->{name}." ".$self->opponent_string : "Game Window"; |
18 | my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window"; |
| 19 | $self->{window}->set_title("KGS Game $title"); |
19 | $self->{window}->set_title("KGS Game $title"); |
| 20 | gtk::state $self->{window}, "game::window", undef, window_size => [600, 500]; |
20 | gtk::state $self->{window}, "game::window", undef, window_size => [600, 500]; |
| 21 | |
21 | |
| 22 | $self->{window}->signal_connect(delete_event => sub { |
22 | $self->{window}->signal_connect(delete_event => sub { |
| 23 | if ($self->{joined}) { |
23 | if ($self->{joined}) { |
| … | |
… | |
| 38 | # grrr... |
38 | # grrr... |
| 39 | { |
39 | { |
| 40 | $frame->add(my $vbox = new Gtk2::VBox); |
40 | $frame->add(my $vbox = new Gtk2::VBox); |
| 41 | $vbox->add($self->{title} = new Gtk2::Label $title); |
41 | $vbox->add($self->{title} = new Gtk2::Label $title); |
| 42 | |
42 | |
| 43 | $self->{moveadj} = new Gtk2::Adjustment 0, 0, 1, 0.01, 0.1, 0; |
43 | $self->{moveadj} = new Gtk2::Adjustment 1, 0, 1, 0.01, 0.1, 0; |
| 44 | |
44 | |
| 45 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
45 | $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); |
| 46 | $scale->set_draw_value (0); |
46 | $scale->set_draw_value (0); |
| 47 | |
47 | |
| 48 | $self->{moveadj}->signal_connect (value_changed => sub { |
48 | $self->{moveadj}->signal_connect (value_changed => sub { |
| … | |
… | |
| 287 | if ($self->{background}) { |
287 | if ($self->{background}) { |
| 288 | if ($oldboard = $self->{board_shown}) { |
288 | if ($oldboard = $self->{board_shown}) { |
| 289 | $pixbuf = $self->{pixbuf}; |
289 | $pixbuf = $self->{pixbuf}; |
| 290 | } else { |
290 | } else { |
| 291 | $pixbuf = $self->{background}->copy; |
291 | $pixbuf = $self->{background}->copy; |
| 292 | $expose_area = [0, 0, $s, $s]; |
292 | $expose_area = new Gtk2::Gdk::Rectangle 0, 0, $s, $s; |
| 293 | } |
293 | } |
| 294 | } else { |
294 | } else { |
| 295 | $expose_area = [0, 0, $s, $s]; |
295 | $expose_area = new Gtk2::Gdk::Rectangle 0, 0, $s, $s; |
| 296 | |
296 | |
| 297 | my ($bw, $bh) = ($::board_img->get_width, $::board_img->get_height); |
297 | my ($bw, $bh) = ($::board_img->get_width, $::board_img->get_height); |
| 298 | |
298 | |
| 299 | if ($s < $bw && $s < $bh) { |
299 | if ($s < $bw && $s < $bh) { |
| 300 | $pixbuf = new_pixbuf $s, $s, 0; |
300 | $pixbuf = new_pixbuf $s, $s, 0; |
