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

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

I took it upon my self the test this, and it all works fine (for me!) so
I've committed a version of plplotter.c which removes all that tkInt
stuff..., plus the appropriate changes elsewhere.

cheers,

-- Vince

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


On Mon, 5 Aug 2002, Vince Darley wrote:

> 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>
>
>
>
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> Plplot-devel mailing list
> Plp...@li...
> https://lists.sourceforge.net/lists/listinfo/plplot-devel
>