(multiple-value-bind (w h) (drawable-get-size gdk-window)
(setf (graphics-context-rgb-bg-color gc) (make-color :red 0 :green 0 :blue 0))
(draw-polygon gdk-window gc t (list (make-point :x 0 :y 0)
(multiple-value-bind (w h) (drawable-get-size gdk-window)
(setf (graphics-context-rgb-bg-color gc) (make-color :red 0 :green 0 :blue 0))
(draw-polygon gdk-window gc t (list (make-point :x 0 :y 0)