Moved some functions from gtk.lisp