March 2008 - cells-devel - mailman3.common-lisp.net

[cells-devel] eval-now (utils-kt)
by Andy Chambers 26 Mar '08

26 Mar '08

Is all that export! and eval-now! stuff a convenience for your ide or is it something you invented to make sure your code gets loaded/compiled in the right order? I ask because I'm trying to make what I've done so far at least asdf-loadable. There's some code up at gitorious (http://gitorious.org/projects/hunchncells) if you have a git available. If not, and you'd like a copy, I can zip it across off-list. -- Andy

2 1

[cells-devel] family hierarchies
by Andy Chambers 25 Mar '08

25 Mar '08

Does it cause problems if a family is defined on a slot different from kids? I ask because in a webified cells, you'd probably want to define the model on a :page slot or something. (defmodel web-app (family) ((page ...) (request ...) (:default-initargs :page (c? (the-kids ....))) I've made a few macros based on those in celtk that use cl-who to populate an xhtml slot. The families are building up quite nicely now. I am having one problem though. The web pages are constructed using macros like this... (mk-page (:titile "some page") (mk-div () (mk-text "hello world"))) I created a definehtml macro to make a defmodel and a corresponding mk- macro for a few of the commonly used html elements (I'll do the others as and when required). What I'm not sure about is the mk-text for simple strings. On the plus side, I can use a rule to escape special characters like & et el. Another plus is that we can put all text inside addressable span elements so if only that bit of text updates, we can send the appropriate bit of javascript down to the client that pin-points the change we want. Here's roughly how one of the mk- macros look at the moment. (defmacro mk-div ((&rest inits) &body body) `(make-instance 'div ,@inits :fm-parent *parent* :kids (c? (the-kids ,@(loop for kid in body when (stringp kid) collect (mk-text kid) else collect kid)))))) ;; not sure about the parens here, I edited a bit in email What I'd really like is to examine the type of each form in body to see if its a string. If so, use the mk-text macro to make that string into a family object. What you see above does do that but it doesn't pick up the *parent*, presumably because the macroexpansion of the mk-text bit happens before *parent* has been evaluated. Maybe the easiest thing would just be to use a really short name for the mk-text macro and be done with it. Cheers, Andy

2 1

[cells-devel] tile slot
by Andy Chambers 23 Mar '08

23 Mar '08

Hi, Are you supposed to be able to use the tile? slot to determine whether a tile widget is used? 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" (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'd like to have a panel of expander widgets each of which is packed so that it fills on the x-axis. I expect that other panels would probably have different packing requirements but if you put more than one (c?pack-self ...) in an app, you get an error saying "don't specify packing here. Cheers, Andy

3 5

[cells-devel] Obtain PhD that you deserve from an Established Prestigious Institution.
by Lloyd 20 Mar '08

20 Mar '08

F A S T T R A C K D E G R E E P R O G R A M Obtain the degree you deserve, based on your present knowledge and life experience. A prosperous future, money earning power, and the Admiration of all. Degrees from an Established, Prestigious, Leading Institution. Your Degree will show exactly what you really can do. Get the Job, Promotion, Business Opportunity and Social Advancement you Desire! Eliminates classrooms and traveling. Achieve your Bachelors, Masters, MBA, or PhD in the field of your expertise Professional and affordable Call now - your Graduation is a phone call away. Please call: +1 206 30 90 336

1 0

[cells-devel] expander copyright stuff
by Andy Chambers 20 Mar '08

20 Mar '08

Hey Kenny, At the moment, each file in celtk has a license header as printed below. I'd like to put my name somewhere on the file for expander.lisp but am not sure if it is correct to simply replace your name with mine since then if someone only looked at that file, it looks like I did the whole thing. May I suggest that I just put an additional line under the existing copyright one that says something like Copyright (C) 2008 by Andy Chambers Cheers, Andy #| Celtk -- Cells, Tcl, and Tk Copyright (C) 2006 by Kenny Tilton This library is free software; you can redistribute it and/or modify it under the terms of the Lisp Lesser GNU Public License (http://opensource.franz.com/preamble.html) known as the LLGPL. This library is distributed WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Lisp Lesser GNU Public License for more details. |#

1 0

[cells-devel] observers
by Andy Chambers 18 Mar '08

18 Mar '08

Two questions... 1) What's the best way to remove an observer that's been set on some slot? 2) If there's an observer like (defobserver image-files ((self widget)) (loop for (name file-pathname) in (set-difference new-value old-value :key 'car) do (tk-format `(:pre-make-tk ,self) "image create photo ~(~a.~a~) -file {~a} -height ~a -width ~a" (^path) name (namestring file-pathname) (^height)(^width)))) ....can I make one that specializes on a subclass of widget that overrides the first? How does one do this? -- Andy

2 1

[cells-devel] expander reinvigorated
by Andy Chambers 17 Mar '08

17 Mar '08

Hi Kenny, I never quite finished that expander stuff when I was doing it before. I ran into difficulties with the up/down icons but I think I know how to fix that now. However there seems to be another problem. If you try evaluate the test-window form at the bottom, every second time, you get "Tcl Error: out of stack space". I think there must be something that needs to be destroyed somewhere but none of the other composite widgets seem to have to do that. Any ideas? (defmodel expander (frame-stack) ((label :initarg :label :accessor label :initform (c-in nil)) (expansion :initarg :expansion :accessor expansion :initform nil) (expanded :initarg :expanded :accessor expanded :initform (c-in nil))) (:default-initargs :fm-parent (error "expander widget must have some kind of parent"))) (defmacro mk-expander ((&rest inits) &body body) `(make-instance 'expander ,@inits :fm-parent *parent* :expansion (c? (the-kids ,@body)) :expanded (c-in t) :kids (c? (the-kids (mk-button-ex ((^label) (setf (expanded (upper self expander)) (not (expanded (upper self expander)))))) (^expansion))) :kids-packing (c? (when (^kids) (if (^expanded) (format nil "pack~{ ~a~} -side top -anchor nw -padx ~a -pady ~a" (mapcar 'path (^kids)) (^padx) (^pady)) (format nil "pack forget~{ ~a~}" (mapcar 'path (cdr (^kids))))))))) (defmodel expander-test (window) () (:default-initargs :kids (c? (the-kids (mk-stack (:packing (c?pack-self)) (mk-expander (:label "hi") (mk-label :text "hi") (mk-label :text "ho"))))))) (test-window 'expander-test)

1 0

[cells-devel] False Start
by Andy Chambers 15 Mar '08

15 Mar '08

So that last one was a false start. After reading a little bit more about git and how it plays with cvs, I managed to create another project that keeps all the existing history and puts a nice user interface on it. The gitorious hosting seems a little more polished and a bit more newbie friendly (as befits a newbie friendly project). I would have used that one first had I known about it but only came accross it when looking for more info. Here's the url... http://gitorious.org/projects/celtk Kenny, you get the prize for the best commit / commit message ratio :-) -- Andy

2 1

[cells-devel] Newbie Friendly Fork of celtk
by Andy Chambers 15 Mar '08

15 Mar '08

Hi all, I've created a project for celtk development on repo.or.cz I'll keep the master branch as a mirror of the celtk in cells (I'll try to work out a way to automate this so it doesn't get out of sync). I've added another branch (linux) and committed the changes I sent a few days ago. The intention is that folks here just continue to work as they do. I take any changes and forward them (in an asdf-friendly way if applicable) to the git repo. Maybe I'll even add some function documentation. Its very much an experiment. I'm pretty new to git and getting a bit more familiar with celtk but I'd still say I'm a little wet behind the ears. Hopefully I can make it friendly enough that a few others will jump in and help me out. -- Andy Chambers

2 2

[cells-devel] RE:software market
by Angelica 15 Mar '08

15 Mar '08

1 0