[cells-cvs] CVS Celtk

[fgoenninger]

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