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

Re: [cells-devel] celtk expander
by Andy Chambers 08 Nov '07

08 Nov '07

On Nov 8, 2007 2:20 PM, Ken <kennytilton(a)optonline.net> wrote: > Andy Chambers wrote: > > On Nov 7, 2007 5:56 PM, Ken Tilton <kennytilton(a)optonline.net> wrote: > > OK I've got it working nicely now. > Cool. You are now certified for Cells /and/ Tk. :) > > It's mostly the same as I > > previously posted except the expansion is specified more like a > > row/stack widget (i.e. you don't have to use :expansion you just put > > in the widgets). The specified expansion together with the expander > > button all remain as kids for the life of the widget and an observer > > on the expanded slot packs/unpacks as necessary. > > > You had to do your own? I am just wondering if the existing "packing" > rule had done reasonable things with the visible/collapsed slots. There's a kids-packing rule for the frame widgets but it doesn't know about visible or collapsed slots. In fact, I'm pretty sure celtk doesn't know anything about these. The only reference I could find to either was in the gui-geometry bit of cells which doesn't seem to be used by celtk. Grepping through Celtk for either "visible" or "collapse" yields nothing. Maybe this is another celloism? I was thinking about this though as a further change. We could add a visible slot to tk-object and the kids-packing rule could check it while creating its pack statement. I'll get the expander finished first though. Just need to draw the bitmaps on the buttons. Thanks for all your help. Andy

1 0

Re: [cells-devel] celtk expander
by Andy Chambers 08 Nov '07

08 Nov '07

On 11/6/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > Andy Chambers wrote: > > On 11/6/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > Hmmpph. Too bad Tk does not know about that, we have to unpack and then > repack, no simple "visible" flag. > > > > > So I think that setting the visible attribute is the way to go. > > OK. Don't forget :collapsed (c? (not (^visible))) if that is what you > want. (I /think/ collapsed works in the Tk bit.) grepping the Celtk source, I can't find anything about collapsed (although it does appear in the cells geometer class. I can't find anything in the tk docs about collapse either. Should I inherit from the geometer class itself to get this or am I missing the point entirely. -- Andy

2 2

[cells-devel] porting to cells3
by Andy Chambers 06 Nov '07

06 Nov '07

On 10/29/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > > I think you cannot "upgrade" Cells-Gtk, I think you have to make a giant > leap for guikind and call it Cells-Gtk3 (or 4, I actually forget if I am > at Cells3 or 4, the good thing being I do not think about Cells anymore > (tho every 4-8 months I run into a solid bug (another reason to, um, > upgrade))). Cells-Gtk3 will be an interestingly big job since I /think/ > you will be getting into a user-queue handler that knows about Gtk, but > as did Cells-Gtk Classic you can start by mimicking Celtk. I knew it wouldn't just be a case of moving the asd files around but perhaps I was still underestimating the task. Here's the problems I've come accross so far. 1) def-c-output seems to be called defobserver now. Is there any semantic differences between the two? 2) make-instance 'family now requires an :fm-parent My approach until now has been to update the cells that cells-gtk uses, then load-system, fix errors, load-system.... I'm just communicating this in case it elicits a nugget of insight from someone that might have attempted a similar task before. Cheers, Andy

2 1

[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

[cells-devel] Re: [cells-gtk-devel] Re: Hacking the gtk-ffi
by Ken Tilton 29 Oct '07

29 Oct '07

Andy Chambers wrote: > On 10/29/07, Ken Tilton <kennytilton(a)optonline.net> wrote: > >>Andy Chambers wrote: >> >>>On 10/29/07, Andy Chambers <achambers.home(a)googlemail.com> wrote: > > >>>OK. I think I know why its not working. The ffi call never gets made >>>because cells only uses it if either the new or old value is not nil. >> >>Properties are propagated from the Lisp model to Gtk by "observers" on a >>slot. Celtk and Cells-Gtk generate these observers as part of the >>macroexpansion of the def<i forget> macro to which it seems you >>correctly added the slot. It should not matter that the value (as you >>imply) never changes, because Cells understands that an initial >>propagation is necessary so observers and observed start out in synch. >> >>You can check that you see an observer in the macroexpansion, then that >>that is being called. If not, I would have a concern that Cells-Gtk has >>not been upgraded to use the latest version of Cells, because I have a >>faint recollection that possibly older versions do not propagate a nil >>initial value. I would be shocked if it did not propagate a non-nil >>value, so one thing you might try as a sanity check is to specify a >>non-nil just to see if anything fires. > > > The observer is being created in the macro-expansion. That's how I knew to > add the ffi definition (how cool is it that the software knew what function it > needed to call before I did :-)). > > My immediate problem is fixed by overriding the generated observer to always > propagate the value so I think you're spot on about cells-gtk not > using the latest cells but I'm starting to have some fun now and feel > a lot more confident about trying to upgrade. You mean upgrade Cells-Gtk to the latest Cells? Interestingly, one of the things I did in later versions was first to handle propagation by posting tasks to a fifo queue (so we do not go recursively deeper on propagation, which can make debugging harder) and then to allow specification of a user handler for processing the queue. I did the latter because Tk (not Gtk) can be a little sensitive to the order in which things happen and a user queue handler allows me to tag all messages to Tk with some keyword or other which then gets used by the queue handler to order tasks to kep Tk happy. I do not know if Cells-Gtk has the same issues, or if they reach the application user of Cells-Gtk itself, but there it is. The latest Cells also put the whole thing on a much solider foundation correctness-wise, at the expense of a little loss in transparency. The "correctness gap" was interesting in how few problems it caused, but I always knew the gap was there and when I undertook RoboCup that application definitely broke for those reasons, so Cells got fixed. I think you cannot "upgrade" Cells-Gtk, I think you have to make a giant leap for guikind and call it Cells-Gtk3 (or 4, I actually forget if I am at Cells3 or 4, the good thing being I do not think about Cells anymore (tho every 4-8 months I run into a solid bug (another reason to, um, upgrade))). Cells-Gtk3 will be an interestingly big job since I /think/ you will be getting into a user-queue handler that knows about Gtk, but as did Cells-Gtk Classic you can start by mimicking Celtk. kt

1 0

[cells-devel] "How would you like to have your ad on 2 Million Websites ?"
by BlogBlaster＠common-lisp.net 29 Oct '07

29 Oct '07

1 0

[cells-devel] Hacking the gtk-ffi
by Andy Chambers 29 Oct '07

29 Oct '07

Hi, What are all the things you need to do to add support for a property on a widget. I'm trying to add the "headers-visible" property to the tree-view widget. Here is what I did.... - added the symbol headers-visible to the gtk-slots list in the widget specfication - added the form below to "def-gtk-lib-functions" - made an app with a listbox using that option (gtk-tree-view-set-headers-visible :void ((tree-view :pointer) (visible :gtk-boolean))) I ran the app with debug on but didn't see any calls to the c function. Is there something else you need to do? Any general tips on debugging cells/gtk apps are also welcome. Cheers, Andy

2 2