From 52dd586e882635b48deaea1bf9c95f73d0f9c664 Mon Sep 17 00:00:00 2001 From: Andrey Kutejko Date: Sun, 15 Aug 2010 14:05:11 +0300 Subject: [PATCH] added child properties of toolbar items to ui-markup eDSL. --- gtk/ui-markup.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/gtk/ui-markup.lisp b/gtk/ui-markup.lisp index 799b309..7144ef6 100644 --- a/gtk/ui-markup.lisp +++ b/gtk/ui-markup.lisp @@ -120,6 +120,16 @@ ,(first (ui-prop-value prop)) ,(second (ui-prop-value prop))))))))) +(def-ui-child-packer toolbar (b d child) + (let ((expand-prop (find :expand (ui-child-props d) :key #'ui-prop-name)) + (homogeneous-prop (find :homogeneous (ui-child-props d) :key #'ui-prop-name))) + `(progn + (toolbar-insert ,b ,child -1) + ,(when expand-prop + `(container-call-set-property ,b ,child "expand" ,(ui-prop-value expand-prop) +g-type-boolean+)) + ,(when homogeneous-prop + `(container-call-set-property ,b ,child "homogeneous" ,(ui-prop-value homogeneous-prop) +g-type-boolean+))))) + (defun get-child-packer-fn (d) (iter (for class first (find-class (ui-d-class d)) then (first (c2mop:class-direct-superclasses class))) (while class) -- 1.7.10.4