Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv5819

Modified Files: scroll.lisp Log Message: Added: support for setting the font in a listbox (mk-scrolled-list ...)

--- /project/cells/cvsroot/Celtk/scroll.lisp 2006/06/07 22:13:41 1.4 +++ /project/cells/cvsroot/Celtk/scroll.lisp 2007/11/16 10:01:44 1.5 @@ -37,7 +37,8 @@ (deftk scrolled-list (row-mixin frame-selector) ((list-item-keys :initarg :list-item-keys :accessor list-item-keys :initform nil) (list-item-factory :initarg :list-item-factory :accessor list-item-factory :initform nil) - (list-height :initarg :list-height :accessor list-height :initform nil)) + (list-height :initarg :list-height :accessor list-height :initform nil) + (tkfont :initarg :tkfont :accessor tkfont :initform (c-in '(courier 9)))) (:default-initargs :list-height (c? (max 1 (length (^list-item-keys)))) :kids-packing nil @@ -46,7 +47,7 @@ :kids (c? (the-kids (mapcar (list-item-factory .parent) (list-item-keys .parent)))) - :tkfont '(courier 9) + :tkfont (c? (tkfont .parent)) :state (c? (if (enabled .parent) 'normal 'disabled)) :takefocus (c? (if (enabled .parent) 1 0)) :height (c? (list-height .parent))