Perl/Tk has had its fair share of installation problems (see the CPAN Testers Matrix). Having said that, I'm running it successfully on Windows XP and Cygwin using Perl 5.12.0 on both; although, I probably needed to do a manual install in both cases. I'm using Strawberry Perl for MSWindows; I believe ActivePerl provides Tk as part of their default distribution. If you get past the make stage and make test fails, try jumping straight to make install - others on this site have said that works for them.

I aimed to keep newer Perl features out of the prototype code so, while I developed it using 5.12.0, I don't think there's anything that isn't available on 5.8.x versions.

Of course, rather than messing around with Tk, you may decide to just port the code to wxPerl. Most of the code is fairly standard Perl much of which I imagine you could retain as is; the GUI-specific parts are:

• A main (top-level) window for the application (with geometry described above):

  my $mw = MainWindow->new(-title => 'Mouse Gesture Test');
  $mw->geometry('1200x900+50+50');
  [download]

• A Text widget for testing (although any widget with scrolling capabilities should work) - adding scrollbars is a handy visual aid when developing:

  my $w_text = $mw->Scrolled('Text',
      -scrollbars => 'osoe',
      -wrap => 'none',
  )->pack(-fill => 'both', -expand => 1);
  [download]

• An event handler to call when mouse movement occurs:

  $w_text->bind('<Motion>', [\&mouse_gesture, Ev('x'), Ev('y')]);
  [download]

• An Exit button:

  $mw->Button(-text => q{Exit}, -command => sub { exit })->pack();
  [download]

• A means of scrolling the widget programmatically:

  $w->xviewScroll($xpos < $x ? 1 : -1, q{units});
  ...
  $w->yviewScroll($ypos < $y ? 1 : -1, q{units});
  [download]

• Enough content in the widget so there's something to actually scroll - here I'm adding 500 lines each with a little over 500 characters:

  $w->insert('end',
      "This is line $_. It's really long ... $long_string\n"
  );
  [download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.