+
+(defun make-builder (&optional return)
+ (let* ((builder (make-instance 'gtk:builder
+ :from-file (namestring (merge-pathnames "demo/demo1.ui" gtk-demo::*src-location*))))
+ (text-view (builder-get-object builder "textview1"))
+ (window (builder-get-object builder "window1")))
+ (builder-connect-signals-simple
+ builder
+ `(("quit_cb"
+ ,(lambda (&rest args)
+ (print args)
+ (object-destroy window)))))
+ (when return builder)))