summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xclock.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/clock.pl b/clock.pl
index 63f334cb..3911adba 100755
--- a/clock.pl
+++ b/clock.pl
@@ -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);