Perl/Tk saves your favorite tools

Main
back: Tk interaction -1
next: Tk interaction -3

Mind the very dirty trick where the argument-list of the select function is partially unpacked in global variables. Those values of $x and $y are required later to have the selected object moved.
 
Tk interaction -1 Tk interaction -3

Created by Mark Overmeer with PPresenter on 22 May 2000.