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:
parent
ef07121b9f
commit
1c65d669f3
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user