/[mcclim]/mcclim/input.lisp
ViewVC logotype

Diff of /mcclim/input.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by cfruhwirth, Fri Jan 13 16:51:03 2006 UTC revision 1.35 by cfruhwirth, Mon Jan 16 13:16:38 2006 UTC
# Line 559  to computed distance to scroll in respon Line 559  to computed distance to scroll in respon
559           ((eq button +pointer-wheel-left+)  (scroll-sheet sheet  0 -1))           ((eq button +pointer-wheel-left+)  (scroll-sheet sheet  0 -1))
560           ((eq button +pointer-wheel-right+) (scroll-sheet sheet  0  1))           ((eq button +pointer-wheel-right+) (scroll-sheet sheet  0  1))
561           (t (call-next-method))))      ; not a scroll wheel button           (t (call-next-method))))      ; not a scroll wheel button
562      (call-next-method))))              ; no viewport      (call-next-method)))               ; no viewport

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5