view release on metacpan or  search on metacpan

examples/gtk2-ex-clock.pl  view on Meta::CPAN

$toplevel->signal_connect (motion_notify_event => \&motion_notify);
$toplevel->signal_connect (button_release_event => \&button_release);

my ($drag_last_x_root, $drag_last_y_root);
sub button_press {
  my ($toplevel, $event) = @_;
  if ($event->button == 1) {
    $drag_last_x_root = $event->x_root;
    $drag_last_y_root = $event->y_root;
  } elsif ($event->button == 3) {
    $menu->popup (undef, undef, undef, undef,
                  $event->button, $event->time);
  }
}
sub motion_notify {
  my ($toplevel, $event) = @_;
  drag ($event->x_root, $event->y_root);
}
sub button_release {
  my ($toplevel, $event) = @_;
  if ($event->button == 1) {

examples/standalone.pl  view on Meta::CPAN

$toplevel->add_events (['button-press-mask',
                        'button-release-mask',
                        'button-motion-mask',
                        'key-press-mask']);
$toplevel->signal_connect
  (button_press_event => sub {
     my ($toplevel, $event) = @_;
     if ($event->button == 1) {
       drag_start ($event);
     } elsif ($event->button == 3) {
       $menu->popup (undef, undef, undef, undef,
                     $event->button, $event->time);
     }
   });
$toplevel->signal_connect
  (button_release_event => sub {
     my ($toplevel, $event) = @_;
     if ($event->button == 1) {
       drag_end ($event);
     }
   });

examples/standalone.pl  view on Meta::CPAN

  (motion_notify_event => sub {
     my ($toplevel, $event) = @_;
     drag_move ($event);
   });

$toplevel->signal_connect
  (key_press_event => sub {
     my ($toplevel, $event) = @_;
     my $key = Gtk2::Gdk->keyval_name($event->keyval);
     if ($key eq 'F10') {
       $menu->popup (undef, undef,
                     \&menu_position_over_toplevel, undef,
                     0, $event->time);
     }
   });
sub menu_position_over_toplevel {
  return $toplevel->window->get_origin;
}


#------------------------------------------------------------------------------