November 2007 - cells-devel - mailman3.common-lisp.net

[cells-devel] celtk expander
by Andy Chambers 06 Nov '07

06 Nov '07

Here's my effort at an expander. It doesn't have the arrow's yet. I was trying to get the expanding bit working correctly first. It works the first time (i.e. you can expand it once, then unexpand) but after that it kills the kids and can't re-create them again. Any hints? (defmodel expander (frame-stack) ((label :initarg :label :accessor label :initform "") (expanded :initarg :expanded :accessor expanded :initform (c-in nil)) (expansion :initarg :expansion :accessor expansion :initform nil)) (:default-initargs)) (defmacro mk-expander ((&rest initargs) &rest kids) `(make-instance 'expander ,@initargs :fm-parent *parent* :expansion (c? (the-kids ,@kids)) :expanded (c-in nil) :kids (c? (the-kids (mk-button-ex ((^label) (setf (expanded (upper self expander)) (not (expanded (upper self expander)))))) (when (^expanded) (^expansion)))))) ;; test the expander (defmodel test-win (window) () (:default-initargs :kids (c? (the-kids (mk-stack (:packing (c?pack-self)) (mk-label :text "hi") (mk-expander (:label "expander") (mk-stack () (mk-label :text "expanded"))) (mk-label :text "ho")))))) (defun test () (test-window 'test-win t)) Cheers, Andy

2 2

[cells-devel] Re: cells mailing list
by Ken Tilton 05 Nov '07

05 Nov '07

Andy Chambers wrote: > Hi Kenny, > > Is the cells mailing list active? Is that where I should send > questions/patches related to celtk development? > > I sent a message on Saturday morning about an expander widget but it > hasn't shown up in in the archives yet and I haven't had any bounce > messages. > > Cheers, > Andy > Sorry for the delay in responding, I let this slip. Just checked the list and do not see any issues. I am CCing the list to see what I can see. Celtk questions/patches go to Cells until someone steps up to maintain a standalone project. kt

1 0

[cells-devel] How would You like to divert 1000s of fresh new visitors daily.
by Instant＠common-lisp.net 05 Nov '07

05 Nov '07

Can you afford to lose 300,000 potential customers per year ? How would You like to divert 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others At $0 cost to you...? ...iNSTANT BOOSTER diverts 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others at $0 cost to you! ...No matter what you are selling or offering - INTSANT BOOSTER will pull in hordes of potential customers to your website - instantly! http://www.promote-busines.com/instantbooster/ http://www.promote-busines.com/remove/

1 0

[cells-devel] Feed Blaster puts your ad right to the screens of millions in 15 Minutes !
by Feed＠common-lisp.net 02 Nov '07

02 Nov '07

Feed Blaster puts your ad right to the screens of millions in 15 Minutes ! More and more people are subscribing to feeds every day and there are millions who are already subscribed. Thus, your ad will reach a very broad range of potential customers with each use of Feed Blaster! Feed Blaster is the first & only submitter that can submit your ads to thousands of feeds within a few minutes! Post your ads where people read them! - What if you could place your ad into all these feeds ? Right, that would mean you would have millions of sites linking to your ad - and millions of users reading your message within minutes - and my idea actually works. http://www.promote-bz.net/feedblaster/ Unsubscribe http://www.promote-bz.net/remove/

1 0