remove unnecessary finalization (GTK+ 2)

Remove a misguided attempt to improve finaliation while
making GTK+ 3 changes, although this change affected only
GTK+ 2.
This commit is contained in:
Matthew Flatt 2015-08-18 10:28:31 -06:00
parent ef07121b9f
commit 1c65d669f3

View File

@ -118,18 +118,17 @@
(gdk_x11_window_get_xid cwin) (gdk_x11_window_get_xid cwin)
(* s x) (* s y) (* s w) (* s h) 0 0 0))] (* s x) (* s y) (* s w) (* s h) 0 0 0))]
[else [else
(as-gtk-window-allocation (gdk_window_new cwin (make-GdkWindowAttr
(gdk_window_new cwin (make-GdkWindowAttr ""
"" 0
0 x y w h
x y w h GDK_INPUT_OUTPUT
GDK_INPUT_OUTPUT #f #f
#f #f GDK_WINDOW_CHILD
GDK_WINDOW_CHILD #f
#f "" "" #f 0)
"" "" #f 0) (bitwise-ior GDK_WA_X
(bitwise-ior GDK_WA_X GDK_WA_Y))]))
GDK_WA_Y)))]))
(define (free-gc-window win) (define (free-gc-window win)
(cond (cond