[gnue] r10014 - trunk/gnue-forms/src/GFObjects

[reinhard]

Author: reinhard
Date: 2009-10-28 05:38:57 -0500 (Wed, 28 Oct 2009)
New Revision: 10014

Modified:
   trunk/gnue-forms/src/GFObjects/GFBlock.py
Log:
Nicer mouse wheel handling: as long as the grid can be scrolled, scroll. When
the grid is scrolled to the top or bottom, move the database cursor instead.


Modified: trunk/gnue-forms/src/GFObjects/GFBlock.py
===================================================================
--- trunk/gnue-forms/src/GFObjects/GFBlock.py   2009-10-27 16:54:42 UTC (rev 
10013)
+++ trunk/gnue-forms/src/GFObjects/GFBlock.py   2009-10-28 10:38:57 UTC (rev 
10014)
@@ -462,13 +462,13 @@
         """
   
         if self.__visible_start == 0 and adjustment < 0:
-            # Already at top: move to first record.
-            self.first_record()
+            # Already at top: move database cursor instead of scrolling.
+            self.jump_records(adjustment)
 
         if self.__visible_start + self._rows == self.__record_count \
                 and adjustment > 0:
-            # Already at bottom: move to last record.
-            self.last_record()
+            # Already at bottom: move database cursor instead of scrolling.
+            self.jump_records(adjustment)
 
         self._event_scroll_to_record(self.__visible_start + adjustment)