9 my $area = Gtk2::DrawingArea->new();
13 my $win = $area->window;
14 my $alloc = $area->allocation;
15 my $w = $alloc->width;
16 my $h = $alloc->height;
17 print "Area $w x $h, xx=$xx\n";
19 $cairo = Gtk2::Gdk::Cairo::Context->create($win);
20 $cairo->rectangle(0, 0, $w, $h);
21 $cairo->set_source_rgb(0, 0, 0);
24 $cairo->rectangle($xx, 10, 40, 40);
25 $cairo->set_source_rgb(0, 0, 1);
28 my $gc = Gtk2::Gdk::GC->new($win);
29 $gc->set_rgb_background(0x000000);
30 $gc->set_rgb_foreground(0x00ff00);
31 $win->draw_line($gc, $xx, 0, $w-1, $h-1);
37 $area->signal_connect("expose-event" => sub {
39 if (!defined $timer) {
40 $timer = Glib::Timeout->add(10, sub { draw(); return 1; });
44 my $window = Gtk2::Window->new ('toplevel');
45 $window->signal_connect ("delete-event" => sub { Gtk2->main_quit });
46 $window->set_title("Brum");
47 $window->set_wmclass("anim", "Anim");
48 $window->set_default_size(640, 480);