X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.builder.lisp;h=123078f36a0e5990173d3925c26626da54040265;hb=0e3bcaa496379ddc2aea17dea533ea1e20170ebb;hp=bcc06d5a70ff583fc74e74a376030c270d33063b;hpb=8b6767cf4830672f2d929b66031f561857b9f1cd;p=cl-gtk2.git

diff --git a/gtk/gtk.builder.lisp b/gtk/gtk.builder.lisp
index bcc06d5..123078f 100644
--- a/gtk/gtk.builder.lisp
+++ b/gtk/gtk.builder.lisp
@@ -114,3 +114,8 @@
 
 ; TODO: gtk_builder_value_from_string_type
 
+(defmethod initialize-instance :after ((builder builder) &key from-file from-string)
+  (when from-file
+    (builder-add-from-file builder from-file))
+  (when from-string
+    (builder-add-from-string builder from-string)))