Re^3: Tk Mandelbrot Fractal

I know. But that is not my question.

I'm specifically looking for what other information (besides x and y), are available (by default), from the object returned from $canvas->XEvent method in a mouse event callback. As in the OPs use:

    $e = $canvas -> XEvent;
    $canv_x = $e->x;
    $canv_y = $e->y;
[download]

This has to be documented somewhere?

Looking again at the Tk:bind docs at the section entitled "BINDING CALLBACKS AND SUBSTITUTIONS", it appears that you can choose froma wide variety and formats, what information gets passed to the callback by using the Ev() function(?) when forming the bind. But this appears to involve yet more callbacks and and dynamic evaluations, which slows things down horribly--as if it wasn't slow enough anyway.

I was hoping to find that the default information supplied to a canvas mouse event callback included not just the window relative x/y, but also the canvas relative x/y. Performing the convesion isn't hard, but it involves yet more calls and just slows everything down again.

I'm not sure why I (or anyone) bother persisting with using this stuff--it's just painful.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: Tk Mandelbrot Fractal Select or Download Code

Replies are listed 'Best First'.
Re^4: Tk Mandelbrot Fractal by zentara (Cardinal) on Dec 08, 2006 at 12:54 UTC
I've only see the mouse x, y event, and the keyboard event $e->K. #!/usr/bin/perl use warnings; use strict; use Tk; my $down = 0; my $mw = MainWindow->new; $mw->bind("<Key>", sub { &pressed } ); $mw->bind("<KeyRelease>", sub { &released } ); MainLoop; sub pressed{ my($widget) = @_; my $e = $widget->XEvent; # get reference to X11 event structure my $binding = 'Character = ' . $e->N . ', keysym = ' . $e->K . '.'; print "$binding\n"; print $e->K," pressed\n"; } sub released{ my($widget) = @_; my $e = $widget->XEvent; # get reference to X11 event structure my $binding = 'Character = ' . $e->N . ', keysym = ' . $e->K . '.'; print "$binding\n"; print $e->K," released\n"; } [download] *not sure why I (or anyone) bother persisting with using this stuff--it's just painful.* Well because it is seldom needed to delve into it with any depth.... it's just your mouse and keyboard events and it works almost everytime. So it's like your default keymap defs, I use them all the time, but it's a real pain to try to figure out the low level stuff it involves..... termcap, locale, unicode..... painful. Perl/Gtk2 gets even more painful in this regard, because everthing in it is an event, and there are chains-of-events to work thru to get something. By comparison, Tk is easy. I'm not really a human, but I play one on earth. Cogito ergo sum a bum	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Tk Mandelbrot Fractal
by zentara (Cardinal) on Dec 08, 2006 at 12:54 UTC

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $down = 0;
my $mw = MainWindow->new;
$mw->bind("<Key>",  sub { &pressed  } );
$mw->bind("<KeyRelease>",  sub { &released  } );
MainLoop;

sub pressed{
  my($widget) = @_;
  my $e = $widget->XEvent;    # get reference to X11 event structure
  my $binding = 'Character = ' . $e->N . ', keysym = ' . $e->K . '.';
  print "$binding\n";
  print $e->K," pressed\n";
}

sub released{
  my($widget) = @_;
  my $e = $widget->XEvent;    # get reference to X11 event structure
  my $binding = 'Character = ' . $e->N . ', keysym = ' . $e->K . '.';
  print "$binding\n";
  print $e->K," released\n";
}
[download]

not sure why I (or anyone) bother persisting with using this stuff--it's just painful.

Well because it is seldom needed to delve into it with any depth.... it's just your mouse and keyboard events and it works almost everytime. So it's like your default keymap defs, I use them all the time, but it's a real pain to try to figure out the low level stuff it involves..... termcap, locale, unicode..... painful.

Perl/Gtk2 gets even more painful in this regard, because everthing in it is an event, and there are chains-of-events to work thru to get something. By comparison, Tk is easy.

I'm not really a human, but I play one on earth. Cogito ergo sum a bum

[reply]
[d/l]