diff --git a/collects/mred/private/wx/gtk/const.rkt b/collects/mred/private/wx/gtk/const.rkt
index f7650353..4e1f12d5 100644
--- a/collects/mred/private/wx/gtk/const.rkt
+++ b/collects/mred/private/wx/gtk/const.rkt
@@ -3,6 +3,7 @@
 (provide (except-out (all-defined-out) <<))
 
 (define GTK_WINDOW_TOPLEVEL 0)
+(define GTK_WINDOW_POPUP 1)
 
 (define << arithmetic-shift)
 
diff --git a/collects/mred/private/wx/gtk/frame.rkt b/collects/mred/private/wx/gtk/frame.rkt
index 179d8ce5..8c43cf8e 100644
--- a/collects/mred/private/wx/gtk/frame.rkt
+++ b/collects/mred/private/wx/gtk/frame.rkt
@@ -149,7 +149,9 @@
              queue-on-size)
 
     (define gtk (as-gtk-window-allocation
-                 (gtk_window_new GTK_WINDOW_TOPLEVEL)))
+                 (gtk_window_new (if (memq 'float style)
+				     GTK_WINDOW_POPUP
+				     GTK_WINDOW_TOPLEVEL))))
     (when (memq 'no-caption style)
       (gtk_window_set_decorated gtk #f))
     (when (memq 'float style)