[plt-scheme] Re: scroll-event produce wrong direction?

This was a bug specific to the X11 variant of PLT Scheme, now fixed in
SVN.

Matthew

At Wed, 26 Nov 2008 20:58:27 +0530, Veer wrote:
> Hello,
> So is this a bug or it is meant to be like this? If possible can
> anyone running linux confirm  by running the above code produces
> same output or not , so that i either upgrade to newer version or move on.
> 
> Thanks
> Veer.
> 
> My version is 4.1 , and i am on linux (ubuntu)
> 
> 
> 
> 
> On Tue, Nov 25, 2008 at 9:39 PM, Veer <diggerrrrr at gmail.com> wrote:
> > Sorry , i forgot to attach the output.
> >
> > Output:
> > Direction : vertical
> > Direction : vertical
> > Direction : vertical
> > Direction : vertical
> > Direction : vertical
> > Direction : vertical
> > Direction : vertical
> > Direction : vertical
> > Direction : horizontal
> >
> >
> > On Tue, Nov 25, 2008 at 9:35 PM, Veer <diggerrrrr at gmail.com> wrote:
> >> Hello ,
> >>
> >> The code below captures the on-scroll event and outputs the direction.
> >> So when i run the program and continuously drag the vertical scrollbar
> >> the output produces "vertical" which is correct , but once i stop dragging
> >> the bar the last output is "horizontal" . Since i have enabled only
> >> vertical scrollbar , any reason for this?
> >>
> >> Code :
> >>
> >> (define a-frame
> >>  (new frame%
> >>       [label "Scrollbars"]
> >>       [width 300]
> >>       [height 300]))
> >>
> >> (define scroll-canvas%
> >>  (class canvas%
> >>
> >>    (super-new)
> >>    (inherit get-dc)
> >>
> >>    (define (char-height)
> >>      (send (get-dc) get-char-height))
> >>
> >>    (define (page-unit)
> >>      (inexact->exact
> >>       (floor (/ (send this get-height) (char-height)))))
> >>
> >>    (define/override (on-size w h)
> >>      (send this set-scroll-page 'vertical (page-unit)))
> >>
> >>    (define/override (on-scroll event)
> >>      (printf "Direction : ~a\n" (send event get-direction)))
> >>
> >>    (send this init-manual-scrollbars #f 100 1 (page-unit) 0 0)
> >>
> >>    ))
> >>
> >> (define scroll (new scroll-canvas% [parent a-frame] [style '(vscroll)]))
> >> (send a-frame show #t)
> >>
> >> Thanks
> >> Veer
> >>
> >
> _________________________________________________
>   For list-related administrative tasks:
>   http://list.cs.brown.edu/mailman/listinfo/plt-scheme