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

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri Jul  6 22:06:11 2007
New Revision: 11422

Modified:
   branches/opendylan-melange/gtk-duim/gtk-menus.dylan
Log:
Job:fd
this might help, trying on linux

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	Fri Jul  6 22:06:11 2007
@@ -457,6 +457,7 @@
      mirror :: <popup-menu-mirror>) => ()
   next-method();
   with-gdk-lock
+    gtk-widget-set-size-request(mirror.mirror-widget, 100, 100);
     gtk-menu-popup(mirror.mirror-widget, null-pointer(<GtkWidget>), null-pointer(<GtkWidget>), null-pointer(<GtkMenuPositionFunc>),
                    null-pointer(<GPointer>), 3, 0);
   end
@@ -465,6 +466,7 @@
 define sealed method set-mirror-parent (menu :: <popup-menu-mirror>, widget :: <gtk-mirror>) => ()
   with-gdk-lock
     gtk-menu-attach-to-widget(menu.mirror-widget, menu.mirror-sheet.menu-owner.top-level-sheet.sheet-direct-mirror.mirror-widget, null-pointer(<GtkMenuDetachFunc>));
+    gtk-menu-set-screen(menu.mirror-widget, null-pointer(<GdkScreen>));
   end
 end;