Andy Chambers wrote:
Hi,
Are you supposed to be able to use the tile? slot to determine whether
a tile widget is used?
Ugh, I honestly do not recall. I think setting that to t /tells/ celtk
to use tile.
I know I tested tile on win32, seemed OK.
I've been trying to convert some of the demos distributed with tk
itself to celtk but because
the tile widgets are used by default, you can't set any style properties.
I tried the code below but cells thinks the relief slot needs a
parent. I get the error....
"New as of Cells3: parent must be supplied to make-instance of KEYWORD
kid RELIEF"
That is different, you just have to check all the macrology to make sure
the :parent slot is picked up from *parent* or self or something,
(defmodel tk-labels (window)
()
(:default-initargs
:title$ "Label Demonstration"
:kids (c? (the-kids
(mk-stack (:packing (c?pack-self "-side top"))
(mk-label :wraplength "4i"
:tk-justify 'left
:text (concatenate 'string
"Five labels are displayed below: three textual ones on the left and a bitmap"
"label and a text label on the right. Labels are pretty boring "
"because you can't do anything with them."))
(mk-row ()
(mk-stack (:pady 2
:layout-anchor 'w)
(mk-label :text "First Label")
(mk-label :tile? nil)
:relief (c? 'raised)
:text "Second Label, raised"
(mk-label :tile? nil
:text "Third Label, sunken"
:relief (c? 'sunken)))))))))
Am I going about this the wrong way?
Another problem I'm having is to do with packing. Are you really
supposed to be able to
express the layout of a whole app with just one pack statement?
I think rows and stacks supply useful packing by default which one
overrirdes at will.
kenny
_______________________________________________
cells-devel site list
cells-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-devel
