Typo.

[cl-gtk2.git] / gtk / gtk.builder.lisp

diff --git a/gtk/gtk.builder.lisp b/gtk/gtk.builder.lisp
index bcc06d5..123078f 100644 (file)
--- 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)))