From: Andrey Kutejko Date: Sun, 15 Aug 2010 11:05:11 +0000 (+0300) Subject: added child properties of toolbar items to ui-markup eDSL. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=52dd586e882635b48deaea1bf9c95f73d0f9c664;p=cl-gtk2.git added child properties of toolbar items to ui-markup eDSL. --- 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)