Bug fix

diff --git a/glade-xml/glade-xml.lisp b/glade-xml/glade-xml.lisp
index f254d21c22a7beafd14577de3a2d3ad0aa494ded..649b39af0bc1b388eb16c26b1a57f215364ab785 100644 (file)
--- a/glade-xml/glade-xml.lisp
+++ b/glade-xml/glade-xml.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 

-;; $Id: glade-xml.lisp,v 1.3 2006/09/28 10:21:29 espen Exp $
+;; $Id: glade-xml.lisp,v 1.4 2008/10/09 18:45:33 espen Exp $

 
 
 (in-package "GLADE-XML")
 
 
 (in-package "GLADE-XML")


@@ -174,7 +174,7 @@ (defun build-widget (spec)
        as attributes = (rest (mklist tag))
        do (cond
           ((and (eq element :|child|) (not (eq (first body) :|placeholder|)))
        as attributes = (rest (mklist tag))
        do (cond
           ((and (eq element :|child|) (not (eq (first body) :|placeholder|)))

-           (let ((initargs (parse-properties (container-child-class class) (rest (second body)))))
+           (let ((initargs (parse-properties (find-child-class class) (rest (second body)))))

              (add-child widget (build-widget (first body)) initargs)))
 
           ((eq element :|signal|)
              (add-child widget (build-widget (first body)) initargs)))
 
           ((eq element :|signal|)