;; this should really fix up the widget tree as well, but that makes ;; it a fair bit more complicated. left as an excercise to the reader :) (bind-func Widget_free (lambda (widget:Widget*) (free widget)))