[Gd-chatter] r11425 - branches/opendylan-melange/gtk-duim

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat Jul  7 06:20:45 2007
New Revision: 11425

Modified:
   branches/opendylan-melange/gtk-duim/gtk-events.dylan
   branches/opendylan-melange/gtk-duim/gtk-menus.dylan
Log:
Job: fd

doesn't work either...


Modified: branches/opendylan-melange/gtk-duim/gtk-events.dylan
==============================================================================
--- branches/opendylan-melange/gtk-duim/gtk-events.dylan	(original)
+++ branches/opendylan-melange/gtk-duim/gtk-events.dylan	Sat Jul  7 06:20:45 2007
@@ -23,8 +23,9 @@
  => (timed-out? :: <boolean>)
   //--- We should do something with the timeout
   ignore(timeout);
+  sleep(3);
   with-gdk-lock
-    gtk-main-iteration();
+    gtk-main();
   end;
   #f;
 end method process-next-event;

Modified: branches/opendylan-melange/gtk-duim/gtk-menus.dylan
==============================================================================
--- branches/opendylan-melange/gtk-duim/gtk-menus.dylan	(original)
+++ branches/opendylan-melange/gtk-duim/gtk-menus.dylan	Sat Jul  7 06:20:45 2007
@@ -420,11 +420,6 @@
 define sealed class <gtk-popup-menu> (<gtk-menu>)
 end;
 
-define method sheet-handles-repaint?
-    (sheet :: <gtk-popup-menu>) => (true? :: <boolean>)
-  #t
-end method sheet-handles-repaint?;
-
 define sealed method class-for-make-pane 
     (framem :: <gtk-frame-manager>, class == <menu>, #key owner)
  => (class :: <class>, options :: false-or(<sequence>))