Re: tkwin headers (was Re: [Plplot-devel] I can't install HEAD version)

[Vince D. <vi...@sa...>]

Try adding this to the end of pldefaults.tcl:

proc plw_moveCursor {w x y xd yd} {
    incr x $xd
    incr y $yd
    event generate $w <Motion> -warp 1 -x $x -y $y
}

foreach combo {
    {}
    Shift Option Control
    {Shift Option} {Shift Control} {Option Control}
    {Shift Option Control}
} {
    set multiply 1
    for {set i 0} {$i < [llength $combo]} {incr i} {
	set multiply [expr {$multiply * 5}]
    }
    if {[llength $combo]} {
	set prefix "[join $combo -]-"
    } else {
	set prefix ""
    }
    foreach dir {Left Right Up Down} x {-1 1 0 0} y {0 0 -1 1} {
	bind Plframe <${prefix}$dir> "plw_moveCursor %W %x %y\
	  [expr {$x * $multiply}] [expr {$y * $multiply}]"
    }
}

and see if that gets the effect you want.  If so, you can happily remove
the entire key-event processing stuff from plplotter.c (which I've just
discovered doesn't seem to work on win/mac anyway, so this solution is
better!)

cheers,

-- Vince

<http://www.santafe.edu/~vince>