suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
original commit: 127d563bd881b4531464d59bd9a27c2a46374865
This commit is contained in:
Matthew Flatt 2011-01-22 13:10:01 -07:00
parent 755d01d17a
commit bddc0747cc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/gtk/window.rkt
View File

@ -523,6 +523,8 @@
(gtk_container_remove (send parent get-client-gtk) gtk) (gtk_container_remove (send parent get-client-gtk) gtk)
(set! parent p) (set! parent p)
(gtk_container_add (send parent get-client-gtk) gtk) (gtk_container_add (send parent get-client-gtk) gtk)
(set! save-x 0)
(set! save-y 0)
(g_object_unref gtk)) (g_object_unref gtk))
(define/public (get-top-win) (send parent get-top-win)) (define/public (get-top-win) (send parent get-top-win))