Re: Change Mouse Cursor

[Mario Kemper <mario kemper googlemail com>]

The problem is that you connect the button_press_event to two different
callbacks. I've changed your code in order make things work as you have
described.


sub connect_signals
{
    # Respond to mouse button presses
    $scrwin->signal_connect(button_press_event => \&button_press_event);
    $scrwin->signal_connect(button_release_event => \&change_cursor,
'left_ptr');

}

sub button_press_event
{
  my ($widget, $event) = @_;

  if ($event->button == 1)
  {
    print join ' ', $event->coords,"\n";
  }

  &change_cursor($widget, $event, 'hand1');

  return TRUE;
}

sub change_cursor
{

    my ($widget, $event, $ctype) = @_;
    my $cursor = Gtk2::Gdk::Cursor->new ($ctype);

    if ($event->button == 1)
    {
        $widget->window->set_cursor($cursor);
    }

    return TRUE;
}



Regards
Mario


Am Freitag, den 05.11.2010, 19:54 +1100 schrieb Zettai Muri: 
> Hi All,
>
> Was wondering if I could get some help.  I am currently trying to
> change the mouse cursor to a hand on a 'button_press_event'.  I was
> hoping to change it to a hand for future grabbing and dragging of a
> canvas but can't even get the cursor to change so the dragging
> question will have to wait.
>
> Please find attached the simple glade file I am using that contains a
> scrolled window and a viewport into which I'm putting a canvas which
> at this stage is unused.
>
> Below is the code I am using:
> #!/usr/bin/perl
> package main;
>
> use strict;
>
> use Glib qw/TRUE FALSE/;
> use Goo::Canvas;
> use Gtk2 -init;
>
> # Read in glade file with gui
> our $builder = Gtk2::Builder->new;
> $builder->add_from_file("GooTest.glade");
>
> # Get main window from widget tree.
> my $main_window = $builder->get_object('window1') || die "Can't find window.\n";
> my $scrwin = $builder->get_object('scrolledwindow1') || die "Can't
> find scrolled window.\n";
> my $canvas = Goo::Canvas->new();
> $scrwin->add_with_viewport($canvas);
> $canvas->show;
>
> &connect_signals;
>
> # Quit when user clicks on the close button/alt-f4 etc.
> $main_window->signal_connect (destroy => sub { Gtk2->main_quit; });
>
> # Maximise window
> #$main_window->maximize;
>
> # Run main loop.
> Gtk2->main;
>
>
> sub connect_signals
> {
>     # Respond to mouse button presses
>     $scrwin->signal_connect(button_press_event => \&button_press_event);
>     $scrwin->signal_connect(button_press_event => \&change_cursor);
>
> }
>
> sub button_press_event
> {
>   my ($widget, $event) = @_;
>
>   if ($event->button == 1)
>   {
>     print join ' ', $event->coords,"\n";
>   }
>
>   return TRUE;
> }
>
> sub change_cursor
> {
>
>     my ($widget, $event) = @_;
>     my $cursor = Gtk2::Gdk::Cursor->new ('hand1');
>
>     if ($event->button == 1)
>     {
>         $widget->window->set_cursor($cursor);
>     }
>
>     return TRUE;
> }
>
> Thanks for any suggestions.
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list gnome org
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Attachment: cursor.pl
Description: Perl program