103:isa_ok ($event = Gtk2::Gdk::Event->new ('scroll'),
104:    'Gtk2::Gdk::Event::Scroll', 'Gtk2::Gdk::Event->new scroll');
106:$event->direction ('down');
107:is ($event->direction, 'down', '$scroll_event->direction');
109:$event->device ($device);