| … | |
… | |
| 223 | |
223 | |
| 224 | $hpane->pack1((my $vbox = new Gtk2::VBox), 1, 1); |
224 | $hpane->pack1((my $vbox = new Gtk2::VBox), 1, 1); |
| 225 | |
225 | |
| 226 | # board box (aspect/canvas) |
226 | # board box (aspect/canvas) |
| 227 | |
227 | |
| 228 | $self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0); |
228 | #$self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0); |
|
|
229 | |
|
|
230 | # RIGHT PANE |
|
|
231 | |
|
|
232 | $hpane->pack2 ((my $vbox = new Gtk2::VBox), 1, 1); |
|
|
233 | $hpane->set (position_set => 1); |
|
|
234 | |
|
|
235 | $vbox->pack_start ((my $frame = new Gtk2::Frame), 0, 1, 0); |
| 229 | |
236 | |
| 230 | { |
237 | { |
| 231 | $frame->add (my $vbox = new Gtk2::VBox); |
238 | $frame->add (my $vbox = new Gtk2::VBox); |
| 232 | $vbox->add ($self->{title} = new Gtk2::Label $title); |
239 | $vbox->add ($self->{title} = new Gtk2::Label $title); |
| 233 | |
240 | |
| … | |
… | |
| 243 | |
250 | |
| 244 | $self->{moveadj}->signal_connect (value_changed => sub { $self->update_board }); |
251 | $self->{moveadj}->signal_connect (value_changed => sub { $self->update_board }); |
| 245 | } |
252 | } |
| 246 | |
253 | |
| 247 | $self->{boardbox}->add ($self->{board} = new Gtk2::GoBoard size => $self->{size}); |
254 | $self->{boardbox}->add ($self->{board} = new Gtk2::GoBoard size => $self->{size}); |
| 248 | |
|
|
| 249 | # RIGHT PANE |
|
|
| 250 | |
|
|
| 251 | $hpane->pack2 (($self->{vpane} = new Gtk2::VPaned), 1, 1); |
|
|
| 252 | $hpane->set (position_set => 1); |
|
|
| 253 | gtk::state $self->{vpane}, "game::vpane", $self->{name}, position => 80; |
|
|
| 254 | |
|
|
| 255 | # $self->{vpane}->add (my $sw = new Gtk2::ScrolledWindow); |
|
|
| 256 | # $sw->set_policy ("automatic", "always"); |
|
|
| 257 | # $sw->add ($self->{userlist} = new userlist); |
|
|
| 258 | |
|
|
| 259 | $self->{vpane}->add (my $vbox = new Gtk2::VBox); |
|
|
| 260 | |
255 | |
| 261 | $vbox->pack_start ((my $hbox = new Gtk2::HBox 1), 0, 1, 0); |
256 | $vbox->pack_start ((my $hbox = new Gtk2::HBox 1), 0, 1, 0); |
| 262 | |
257 | |
| 263 | $hbox->add ($self->{userpanel}[$_] = new game::userpanel colour => $_) |
258 | $hbox->add ($self->{userpanel}[$_] = new game::userpanel colour => $_) |
| 264 | for COLOUR_WHITE, COLOUR_BLACK; |
259 | for COLOUR_WHITE, COLOUR_BLACK; |
