From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 13 Jun 2009 19:26:41 +0000 (+0400)
Subject: Add :from-string and :from-file initargs for GtkBuilder
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9f5fa544c8abf0bd60a02a8f1c408902f5399171;p=cl-gtk2.git

Add :from-string and :from-file initargs for GtkBuilder
---

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)))