r7041 - bigboard/trunk/bigboard

[commits mugshot org]

Author: hp
Date: 2007-12-12 12:58:01 -0600 (Wed, 12 Dec 2007)
New Revision: 7041

Modified:
   bigboard/trunk/bigboard/scroll_ribbon.py
Log:
support scroll wheel on people stock

Modified: bigboard/trunk/bigboard/scroll_ribbon.py
===================================================================
--- bigboard/trunk/bigboard/scroll_ribbon.py	2007-12-12 18:57:29 UTC (rev 7040)
+++ bigboard/trunk/bigboard/scroll_ribbon.py	2007-12-12 18:58:01 UTC (rev 7041)
@@ -218,6 +218,10 @@
 class VerticalScrollArea(hippo.CanvasBox):
     """A box with scroll arrows on top and bottom."""
 
+    __gsignals__ = {
+        'scroll-event' : 'override',
+       }
+
     def __init__(self, **kwargs):
         hippo.CanvasBox.__init__(self, **kwargs)
 
@@ -234,6 +238,12 @@
     def set_increment(self, inc):
         self.increment = inc
 
+    def do_scroll_event(self, event):
+        if event.direction == hippo.SCROLL_UP:
+            self.__layout.scroll_by(self.increment)
+        else:
+            self.__layout.scroll_by(0-self.increment)
+
     def do_paint_children(self, cr, damaged_box):
         for box_child in self.get_layout_children():
             if not box_child.visible: