From 62eac883d1bd545214abe37c774cac332bd1bbc7 Mon Sep 17 00:00:00 2001
From: Matthias Melcher <fltk@matthiasm.com>
Date: Sat, 19 Sep 2009 21:16:21 +0000
Subject: First few additions to create scroll wheel support for multiline
 Fl_Input.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@6888 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
---
 src/Fl_Input.cxx | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/Fl_Input.cxx')

diff --git a/src/Fl_Input.cxx b/src/Fl_Input.cxx
index 39dc8c5bd..5f96cf411 100644
--- a/src/Fl_Input.cxx
+++ b/src/Fl_Input.cxx
@@ -621,6 +621,18 @@ int Fl_Input::handle(int event) {
     take_focus();
     return 1;
 
+/* TODO: this will scroll the area, but stop if the cursor would become invisible.
+         That clipping happens in drawtext(). Do we change the clipping or should 
+         we move the cursor (ouch)?
+  case FL_MOUSEWHEEL:
+    if (Fl::e_dy > 0) {
+      yscroll( yscroll() - Fl::e_dy*15 );
+    } else if (Fl::e_dy < 0) {
+      yscroll( yscroll() - Fl::e_dy*15 );
+    }
+    return 1;
+*/
+
   }
   Fl_Boxtype b = box();
   return Fl_Input_::handletext(event,
-- 
cgit v1.2.3