From bddc0747ccb4af281c1bbeacb2374aa42434452c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 22 Jan 2011 13:10:01 -0700 Subject: [PATCH] gtk: fix reparent problem with parent-relative location is unchanged original commit: 127d563bd881b4531464d59bd9a27c2a46374865 --- collects/mred/private/wx/gtk/window.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/mred/private/wx/gtk/window.rkt b/collects/mred/private/wx/gtk/window.rkt index 1f929c0d..fc6b99f0 100644 --- 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))