gtk: fix reparent problem with parent-relative location is unchanged

2011-01-22 13:10:01 -07:00 · 2011-01-22 13:10:01 -07:00 · 127d563bd8
commit 127d563bd8
parent 69859850f3
1 changed files with 2 additions and 0 deletions
--- a/collects/mred/private/wx/gtk/window.rkt
+++ b/collects/mred/private/wx/gtk/window.rkt
@ -523,6 +523,8 @@
      (gtk_container_remove (send parent get-client-gtk) gtk)
      (set! parent p)
      (gtk_container_add (send parent get-client-gtk) gtk)
+      (set! save-x 0)
+      (set! save-y 0)
      (g_object_unref gtk))

    (define/public (get-top-win) (send parent get-top-win))