diff options
-rwxr-xr-x | clock.pl | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -64,7 +64,9 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new(0,0), 0, $button_time, ), 1, gtkpack_(Gtk2::VBox->new(0,0), - 1, $drawing_area, + 0, gtkpack_(Gtk2::HBox->new(0,0), + 0, $drawing_area + ), 0, gtkpack_(Gtk2::HBox->new(1,0), 0, Gtk2::HBox->new(1,0), 0, my $spinner_h = Gtk2::SpinButton->new($adj_h, 0, 0), @@ -100,7 +102,7 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new(0,0), ); my $pressed; -$drawing_area->size(300,300); +$drawing_area->set_size_request(300,300); $drawing_area->set_events([ 'button_press_mask', 'button_release_mask', "pointer_motion_mask" ]); $drawing_area->signal_connect(expose_event => \&expose_event); $drawing_area->signal_connect(realize => \&configure_event); |