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

[cells-devel] A few patches for making cells (3.0 from cvs) run on debian unstable using sbcl.
by Peder Chr. Nørgaard 14 Dec '09

14 Dec '09

Hello cells-devel list. I am investigating cells and cells-gtk3 for a project that I am planning. For a starter, I needed to get the software running on my Debian unstable system. It needed a few patches that you may wish to take into your development. The version of cells that I use is taken with cvs -z3 -d :pserver:anonymous:anonymous@common-lisp.net:/project/cells/cvsroot co cells That is the most actual one, yes? Well, the sbcl on Debian unstable (1.0.18) does not have nor need the EXCL package. So it must be configured out: diff -u -r cells/defpackage.lisp cl/cells/defpackage.lisp --- cells/defpackage.lisp 2008-10-12 03:21:07.000000000 +0200 +++ MDM/cl/cells/defpackage.lisp 2008-11-28 20:08:38.000000000 +0100 @@ -23,7 +23,7 @@ (in-package :common-lisp-user) (defpackage :cells - (:use #:common-lisp #:excl #:utils-kt) + (:use #:common-lisp #-sbcl #:excl #:utils-kt) (:import-from ;; MOP #+allegro #:excl diff -u -r cells/utils-kt/defpackage.lisp cl/cells/utils-kt/defpackage.lisp --- cells/utils-kt/defpackage.lisp 2008-10-12 03:21:10.000000000 +0200 +++ MDM/cl/cells/utils-kt/defpackage.lisp 2008-11-28 20:04:08.000000000 +0100 @@ -35,7 +35,8 @@ (defpackage :utils-kt (:nicknames #:ukt) - (:use #:common-lisp #:excl + (:use #:common-lisp + #-sbcl #:excl #+(or allegro lispworks clisp) #:clos #+cmu #:mop #+sbcl #:sb-mop The sbcl does not have the MOP package - it is called SB-MOP. Much of the code knows that already, but I had to patch one file: diff -u -r cells/utils-kt/detritus.lisp cl/cells/utils-kt/detritus.lisp --- cells/utils-kt/detritus.lisp 2008-10-12 03:21:10.000000000 +0200 +++ MDM/cl/cells/utils-kt/detritus.lisp 2008-11-28 20:07:57.000000000 +0100 @@ -33,7 +33,7 @@ (let ((cc (find-class c))) (when cc (finalize-inheritance cc)) - (mop::class-prototype cc))) + (#+sbcl sb-mop:class-prototype #-sbcl mop::class-prototype cc))) (defun brk (&rest args) After that, I tried to run the test suite. Worked fine, except that it is a little bit too Window'ish. I did this: diff -u -r cells/cells-test/test.lisp cl/cells/cells-test/test.lisp --- cells/cells-test/test.lisp 2008-10-12 03:21:09.000000000 +0200 +++ MDM/cl/cells/cells-test/test.lisp 2008-12-01 22:25:26.000000000 +0100 @@ -69,7 +69,7 @@ (defun test-cells () - (dribble "c:/0algebra/cells-test.txt") + (dribble "/tmp/cells-test.txt") (progn ;prof:with-profiling (:type :time) (time (progn but that is not what you want to go in the main sources. Maybe something based on the features - (dribble #+unix "/tmp/cells-test.txt" #-unix "c:/0algebra/cells-test.txt") - or perhaps just a file name parameter to TEST-CELLS with the above as the default value? Hope this is of a little help to you. I am sure to come back for assistance for my project later. best regards -- Peder Chr. Nørgaard e-mail: pcn(a)pogt.dk Gefionsvej 19 DK-8230 Åbyhøj tel: +45 87 44 11 99 Denmark mob: +45 30 91 84 31

6 5

[cells-devel] [CELTK] A "grid" widget
by Andy Chambers 27 Jul '09

27 Jul '09

I came across the need for a "grid" widget in celtk. It's really just a macro "mk-grid" that lets you compose a grid as a set of rows with a function to make each row. The function should take two arguments; the first is the row object for the row that is currently being created, the second is the row-number so that you can use it in the :gridding slot. I've not used it in anger yet so it may evolve a bit yet but I'll post any updates as they come. Usage would be as follows: (celtk::run-celtk-window 'window :kids (c? (the-kids (mk-stack (:packing (c?pack-self)) (mk-grid :gridding '(:columns ("-weight {1}" "-weight {0}") :rows ("-weight {1}" "-weight {0}")) :rows '(car cdr) :row-factory (lambda (row row-num) (list (mk-label :text (format nil "~a: " row) :gridding (format nil "-row ~a -column 1 -padx 30 -sticky nw" row-num)) (mk-label :text (format nil "~a" (with-output-to-string (s) (describe row s))) :gridding (format nil "-row ~a -column 2" row-num))))))))) diff --git a/frame.lisp b/frame.lisp index 3f5b2b2..37d6e4e 100644 --- a/frame.lisp +++ b/frame.lisp @@ -42,6 +42,32 @@ See the Lisp Lesser GNU Public License for more details. (defmd stack-mixin (inline-mixin) :packing-side 'top) +;--- g r i d s ---------------------------------------------- + +(defmd grid (grid-manager frame) + (rows) + (row-factory) + (kids (c? (the-kids + (loop for row in (^rows) + for row-num from 0 + collect (funcall (^row-factory) + row + row-num)))))) + +(defobserver .kids ((self grid)) + (when new-value + (loop for k in new-value + when (gridding k) + do (tk-format `(:grid ,k) + (format nil "grid ~a ~a" + (path k) + (gridding k)))))) + +(defmacro mk-grid (&rest initargs) + `(make-instance 'grid + ,@initargs + :fm-parent *parent*)) + ;--- f r a m e -------------------------------------------------- diff --git a/packages.lisp b/packages.lisp index 5318b8c..e0b0cc9 100644 --- a/packages.lisp +++ b/packages.lisp @@ -48,6 +48,8 @@ #:entry #:mk-entry #:text + + #:mk-grid #:frame-stack #:frame-row -- ---- Andy Chambers Formedix Ltd

1 0

[cells-devel] Cello: 'find-view-under: Semantics ?
by Frank Goenninger 24 Jul '09

24 Jul '09

Hi again - thanks again for the fast response on my last request - hoping for another fast one here ;-) So, Cello (the original one) has this function: (defun find-ix-under (self os-pos &key (test #'true)) (when (and (not (typep self 'tool-tip)) ;; <g> (visible self) (not (collapsed self))) (trc nil "find-ix-under" self os-pos (screen-box self)) (let ((inself (point-in-box os-pos (screen-box self)))) (or (when (or inself (not (clipped self))) (trc nil "inside self sbox" self os-pos (screen-box self)) (dolistreversed (k (or (render-order self)(kids self))) ;; overlap goes to last kid displayed (unless (typep k 'window) (trc nil "fixunder kid!!!!!!!!" k) (bwhen (ix (find-ix-under k os-pos :test test)) (return-from find-ix-under ix))))) (when (and inself (funcall test self) (not (ix-click-transparent self))) (trc nil self os-pos (screen-box self)) self))))) which is used as follows: (defmd mouse-view-tracker () (mouse-view :initarg :mouse-view :accessor mouse-view :initform (c? (let ((pos (mouse-pos .og.))) (trc nil "mouseview sees pos" .w. pos) (when pos (eko (nil "ix-togl mouseview >" self) (without-c-dependency (find-ix-under self pos))))))) (:documentation "Mixin to have mouse view tracked in a subtree of the window, mostly so other GUI layout can depend on the sub-tree layout without creating a cyclic dependency, as would happen iof the whole window were watched.")) (defmd ix-togl (mouse-view-tracker #+not focuser ogl-lit-scene control ogl-shared-resource-tender togl ix-view) ... So, the togl widget is a sub-class of mouse-view-tracker. I understand this as "show me the control that is currently being pointed at by the mouse". Only thing is: When looking at the code for 'find-ix-under I can't see how this could possibly work? May I ask for a walk-through of find-ix- under ? Thanks!!! Cheers Frank -- Frank Goenninger Cell: +49 175 4321058 E-Mail: frgo(a)me.com

2 2

[cells-devel] adopt-ct ? Meaning ?
by Frank Goenninger 21 Jul '09

21 Jul '09

Hi Kenny, all: I am wondering what the meaning of slot adopt-ct really is ... What does it / what should it do? Thx!!! Best Frank -- Frank Goenninger Cell: +49 175 4321058 E-Mail: frgo(a)me.com

2 1

[cells-devel] its-alive!
by Andy Chambers 15 Jul '09

15 Jul '09

What's the concept behind the "its-alive" feature keyword? Is it for when you're making changes to cells internals and you want to only run a small part of the engine so you stop other parts from running? Just wondering. -- Andy

3 2

[cells-devel] tk-client-task-priority
by Andy Chambers 13 Jul '09

13 Jul '09

Hey Kenny/Frank, How did you work out the correct order of the tk-client-task-priority? I get that tk objects have to be created before they can be configured and that's why :configure appears near the end of the list but why are the :delete, :forget tasks so high up? What if something is scheduled to be deleted and configured in the same cells "timeframe"? Cheers, Andy -- ---- Andy Chambers Formedix Ltd

2 1

Re: [cells-devel] Currently focused window
by Kenneth Tilton 12 Jul '09

12 Jul '09

Andy, Please search on :motionnotify. I see an example in the gears demo. I know that is OpenGL but I am pretty sure all the code you see in there in re event handling is generic to Tk, nothing about OpenGl. The nise thing about Tk via FFI is the control one gets from low-level access to the event stream. There are rare cases where I feel Tk did not expose enough via an API -- I remember vaguely something about key events, forcing me to code up a virtual event handler -- but as a rule the Tcl/Tk world is your oyster with an FFI based interface. Gotta run or I would offer more deets. kt Andy Chambers wrote: > On Sat, Jul 11, 2009 at 4:35 PM, Kenneth Tilton<kentilton(a)gmail.com> wrote: >> >> Andy Chambers wrote: >>> Hi, >>> >>> How would you get the currently focused window in celtk? (I'm trying >>> to write a help bubble >>> that pops up when someone pauses the mouse over a widget for a wee while). >> I do a lot of that, but... you are using vanilla Celtk, including Tk >> widgets? By currently focused window you mean... what, the Tk idea of the >> current widget? Or the Celtk idea thereof? Or did you mean the toplevel >> window? Or... > > Here's the context... > > (defmd root (window) > :kids (c? (the-kids > (mk-stack (:packing (c?pack-self)) > (mk-ui :aeyn) > (mk-ui :aeterm) > (mk-ui :aestdat)) > (mk-canvas > :height 200 > :background "#ffff99" > :kids (c? (the-kids > (mk-text-item > :coords (list 10 10) > :text "Help Text"))) > :parent-x 10 > :parent-y 20)))) > > mk-ui is a little utility I have that goes off to look for a "field" > definition and > knows how to convert that field into celtk objects. Currently, the canvas > slots are hard-coded but I'd like the position, size, and contents of this > object to change based on where the mouse is. So to answer your question, > I think it's Celtk's idea of the current widget that I need. > > The way I thought of doing it originally was to add a tk <<Pause>> event > and wait for that in the root window. The tcl attached below does this so > maybe it's just a case of adding this when the window first starts up. I > just wondered if there was a better way of doing it purely in celtk land. > > #!/usr/bin/env wish -f > > global items # For want of a better name > > # I chose Circulate because this is never generated by Tk itself > # and I only want to trigger these events myself because Tk doesn't > # know when to do it. > event add <<Pause>> <Circulate> > > bind all <Enter> { > global items > set id [ after 500 { event generate "%W" <<Pause>> } ] > set items("%W") $id > } > > bind all <Leave> { > global items > after cancel $items("%W") > unset items("%W") > } > > bind . <<Pause>> { > puts "A wee pause just happened on %W..." > } > > > > > > ------------------------------------------------------------------------ > > > No virus found in this incoming message. > Checked by AVG - www.avg.com > Version: 8.5.375 / Virus Database: 270.13.10/2231 - Release Date: 07/11/09 05:57:00 >

3 2

[cells-devel] Currently focused window
by Andy Chambers 11 Jul '09

11 Jul '09

Hi, How would you get the currently focused window in celtk? (I'm trying to write a help bubble that pops up when someone pauses the mouse over a widget for a wee while). Cheers, Andy -- ---- Andy Chambers Formedix Ltd

1 0

Re: [cells-devel] [cello-devel] Where can I see the screenshots and obtain a copy of Cello?
by Kenneth Tilton 10 Jul '09

10 Jul '09

The only thing I ever do any more is commit my latest source back to CVS. Frank Goenninger had a Cello make-over project going but I am not sure he released anything (or got far enough to do so or something). Web access: http://common-lisp.net/cgi-bin/viewcvs.cgi/?root=cello You can use CVS or just grab the tarball. I have been astonished by reports of people managaing to get the whole thing working unaided, so it is not impossible, just close to it. Not that you would be unaided, just ask and we happy few Cellists will help. I'll look around to see if I can find those screenshots. kt Adam Olsen wrote: > Hi, > > I'd like to use Cello, but unfortunately the FTP url mentioned on the > homepage leads to an empty directory > (ftp://common-lisp.net/pub/project/cello/) > > Can anyone help me out here? > > > > ------------------------------------------------------------------------ > > > No virus found in this incoming message. > Checked by AVG - www.avg.com > Version: 8.5.375 / Virus Database: 270.13.8/2227 - Release Date: 07/09/09 05:55:00 >

2 1

Re: [cells-devel] make-instance, initarg, c-in
by Bastian Müller 04 Jul '09

04 Jul '09

Ramarren schrieb: Hi, > It doesn't work because it was a bad idea anyway... I didn't pay > attention to the fact, that by the time an after method on > shared-initialize fires the model is already initiated into the cells > framework, so any changes at that point are too late. Fortunately it > is easy enough to get around with the power of CLOS: > > Again, I did not test this much, but it seems to work, especially > since it doesn't really touch anything inside Cells. I still think it > is not a very good idea, for reasons Kenny specified earlier. I tried it and after adding cells::model-object to the superclasses of the class that is using auto-cin-model everything worked very well. Thanks! I still don't get why it's a bad idea - it seems pretty handy. The user of the library won't have to care to provide c-in wrapped values as initargs, he doesn't need to care for the internals. I put the test in a gist on github: http://gist.github.com/140709 > As an aside, if it is not just amazing username coincidence, judging > by this paste http://paste.lisp.org/display/59172/ You tried to create > bindings for Clutter. If so, You might be interested in my attempt at > http://github.com/Ramarren/cffi-clutter/tree/master , which more or > less works, for some very low values of "works". Shows a moving > rectangle, anyway. Unfortunately, faced with the facts that moving > forward would require understanding enough of GObject to subclass its > objects and that I don't really need it that much, it is unlikely to > progress much further. Yeah, I tried to get a clutter binding, but unfortunately hadn't very much luck with it. I looked around and found your bindings on github and follow it, but didn't try it yet, because of lack of time and I'm not as far with my stuff to use it yet, but I'll sure do so. Thanks for the hint. kind regards, Bastian

2 1