ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/game.pl
(Generate patch)

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.65 by pcg, Mon Jun 23 01:14:21 2003 UTC vs.
Revision 1.66 by pcg, Sat Jun 28 16:44:56 2003 UTC

227 # board box (aspect/canvas) 227 # board box (aspect/canvas)
228 228
229 $self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0); 229 $self->{boardbox}->pack_start((my $frame = new Gtk2::Frame), 0, 1, 0);
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
235 $vbox->add (my $hbox = new Gtk2::HBox);
236
237 $hbox->pack_start (($self->{board_label} = new Gtk2::Label), 0, 1, 0);
234 238
235 $self->{moveadj} = new Gtk2::Adjustment 1, 1, 1, 1, 5, 0; 239 $self->{moveadj} = new Gtk2::Adjustment 1, 1, 1, 1, 5, 0;
236 240
237 $vbox->add(my $scale = new Gtk2::HScale $self->{moveadj}); 241 $hbox->pack_start ((my $scale = new Gtk2::HScale $self->{moveadj}), 1, 1, 0);
238 $scale->set_draw_value (0); 242 $scale->set_draw_value (0);
239 $scale->set_digits (0); 243 $scale->set_digits (0);
240 244
241 $self->{moveadj}->signal_connect (value_changed => sub { $self->update_board }); 245 $self->{moveadj}->signal_connect (value_changed => sub { $self->update_board });
242 } 246 }
243 247
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);
246 $self->{board_label} = $aspect_frame->get_label_widget;
247
248 $aspect_frame->add($self->{board} = new Gtk2::GoBoard size => $self->{size}); 248 $self->{boardbox}->add ($self->{board} = new Gtk2::GoBoard size => $self->{size});
249 249
250 # RIGHT PANE 250 # RIGHT PANE
251 251
252 $self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 1, 1); 252 $self->{hpane}->pack2(($self->{vpane} = new Gtk2::VPaned), 1, 1);
253 $self->{hpane}->set(position_set => 1); 253 $self->{hpane}->set(position_set => 1);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines