gimp r26360 - in branches/soc-2008-tagging: . app/widgets

[aurisj svn gnome org]

Author: aurisj
Date: Sun Aug  3 23:01:07 2008
New Revision: 26360
URL: http://svn.gnome.org/viewvc/gimp?rev=26360&view=rev

Log:
2008-08-04  Aurimas JuÅka  <aurisj svn gnome org>

	* app/widgets/gimptagpopup.c (gimp_tag_popup_new),
	(gimp_tag_popup_border_event): support scrolling with mouse wheel.



Modified:
   branches/soc-2008-tagging/ChangeLog
   branches/soc-2008-tagging/app/widgets/gimptagpopup.c

Modified: branches/soc-2008-tagging/app/widgets/gimptagpopup.c
==============================================================================
--- branches/soc-2008-tagging/app/widgets/gimptagpopup.c	(original)
+++ branches/soc-2008-tagging/app/widgets/gimptagpopup.c	Sun Aug  3 23:01:07 2008
@@ -178,7 +178,8 @@
                          GDK_BUTTON_PRESS_MASK
                          | GDK_BUTTON_RELEASE_MASK
                          | GDK_POINTER_MOTION_MASK
-                         | GDK_KEY_RELEASE_MASK);
+                         | GDK_KEY_RELEASE_MASK
+                         | GDK_SCROLL_MASK);
   gtk_window_set_screen (GTK_WINDOW (popup),
                          gtk_widget_get_screen (GTK_WIDGET (combo_entry)));
 
@@ -541,6 +542,23 @@
     {
       gtk_widget_destroy (GTK_WIDGET (tag_popup));
     }
+  else if (event->type == GDK_SCROLL)
+    {
+      GdkEventScroll   *scroll_event = (GdkEventScroll *) event;
+
+      switch (scroll_event->direction)
+        {
+          case GDK_SCROLL_RIGHT:
+          case GDK_SCROLL_DOWN:
+              gimp_tag_popup_scroll_by (tag_popup, MENU_SCROLL_STEP2);
+              return TRUE;
+
+          case GDK_SCROLL_LEFT:
+          case GDK_SCROLL_UP:
+              gimp_tag_popup_scroll_by (tag_popup, - MENU_SCROLL_STEP2);
+              return TRUE;
+        }
+    }
 
   return FALSE;
 }