[Gd-chatter] r11560 - branches/opendylan-melange/gtk

[hannes at gwydiondylan.org]

Author: hannes
Date: Wed Dec 19 00:05:59 2007
New Revision: 11560

Modified:
   branches/opendylan-melange/gtk/gtk.dylan
Log:
Job: minor
fix deadlock when a gtk event or signal is received and the gdk lock
is already acquired


Modified: branches/opendylan-melange/gtk/gtk.dylan
==============================================================================
--- branches/opendylan-melange/gtk/gtk.dylan	(original)
+++ branches/opendylan-melange/gtk/gtk.dylan	Wed Dec 19 00:05:59 2007
@@ -170,9 +170,9 @@
 //    value*;
   end for;
   values := reverse!(values);
-  *holding-gdk-lock* := 1;
+  *holding-gdk-lock* := *holding-gdk-lock* + 1;
   let res = apply(import-c-dylan-object(c-type-cast(<C-dylan-object>, marshal-data)), values);
-  *holding-gdk-lock* := 0;
+  *holding-gdk-lock* := *holding-gdk-lock* - 1;
   if(return-value ~= null-pointer(<gvalue>))
     select(g-value-type(return-value))
       $G-TYPE-BOOLEAN => g-value-set-boolean(return-value,