Fix missing callback attachment

vmagnin · Jul 31, 2012 · 207dccf · 207dccf
1 parent 585e643
commit 207dccf
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 7 deletions.
diff --git a/src/gtk-draw-hl-tmpl.f90 b/src/gtk-draw-hl-tmpl.f90
@@ -307,6 +307,9 @@ function hl_gtk_drawing_area_new(scroll, size, ssize, expose_event, &
 !!$GTK< 3.0!              & data_expose)
 !!$GTK>=3.0!         call g_signal_connect(plota, "draw"//c_null_char, expose_event, &
 !!$GTK>=3.0!              & data_expose)
+       else
+!!$GTK< 3.0!         call g_signal_connect(plota, "expose-event"//c_null_char, expose_event)
+!!$GTK>=3.0!         call g_signal_connect(plota, "draw"//c_null_char, expose_event) 
        endif
     else
 !!$GTK< 3.0!       call g_signal_connect(plota, "expose-event"//c_null_char, &
@@ -345,10 +348,11 @@ function hl_gtk_drawing_area_new(scroll, size, ssize, expose_event, &
     ! Scroll event
     if (present(scroll_event)) then
        if (present(data_scroll)) then
-          call g_signal_connect(plota, "scroll-event"//c_null_char, scroll_event, &
-               & data_scroll)
+          call g_signal_connect(plota, "scroll-event"//c_null_char, &
+               &scroll_event, data_scroll)
        else
-          call g_signal_connect(plota, "scroll-event"//c_null_char, scroll_event)
+          call g_signal_connect(plota, "scroll-event"//c_null_char, &
+               & scroll_event)
        endif
        if (auto_add == TRUE) mask = ior(mask, &
             & iand(GDK_SCROLL_MASK, insert_mask))

diff --git a/src/gtk-draw-hl.f90 b/src/gtk-draw-hl.f90
@@ -27,7 +27,7 @@
 
 ! --------------------------------------------------------
 ! gtk-draw-hl.f90
-! Generated: Mon Jul 30 21:32:03 2012 GMT
+! Generated: Tue Jul 31 14:13:05 2012 GMT
 ! Please do not edit this file directly,
 ! Edit gtk-draw-hl-tmpl.f90, and use ./mk_gtk_hl.pl to regenerate.
 ! Generated for GTK+ version: 2.24.0.
@@ -306,6 +306,9 @@ function hl_gtk_drawing_area_new(scroll, size, ssize, expose_event, &
               & data_expose)
 !!$GTK>=3.0!         call g_signal_connect(plota, "draw"//c_null_char, expose_event, &
 !!$GTK>=3.0!              & data_expose)
+       else
+         call g_signal_connect(plota, "expose-event"//c_null_char, expose_event)
+!!$GTK>=3.0!         call g_signal_connect(plota, "draw"//c_null_char, expose_event) 
        endif
     else
        call g_signal_connect(plota, "expose-event"//c_null_char, &
@@ -344,10 +347,11 @@ function hl_gtk_drawing_area_new(scroll, size, ssize, expose_event, &
     ! Scroll event
     if (present(scroll_event)) then
        if (present(data_scroll)) then
-          call g_signal_connect(plota, "scroll-event"//c_null_char, scroll_event, &
-               & data_scroll)
+          call g_signal_connect(plota, "scroll-event"//c_null_char, &
+               &scroll_event, data_scroll)
        else
-          call g_signal_connect(plota, "scroll-event"//c_null_char, scroll_event)
+          call g_signal_connect(plota, "scroll-event"//c_null_char, &
+               & scroll_event)
        endif
        if (auto_add == TRUE) mask = ior(mask, &
             & iand(GDK_SCROLL_MASK, insert_mask))